UC知道VB求教...为什么TEXT的内容变了...
来源：百度知道 编辑：UC知道 时间：2024/05/28 02:54:31
TxtJl.Text的内容变了，但变量i没变，ImgCar向左右移动的位置没差别...可以告诉我，我漏弄了什么吗？谢谢！！
Dim i As Long
Private Sub CmdTc_Click()
Unload Me
End Sub
Private Sub ImgLeft_Click()
ImgCar.Left = ImgCar.Left - i
End Sub
Private Sub ImgRight_Click()
ImgCar.Left = ImgCar.Left + i
End Sub
Private Sub TxtJl_GotFocus()
TxtJl.SetFocus
i = Val(TxtJl.Text)
End Sub
Dim i As Long
Private Sub CmdTc_Click()
Unload Me
End Sub
Private Sub ImgLeft_Click()
ImgCar.Left = ImgCar.Left - i
End Sub
Private Sub ImgRight_Click()
ImgCar.Left = ImgCar.Left + i
End Sub
Private Sub TxtJl_GotFocus()
TxtJl.SetFocus
i = Val(TxtJl.Text)
End Sub
取值要在textchange 事件里面。。。
Dim i As Long
Private Sub CmdTc_Click()
Unload Me
End Sub
Private Sub Form_Load()
i = Val(TxtJl.Text)
End Sub
Private Sub ImgLeft_Click()
ImgCar.Left = ImgCar.Left - i
End Sub
Private Sub ImgRight_Click()
ImgCar.Left = ImgCar.Left + i
Me.Label1.Caption = i
End Sub
Private Sub TxtJl_Change()
i = Val(TxtJl.Text)
End Sub
Private Sub TxtJl_Change()
i = Val(TxtJl.Text)
End Sub
你用TxtJl_GotFocus来做，那就是当TxtJl得到焦点时触发，此时文本框中无内容，i=0，所以不会有变化。应该用TxtJl_Change或者是TxtJl_LostFocus来做，另外我觉得TxtJl.SetFocus这句话完全多余。
Dim i As Long
Private Sub CmdTc_Click()
Unload Me
End Sub
Private Sub ImgLeft_Click()
ImgCar.Left = ImgCar.Left - i
End Sub
Private Sub ImgRight_Click()
ImgCar.Left = ImgCar.Left + i
End Sub
Private Sub TxtJl_LostFocus()
i = Val(TxtJl.Tex