activX dll怎样做文本控件,全选中文本内容

Question

我给的是11.111分的，csdn你偷了我的分！！！！！
各位网友，各位高手能给我源码吗

Answer 1

我只是想做成DLL，
以后引用之后
用其中的方法可以控制文本框
只可以输入数字或只可输入文本。
好像做类的时候不允许用对象做参数的。
例如在类中不允许这样的。
sub txt(byval t as textbox)
   t.setfouds
   t.selstart=0
   t.sellength=len(t)
end sub 
___________
帮一下忙，在类中能不能用普通对象，
例如上面的textbox做参数呢
很想很急知道
现在我加分了

Answer 2

定义txt时使用
dim withevents txt as textbox
定义，就可以。
sub txt_click()
    txt.setfouts
    txt.selstart=0
    txt.sellen=len(txt)
end sub最好写成
sub txt_GotFocus()
    txt.selstart=0
    txt.sellen=len(txt)
end sub

Answer 3

在类中真的能这样吗？
如果真的能这样的话。
很多事情都能解决了。
我就是想把一套大的软件绝大部分都做成dLL.
真的可能的话我会大大有赏的。
各位高手继续发表呀。
我会继续加分的。

Answer 4

no!NO!No!
兄长！快帮我试一下

Answer 5

类模块：
Option ExplicitDim WithEvents txt As TextBox
Private Sub txt_GotFocus()
  txt.SelStart = 0
  txt.SelLength = Len(txt.Text)
End SubPublic Property Get TextBox() As TextBox
  Set TextBox = txt
End PropertyPublic Property Set TextBox(ByVal vNewValue As TextBox)
  Set txt = vNewValue
End Property窗体，要两个文本框：
Option Explicit
Dim txt As New Class1
Dim txt1 As New Class1Private Sub Form_Load()
  Set txt.TextBox = Text1
  Set txt1.TextBox = Text2
End Sub

Answer 6

现在csdn人真少呀
————————————
——————————————
————————————————
多谢：huangguanshu
我成功了！
我就是ithc(vb&sb)
我改了一个例子。
在类中是这样的；
Dim WithEvents txt As TextBox
Sub gotfocus(ByVal txt)
  txt.SelStart = 0
  txt.SelLength = Len(txt)
End Sub
另外新建一个工程在窗体中有一个文本框，
引用上面的类，有如下代码：
Private Sub Text1_Click()
Dim a As New Class1
a.GotFocus Text1
End Sub
————————————
单击后成功选中文本框内容。
成功！！！
成功！！！
能帮我再想一下或叫再扩展一下吗？
为不打击别人的积极性我暂时给你加40分，
请笑纳
多谢！！！
后面的兄弟，
现在还有分，
请继续！！！————————
继续呀！！！