Option ExplicitPrivate Sub Form_Load() Text1 = "双击文本框,文本框内容被全选的vb代码该如何写,请网友帮我"End SubPrivate Sub Text1_DblClick() Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1)En 展开
Option ExplicitPrivate Sub Form_Load() Text1 = "双击文本框,文本框内容被全选的vb代码该如何写,请网友帮我"End SubPrivate Sub Text1_DblClick() Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1)End Sub 收起