摘要:
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 阅读全文
摘要:
1、CommandEnded 在程序启动的过程中添加下面这行代码,然后,程序里面需要一个名为CommandEnded的SUB,其签名要和事件一致, 这样,在事件发生时,就会调用CommandEnded过程 AddHandler Autodesk.AutoCAD.ApplicationServices 阅读全文
摘要:
‘在窗体的Loaded事件中 DataGridView1.RowHeadersDefaultCellStyle.Padding = New System.Windows.Forms.Padding(DataGridView1.RowHeadersWidth) 阅读全文
摘要:
Private Sub DataGridView1_RowPostPaint(sender As Object, e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPai 阅读全文
摘要:
Records.RemoveAll(Function(item) item.证券代码 <> SelectedStock AndAlso item.交易匹配 <> SelectedStock & “-”) 阅读全文
摘要:
Private Sub DataGridView1_ColumnHeaderMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataG 阅读全文
摘要:
Private Sub ss_Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown ‘对话框的KeyPreview属性需设置为True e.Hand 阅读全文
摘要:
Class DimEqualityComparer Inherits EqualityComparer(Of Dimension) Public Overrides Function Equals(ByVal d1 As Dimension, ByVal d2 As Dimension) As Bo 阅读全文