如何才能让一组CommandButton上的文字靠左对齐显示？

[goodnow]

就是普通的CommandButton

[Girl1983]

不可能的。别费心思了。

[goodnow]

居中也行，只要能把这组按钮上的文本左对齐就行。

[yo_jo]

VB6.0自带的COMMAND控件没有调整对齐方式的属性，有很多按钮控件有这个功能，去网上找找吧！

[goodnow]

假设AnKey为一组按钮，共有3个，在调用过程中参数就不知该如何传递了
如何才能传递一组按钮控件？



BeMaxLenght AnKey, 3


'把按钮上的caption设为相同的长度，使之看来左对齐
'Actl为按钮的名称，Acount为这组按钮的个数
Public Sub BeMaxLenght(Actl As Control, Acount As Integer)
Dim i As Integer
Dim maxLen As Integer
maxLen = LenB(Actl(1).Caption)
For i = 2 To Acount
If maxLen < LenB(Actl(i).Caption) Then maxLen = LenB(Actl(i).Caption) '取maxLen为最长
Next i
For i = 1 To Acount
Actl(i).Caption = Actl(i).Caption & Space(maxLen - LenB(Actl(i).Caption)) '全部设为最长
Next i
End Sub

[还想懒够]

自己用图片框和API写一个吧，不是太难

[thirdapple]

To Girl1983
也不是不可能，重新绘制就是了

[zyl910]

用SetWindowLong设置窗口风格就是了


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

[goodnow]

谢谢zyl910(910：分儿，我来了！)