2020年2月14日
添加和读取扩展数据
摘要： 1、添加扩展数据 Private Sub 添加扩展数据(ByVal ent As Entity, ByVal DictName As String, ByVal TypedValue As TypedValue) If ent.ExtensionDictionary = Nothing Then e 阅读全文
posted @ 2020-02-14 01:44 rf8862 阅读(322) 评论(0) 推荐(0)
GDI+ 透明画刷
摘要： 1、蓝色 Dim Brush As Brush = New SolidBrush(Color.FromArgb(10, 87, 131, 221)) 阅读全文
posted @ 2020-02-14 00:38 rf8862 阅读(315) 评论(0) 推荐(0)