发布时间：2023-08-18 16:21:38
http://www.newxing.com/Tech/Program/VisualBasic/Form_Resize_170.htmlVBScript codeOption Explicit'以下程式在module1.bas Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Declar.........【阅读全文】
发布时间：2023-08-18 16:19:42
VB MSHFlexGrid排序这次想对MSHFlexGrid的内容进行排序，排序方法是：点击表头，自动进行升序或者降序。Dim IntSort as Integer '必须放在通用，否则无法排序Private Sub MSHFlexGrid_Click()If (MSHFlexGrid.Col = MSHFlexGrid.ColSel) And (MSHFlexGrid.RowSel = MSHFlexGrid.Rows - 1) And (MSHFlexGrid.Row <> MS.........【阅读全文】
发布时间：2023-08-18 16:18:54
让VB控件MSHFlexGrid显示合计栏Sub bt()Dim tmp_a As DoubleDim i As LongWith MSHFlexGrid1 tmp_a = 0 For i = 1 To .Rows - 1 '假设第三列为要合计的列 &.........【阅读全文】
发布时间：2023-08-18 16:17:01
VB--去掉MDI Form的最大化按钮Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) .........【阅读全文】
发布时间：2023-08-18 16:15:26
'''''''只允许输入数字及小数点If Not (Chr(KeyAscii) Like "[0-9.]" Or KeyAscii < 32) ThenText4.SelStart = 0End IfEnd Sub'''''''''只允许输入数字......【阅读全文】
