activX dll怎样做文本控件,全选中文本内容
单击一个文本框可以把文本框内容全选中，
有以下代码（可能有一些错，大概是这样的）
sub txt_click()
txt.setfouts
txt.selstart=0
txt.sellen=len(txt)
end sub
即是单击txt可把txt内容全选中。
我想把这些内容做成activex dll文件，
以后可以对任何的文本都可以用了。
可惜我想尽办法也没法解决。
今次是认真的，不是乱闹的。
请解决，thank you!
问题点数：71、回复次数：10Top
1 楼ithc（学delphi再学bcb再学vc___）回复于 2001-07-11 20:07:57 得分 0
我给的是11.111分的，csdn你偷了我的分！！！！！
各位网友，各位高手能给我源码吗Top
2 楼ithc（学delphi再学bcb再学vc___）回复于 2001-07-12 20:02:17 得分 0
我只是想做成DLL，
以后引用之后
用其中的方法可以控制文本框
只可以输入数字或只可输入文本。
好像做类的时候不允许用对象做参数的。
例如在类中不允许这样的。
sub txt(byval t as textbox)
t.setfouds
t.selstart=0
t.sellength=len(t)
end sub
___________
帮一下忙，在类中能不能用普通对象，
例如上面的textbox做参数呢
很想很急知道
现在我加分了Top
3 楼huangguanshu（）回复于 2001-07-12 20:12:03 得分 0
定义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 subTop
4 楼ithc（学delphi再学bcb再学vc___）回复于 2001-07-12 20:15:17 得分 0
在类中真的能这样吗？
如果真的能这样的话。
很多事情都能解决了。
我就是想把一套大的软件绝大部分都做成dLL.
真的可能的话我会大大有赏的。
各位高手继续发表呀。
我会继续加分的。
Top
5 楼huangguanshu（）回复于 2001-07-12 20:18:13 得分 0
当然可以，只要在类模块中定义一个属性，将文本框传入类模块中就可以。Top
6 楼ithc（学delphi再学bcb再学vc___）回复于 2001-07-12 20:30:12 得分 0
no!NO!No!
兄长！快帮我试一下Top
7 楼huangguanshu（）回复于 2001-07-12 20:42:18 得分 40
类模块：
Option Explicit
Dim WithEvents txt As TextBox
Private Sub txt_GotFocus()
txt.SelStart = 0
txt.SelLength = Len(txt.Text)
End Sub
Public Property Get TextBox() As TextBox
Set TextBox = txt
End Property
Public Property Set TextBox(ByVal vNewValue As TextBox)
Set txt = vNewValue
End Property
窗体，要两个文本框：
Option Explicit
Dim txt As New Class1
Dim txt1 As New Class1
Private Sub Form_Load()
Set txt.TextBox = Text1
Set txt1.TextBox = Text2
End Sub
Top
8 楼itk（horst）回复于 2001-07-12 20:43:44 得分 31
现在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分，
请笑纳
多谢！！！
后面的兄弟，
现在还有分，
请继续！！！
————————
继续呀！！！
Top
9 楼itk（horst）回复于 2001-07-12 20:44:39 得分 0
刚打完就见你的回答了
再次感谢
Top
10 楼huangguanshu（）回复于 2001-07-12 21:47:59 得分 0
你想什么功能.
Top
