(摘抄)VB中按钮控件的左对齐方法

原文自http://bbs.youkuaiyun.com/topics/20421621。

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_STYLE = (-16)

Private Const BS_LEFT As Long = &H100&

Private Sub Form_Load()
    Dim TempLng As Long
    
    TempLng = GetWindowLong(Command1.hWnd, GWL_STYLE)
    TempLng = TempLng Or BS_LEFT
    SetWindowLong Command1.hWnd, GWL_STYLE, TempLng
    
End Sub