摘要：
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
阅读(201)
评论(0)
推荐(0)
摘要：
1、CommandEnded 在程序启动的过程中添加下面这行代码，然后，程序里面需要一个名为CommandEnded的SUB，其签名要和事件一致， 这样，在事件发生时，就会调用CommandEnded过程 AddHandler Autodesk.AutoCAD.ApplicationServices 阅读全文
posted @ 2020-02-07 23:40
rf8862
阅读(673)
评论(0)
推荐(1)
摘要：
‘在窗体的Loaded事件中 DataGridView1.RowHeadersDefaultCellStyle.Padding = New System.Windows.Forms.Padding(DataGridView1.RowHeadersWidth) 阅读全文
posted @ 2020-02-07 22:22
rf8862
阅读(480)
评论(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
阅读(134)
评论(0)
推荐(0)
摘要：
Records.RemoveAll(Function(item) item.证券代码 <> SelectedStock AndAlso item.交易匹配 <> SelectedStock & “-”) 阅读全文
posted @ 2020-02-07 22:12
rf8862
阅读(672)
评论(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
阅读(265)
评论(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
阅读(365)
评论(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
阅读(972)
评论(0)
推荐(0)
浙公网安备 33010602011771号