02 2020 档案

保持选定单元格前景色不变
摘要：1、 Private Sub DataGridView1_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting '保持选定单元格前 阅读全文
posted @ 2020-02-27 09:03 rf8862 阅读(135) 评论(0) 推荐(0) 编辑
选择对象时添加选项（KeyWord）
摘要：Dim doc As Autodesk.AutoCAD.ApplicationServices.Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument Dim ed A 阅读全文
posted @ 2020-02-24 12:57 rf8862 阅读(647) 评论(0) 推荐(0) 编辑
创建对象
摘要：1、创建单行文字 Dim dt As New DatabaseServices.DBText() With dt .TextString = psr.StringResult .Justify = AttachmentPoint.MiddleCenter .AlignmentPoint = ppr. 阅读全文
posted @ 2020-02-21 04:00 rf8862 阅读(118) 评论(0) 推荐(0) 编辑
坐标系操作
摘要：1、设为WCS Dim doc As Autodesk.AutoCAD.ApplicationServices.Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument 阅读全文
posted @ 2020-02-20 08:49 rf8862 阅读(228) 评论(0) 推荐(0) 编辑
创建重复字符的字符串
摘要：Dim a As String = StrDup(100, "*") 阅读全文
posted @ 2020-02-18 20:42 rf8862 阅读(355) 评论(0) 推荐(0) 编辑
添加和读取扩展数据
摘要：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 阅读(301) 评论(0) 推荐(0) 编辑
GDI+ 透明画刷
摘要：1、蓝色 Dim Brush As Brush = New SolidBrush(Color.FromArgb(10, 87, 131, 221)) 阅读全文
posted @ 2020-02-14 00:38 rf8862 阅读(304) 评论(0) 推荐(0) 编辑
AutoCAD将焦点设置为绘图窗口
摘要：Autodesk.AutoCAD.Internal.Utils.SetFocusToDwgView() 阅读全文
posted @ 2020-02-08 11:02 rf8862 阅读(345) 评论(0) 推荐(0) 编辑
DataGridView复制到Excel格式
摘要：Clipboard.Clear() ' 清除剪贴板 If DataGridView2.Rows.Count > 0 Then Dim a As New List(Of String) For i As Integer = 0 To DataGridView2.Rows.Count - 1 Dim b 阅读全文
posted @ 2020-02-07 23:45 rf8862 阅读(195) 评论(0) 推荐(0) 编辑
VB.NET 如何使用AutoCAD事件
摘要：1、CommandEnded 在程序启动的过程中添加下面这行代码，然后，程序里面需要一个名为CommandEnded的SUB，其签名要和事件一致， 这样，在事件发生时，就会调用CommandEnded过程 AddHandler Autodesk.AutoCAD.ApplicationServices 阅读全文
posted @ 2020-02-07 23:40 rf8862 阅读(600) 评论(0) 推荐(1) 编辑
DataGridView禁用行标题中的三角号
摘要：‘在窗体的Loaded事件中 DataGridView1.RowHeadersDefaultCellStyle.Padding = New System.Windows.Forms.Padding(DataGridView1.RowHeadersWidth) 阅读全文
posted @ 2020-02-07 22:22 rf8862 阅读(437) 评论(0) 推荐(0) 编辑
DataGridView显示行号
摘要：Private Sub DataGridView1_RowPostPaint(sender As Object, e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPai 阅读全文
posted @ 2020-02-07 22:20 rf8862 阅读(124) 评论(0) 推荐(0) 编辑
Linq RemoveAll 方法
摘要：Records.RemoveAll(Function(item) item.证券代码 <> SelectedStock AndAlso item.交易匹配 <> SelectedStock & “-”) 阅读全文
posted @ 2020-02-07 22:12 rf8862 阅读(646) 评论(0) 推荐(0) 编辑
DataGridView点击列标题排序
摘要：Private Sub DataGridView1_ColumnHeaderMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataG 阅读全文
posted @ 2020-02-07 22:10 rf8862 阅读(258) 评论(0) 推荐(0) 编辑
使用Esc键关闭对话框
摘要：Private Sub ss_Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown ‘对话框的KeyPreview属性需设置为True e.Hand 阅读全文
posted @ 2020-02-07 22:07 rf8862 阅读(331) 评论(0) 推荐(0) 编辑
Linq 使用Distinct去重复项
摘要：Class DimEqualityComparer Inherits EqualityComparer(Of Dimension) Public Overrides Function Equals(ByVal d1 As Dimension, ByVal d2 As Dimension) As Bo 阅读全文
posted @ 2020-02-07 21:05 rf8862 阅读(940) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示