7,759
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command8_Click()
If Command8.Caption = "确定" Then
Text2.Locked = True
Text2.BackColor = vbWhite
Command8.Caption = "修改"
ElseIf Command8.Caption = "修改" Then
Text2.Locked = False
Text2.BackColor = vbGreen
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2)
Command8.Caption = "确定"
End If
End Sub
Private Sub Form_Load()
Text2.Locked = True
Command8.Caption = "修改"
End Sub
Private Sub Command8_Click()
If Command8.Caption = "确定" Then
Text2.Locked = True
Command8.Caption = "修改"
Else
Text2.Locked = False
Command8.Caption = "确定"
End If
按照你的逻辑,应该是正常的,估计在被点击的时候你的command8.caption并非初始化为“确定”和“修改”两种状态之一吧。
按照你的逻辑,对command8.caption从判断上其实是非此即彼的事情,所以判断条件稍微改一下能够确保你的程序能够走下去。
但是在窗体的load事件中,你要确保comand8和text2的各项属性配套。
以后遇到这种问题,在你觉得应该进入但没有进入的分支入口加个断点跟踪一下就都明白了
Private Sub Command8_Click()
If Command8.Caption = "确定" Then
Text2.Locked = True
Command8.Caption = "修改"
Else
Text2.Locked = False
Command8.Caption = "确定"
End If
End Sub