您所在位置：主题：求教：编了个小程序Lable怎么都不居中是怎么回事？
yjxmyway
[专家分：0] 发布于 2011-08-30 13:58:00
Dim n As Integer
Private Sub Command1_Click()
Picture1.Move (Form1.ScaleWidth - Pictrue1.Width) / 2, _
(Form1.ScaleHeight - Picture1.Height) / 2
End Sub
Private Sub form_load()
Picture1.Picture = LoadPicture("E:\汇编软件\75\75\ico\burn2.ico")
n = 1
End Sub
Private Sub Picture1_Click()
Picture1.Print "你已共单击了"; n; "次鼠标"
n = n + 1
End Sub
Private Sub Command1_Click()
Picture1.Move (Form1.ScaleWidth - Pictrue1.Width) / 2, _
(Form1.ScaleHeight - Picture1.Height) / 2
End Sub
Private Sub form_load()
Picture1.Picture = LoadPicture("E:\汇编软件\75\75\ico\burn2.ico")
n = 1
End Sub
Private Sub Picture1_Click()
Picture1.Print "你已共单击了"; n; "次鼠标"
n = n + 1
End Sub
