摘要: ‘在窗体的Loaded事件中 DataGridView1.RowHeadersDefaultCellStyle.Padding = New System.Windows.Forms.Padding(DataGridView1.RowHeadersWidth) 阅读全文
posted @ 2020-02-07 22:22 rf8862 阅读(411) 评论(0) 推荐(0) 编辑
摘要: Private Sub DataGridView1_RowPostPaint(sender As Object, e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPai 阅读全文
posted @ 2020-02-07 22:20 rf8862 阅读(122) 评论(0) 推荐(0) 编辑
摘要: Records.RemoveAll(Function(item) item.证券代码 <> SelectedStock AndAlso item.交易匹配 <> SelectedStock & “-”) 阅读全文
posted @ 2020-02-07 22:12 rf8862 阅读(640) 评论(0) 推荐(0) 编辑
摘要: Private Sub DataGridView1_ColumnHeaderMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataG 阅读全文
posted @ 2020-02-07 22:10 rf8862 阅读(250) 评论(0) 推荐(0) 编辑
摘要: 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 阅读(307) 评论(0) 推荐(0) 编辑
摘要: 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 阅读(935) 评论(0) 推荐(0) 编辑
摘要: 1.在带有窗体的DLL中出现下面的错误:eLockViolation. 解决方法: Private sub Test() '在Sub里添加下面的定义语句 Dim documentLock As DocumentLock = Autodesk.AutoCAD.ApplicationServices.A 阅读全文
posted @ 2012-09-11 10:07 rf8862 阅读(873) 评论(0) 推荐(0) 编辑
摘要: '右对齐 Dim al As New System.Drawing.StringFormat al.Alignment = StringAlignment.Far G.DrawString("测试文字", New Font("宋体", 12, FontStyle.Regular, GraphicsU 阅读全文
posted @ 2012-07-03 04:22 rf8862 阅读(179) 评论(0) 推荐(0) 编辑
摘要: Dim dashValues As Single() = {1, 6} Dim pen1 As New Pen(Brushes.Red, 1) pen1.DashStyle = Drawing2D.DashStyle.Dot pen1.DashPattern = dashValue 阅读全文
posted @ 2012-07-03 03:28 rf8862 阅读(144) 评论(0) 推荐(0) 编辑
摘要: 以下两种方法来自qq群,未经测试: 方法一: If (UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0) Then MessageBox.Show 阅读全文
posted @ 2012-06-19 15:10 rf8862 阅读(794) 评论(0) 推荐(0) 编辑