Private Sub Text2_GotFocus(Index As Integer)
Lbl1(Index).ForeColor = vbRed
Text2(Index).SelStart = 0
Text2(Index).SelLength = Len(Text2(Index).Text)
End Sub
当文本框得到焦点后,自动反白,直接输入覆盖原来的内容。
Lbl1(Index).ForeColor = vbRed
Text2(Index).SelStart = 0
Text2(Index).SelLength = Len(Text2(Index).Text)
End Sub
当文本框得到焦点后,自动反白,直接输入覆盖原来的内容。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货