个人中心
我的提问
我的回答
今日任务
我的设置
退出
文档资料
电脑网络
体育运动
医疗健康
游戏
社会民生
文化艺术
电子数码
娱乐休闲
商业理财
教育科学
生活
烦恼
资源共享
其它
歪果仁看中国
爱问日报
精选问答
爱问教育
爱问公益
爱问法律
用postmessage或sendmessage函数用向文本框发送相应的消息 即可 具体的你 在百度里搜下
2个回答
用Hex()函数
1个回答
Option Explicit Private Sub Form_Load() Text1 = "双击文本框,文本框内容被全选的vb代码该如何写,请网友帮我" End Sub Private Sub Text1_DblClick() Text1.SetFocus Text1.SelStart = 0...
按照你的意思 那几个文本框应该是控件数组吧for i=1 to n 'n为个数Text1(i)=text2(i) & "*" & text3(i) & "/ "next i
4个回答
如果你已经知道1.txt的内容,就简单,如果不知道那还得先读取出来!再写到文件里!!!!!! Open "C:\1.txt" For Output As #1 '以输出方式打开文件 Print #1, "x=" & text1.text Close #1 ' 关闭文件。
text1.text = listbox.caption
文本框 text.属性=属性值
Private Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) End Sub
不会,只有文本内容改变才触发
双击text1,上面给出的text1_click什么的的就是事件,是用来响应外界触发的 方法是可执行的操作,在代码窗口里面输入text1.,自动出来的就是方法和属性,绿色的项就是方法,方法是他可以执行的操作
不妨一试:先将读到一个变量,再用字符串函数定位取出.如left等.
新建 3个 textbox,在新建 1个Commandbutton,再在Commandbutton中输入 Private Sub Command1_Click() Text3.Text = Text1.Text * Text2.Text End Sub 看看附件
可以判断输入字符的ASSIC码是不是在数字之间
richtextbox不支持那么强大的功能吧,还是考虑ActiveX文档
Private Sub Command3_Click()Dim s1 As Strings1 = Format(Text1.Text, "0.00")if IsNumeric(s1) = False thenMsgBox "NO"elseIf Val(Mid(s1, InStr(1, s1, "."...
你想怎么改变?随机颜色的还是固定的几种?多长时间变一次?
VB中对象三要素:属性,方法,事件。
: Private Sub Command1_Click() Dim i as integer, j as integer j=0 for i = 1 to 100 j=j+i next print j end sub
Const LineSpace As Integer = 100Private theReg As DoublePrivate TextChange As BooleanPrivate Operator As StringPrivate Sub Form_Load()Dim X1 As Intege...