Question

VB简单程序设计求解答

就是一个按钮和一个标签，按一下按钮标签往左移动一点距离，按十下后标签立刻移动到窗体最左边而且再按按钮后标签不再移动了

按钮的程序应该怎么写..求大大详解~~

Answer 1

你的算法很明确了
定义个按钮次数的变量
先处理是不是移动到最左边了，也就是LEFT属性是否为0,
如果为零或小于零，就什么也不做
如果大于零，判断按钮次数是否是10次，如果是，就移动到最左边
如果不是就给LEFT属性赋值（LEFT-固定移动距离）

追问

en....我也明白差不多是这样...但就是具体的程序写不来啊....还望大大能把具体程序写给我看看...小弟在此谢过了..

Answer 2

Dim i As Integer
Private Sub Command1_Click()
If i <= 10 Then
i = i + 1
Label1.Left = Label1.Left - 3 * Screen.TwipsPerPixelX '每次向左移动 3 个像素
End If
If i > 10 Then Label1.Left = 0
End Sub

Private Sub Form_Load()
i = 1
End Sub

Answer 3

Private i, j As Integer

Private Sub Command1_Click()
If i < 10 Then
i = i + 1
Label1.Left = Label1.Left - j
End If
End Sub

Private Sub Form_Load()
j = Label1.Left / 10
End Sub