vb 保存按钮布局

你创建一个command1 index属性改成0
然后狂复制 粘贴，随便你弄多少个，
你说你可以拖动，那我就不给拖动代码了，
把下面代码加进去，就可以了

Private Sub Form_Load()
Dim i As Integer
Dim str1() As String, t1 As String
i = Command1.LBound'LBound是控件组的上标，也就是控件组里最小的一个

If Dir(App.Path & "\1.txt") <> "" Then
Open App.Path & "\1.txt" For Input As #2
Do While Not EOF(2)
Line Input #2, t1
If t1 <> "" Then
str1 = Split(t1, " ")
Command1(i).Left = Int(str1(0))’把str数组里的数字分别赋给top和left
Command1(i).Top = Int(str1(1))
i = i + 1
End If
Loop
End If
Close 2

End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim str As String

For i = Command1.LBound To Command1.UBound
'LBound上面讲过了，UBound表示下标，，最大的那个
str = str & vbCrLf & Command1(i).Left & " " & Command1(i).Top
Next i
Open App.Path & "\1.txt" For Out