Private Sub Text2_GotFocus()
' Text2.BackColor = RGB(255, 255, 255)
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End Sub
' Text2.BackColor = RGB(255, 255, 255)
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End Sub
text.setfocus得到焦点
sendkeys "{HOME}+{END}"
这样可以让文本框得到焦点,并将所有内容选中反白。
把上一次的记录传给text
text2.text=rs.fields("xxx")
text1.SelStart = 0
text1.SelLength = Len(text1.Text)
' Text2.BackColor = RGB(255, 255, 255)
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End Sub
或
Private Sub Text2_click()
' Text2.BackColor = RGB(255, 255, 255)
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End Sub
Public Sub setTextSelected(objText As Object)
'设置指定控件的文本处于选中状态
'参数 objText 有文本的控件
objText.SelStart = 0
objText.SelLength = Len(objText.text)
End Sub'调用 text的GotFocus()事件中
setTextSelected Me.text1
SelStart-返回或设置所选择的文本的起始点;如果没有文本被选中,则指出插入点的位置。
SelText-返回或设置包含当前所选择文本的字符串;如果没有字符被选中,则为零长度字符串 ("")。
这些属性在设计时是不可用的。语法object.SelLength [= number]object.SelStart [= index]object.SelText [= value]
--------------------------------
SelLength 的设置比 0 小会导致一个运行时错误。
SelStart 的设置比文本长度大,会使该属性设置为现有文本长度;SelStart 的改变将使选择改变到插入点并将 SelLength 设置为 0。
SelText 的设置为新值,会将 SelLength 设置为 0 并用新字符串代替所选择的文本。
设有5个文本框
private sub text_click(index as intger)
for index=1 to 5
text(index).selstart=0
text(index).sellength=len(text(index).text)
next index
end sub
试试,我没试过。
If TypeName(Mc) = "TextBox" Then
处理选中状态啦
End If
Next
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)