注意:要设置form的controlbox属性为false, 特别注意: form.text要设置为空,否则不会把标题栏去掉 Dim MousX As Integer Dim MousY As Integer Dim CurrX As Integer Dim CurrY As Integer Public Sub myMouseDown(ByVal sender As Object, ByVal ex [ 查看全文 ]
1.添加引用:DBClient 2.置DBGridEh控件属性: 设置dghAutoSortMarking属性为true 设置希望排序的Column的TitleButton属性为true 3.//表格排序过程 procedure OrderGrid(dataSet:TClientDataset;orderField:string); var i:integer; begin if dataSet.IndexFieldNames'' then begin i:=TClientDataSet(Da...[ 查看全文 ]
Private mouse_offset As Point Private Sub form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown mouse_offset = New Point(e.X, e.Y) End Sub Private Sub form1_MouseMove(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove '按住鼠标左右键均可拖动窗体 Dim frm As Form1 =...[ 查看全文 ]