VB运行时text控件被选中时的逻辑表达式是什么?
发布网友
发布时间：2022-10-21 00:11
共3个回答
热心网友
时间：2024-10-14 02:23
If Text1.Tag = "1" Then
Text1.Text = "我刚才被鼠标选中！"
Text2.Text = ""
ElseIf Text2.Tag = "1" Then
Text1.Text = ""
Text2.Text = "我刚才被鼠标选中！"
End If
End Sub
Private Sub Text1_GotFocus()
Text1.Tag = "1"
Text2.Tag = ""
End Sub
Private Sub Text2_GotFocus()
Text1.Tag = ""
Text2.Tag = "1"
End Sub
同一时刻同一个窗体内只能有一个控件拥有焦点，当点击Command时，Command就获得了焦点（或者说处在被选中状态），而其他控件（包括那两个Text控件）就不再处于选中状态，所以直接判断鼠标是否选中Text1或Text2是无法实现的，只能够在鼠标选中Text1或Text2时用一个全局变量（我的程序是利用了控件的保留属性Tag）来记录这种状态，然后在点击Command后通过判断变量的值来获知文本框之前的被选中状态。
热心网友
时间：2024-10-14 02:23
如果同一个命令对两个文本框操作方式不同，那就要用if 来分别处理。如果一样的，如复制、粘贴，不必要。
这样了，
Dim theText As TextBoxPrivate Sub Text1_GotFocus() '获得焦点时赋给theText
Set theText=Text1
End Sub
Private Sub Text2_GotFocus()
Set theText=Text2
End Sub
Private Sub Command1() '判断文本框，并作不同处理
if theText is Text1 Then
'处理Text1
Elseif theText is Text2
'处理Text2
End
End Sub
Private Sub Command2() '复制文本框中选择的文本
if not theText is nothing then
ClipBoard.SetText theText.SelText
end if
End Sub
热心网友
时间：2024-10-14 02:24
如果是
1.你设置个全局变量 dim b_at as byte
2.在Text1的GotFocus事件里 写下 b_at=1
3.在Text1的GotFocus事件里 写下 b_at=2
4.然后在Command按键事件里写下
Select case b_at
case=1
Text1.text=Now
case=2
Text2.text=Now
end select
