我给的是11.111分的,csdn你偷了我的分!!!!!
各位网友,各位高手能给我源码吗
各位网友,各位高手能给我源码吗
解决方案 »
- activereport如何判断每一页的第一行数据呢
- vb+远程sql的几个问题
- 当单击Listview时如何让一行都选中?
- help me ,很简单的字符型转换成日期型问题
- 怎样用VB编写打印某种发票的程序?
- toolbar的使用
- 高手来看,请问,定义全局快捷键,前提如下:
- 关于格式转换的问题!请指教
- 那里有 jdk的下载啊!我在java的网站上看有很多,但不知下载哪个啊!!告诉我一个我 直接下载的地址好吗?谢谢了!!急
- 如何判断一个程序已经完成或一段录像已经播放完闭?
- 调查:该让用户用什么样的机器?(发言有分,废话无分)
- 由于上一题回帖子的人数众多,导致分数不够,所以再开一帖!继续!关于用vb进行文件的读写问题!
以后引用之后
用其中的方法可以控制文本框
只可以输入数字或只可输入文本。
好像做类的时候不允许用对象做参数的。
例如在类中不允许这样的。
sub txt(byval t as textbox)
t.setfouds
t.selstart=0
t.sellength=len(t)
end sub
___________
帮一下忙,在类中能不能用普通对象,
例如上面的textbox做参数呢
很想很急知道
现在我加分了
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
如果真的能这样的话。
很多事情都能解决了。
我就是想把一套大的软件绝大部分都做成dLL.
真的可能的话我会大大有赏的。
各位高手继续发表呀。
我会继续加分的。
兄长!快帮我试一下
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
————————————
——————————————
————————————————
多谢: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分,
请笑纳
多谢!!!
后面的兄弟,
现在还有分,
请继续!!!————————
继续呀!!!