发布时间：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'''''''''只允许输入数字......【阅读全文】
发布时间：2023-08-18 16:14:27
BorderStyle = 1 ''''Fixed Single 就可以保证窗体不被拉伸MaxButton=False ''禁止最大化......【阅读全文】
