全局代码:
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Syscmd.Row.AddNew()
End Sub
Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Syscmd.Row.Delete()
End Sub
Public Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
CurrentTable.DataTable.save()
End Sub
窗口加载:
Dim ct2 As New Windows.Forms.ToolStrip
e.Form.Panel.Controls.Add(ct2)
For i As Integer = 0 To aa.Length-1
Dim Toolstripbuttoni As new windows.Forms.Toolstripbutton(aa(i))
ct2.items.add(ToolStripButtoni)
'AddHandler ToolStripButtoni.Click, AddressOf Buttoni_Click \\\\\\\\\\这句有问题,请指教!
Next
End If
[此贴子已经被作者于2015/6/27 21:17:08编辑过]