Question

vb中怎样使文本框内的文字被选中后另外一个按钮可以用？

一开始那个按钮是不可用的
不对的啊

Answer 1

根据文本框是否选择文字，即Text1.SelLength > 0，还能根据选中的文字激活，代码如下：

'添加Text1,Command1,Timer1三个控件
Private Sub form_Load()
Timer1.Interval = 200
Command1.Enabled = False
Text1 = "特定的字符"
End Sub

Private Sub Timer1_Timer()
If Text1.SelLength > 0 Then '文本框是否选择文字
If Mid(Text1, Text1.SelStart + 1, Text1.SelLength) = "特定" Then '根据选中的文件激活
Command1.Enabled = True
End If
End If
End Sub

运行时：

选择 特定 这两个字符，激活：

Answer 2

if textbox.focused = true then
button.Enabled = true
else
button.Enabled = false
endif

Answer 3

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Text1.SelLength = Len(Text1.Text) Then
Me.Command1.Enabled = True
End If
End Sub

Answer 4

private sub form_Load()
command1.enabled=false
end sub
Private Sub Text1_change()
If Text1.SelLength <>0 Then
Command1.Enabled = True
End If
End Sub