wlbk.net
当前位置:首页 >> vB中riCh tExtBox1控件怎么使用 >>

vB中riCh tExtBox1控件怎么使用

富文本框的最大优势在于可以放入图片,可以对每一个文字修改字体字号。 与文本框代码不同处,它的属性都会加一个sel,比如: richtextBox.SelColor‘颜色 richtextBox.SelBold '加粗 另外,保存和打开也很方便。 richtextBox.LoadFile("文件") ‘...

Private Sub Text1_Click() '单击Text1后发生 Dim i, inpa, GetTxt(500) As Variant, GotText As String GotText = "" ' Text1.Text For i = 0 To UBound(Split(Text1.Text, vbCrLf)) - 1 GetTxt(i) = Split(Text1.Text, vbCrLf)(i) inpa = Inpu...

你的:MyFileName = Dir("d:\*.txt") 改为:MyFileName = Dir(TextBox2.Text & "*.txt") 或者也可以在Sub Test() 中加个参数, 在调用的地方,把路径作为参数传入。

关键是这样做的目地何在。

楼上有高手答了,我换一个方式作答 Private Sub Text1_Change() Dim X As Integer If IsNumeric(Text1.Text) Then If Int(Text1.Text) >= 1 And Int(Text1.Text)

示例代码如下: x=mid(textbox,2,1)'利用mid函数,取textbox中字符串的自第二位起一位 xx=val(x)'利用val函数,将文本x转换为数值,并赋予xx xx=2*xx'xx做乘法运算 msgbox xx'显示xx VB中利用mid函数可以随意取textbox中的字符串,然后用val函数...

定义一个公共变量: Public strText as string 在A窗体的Button_Click中 strText=me.textbox1.text dim FrmTemp as new B '建立B窗体的实例 FrmTemp.showdailog() 在B窗体的Load事件中 me.textbox1.text=strText

需要将name用双引号括起来。 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False" Adodc1.RecordSource = "select * from jishijilu" Adodc1.Refresh Set Text2.Da...

Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = Val(Text1.Text) End SubPrivate Sub Timer1_Timer() Label1.Caption = Label1.Caption - 1 End Sub 我测试可以呀

这个相当于字符串连接符号,意思是:textbox1.text=textbox1.text & b 这是一种简写形式。

网站首页 | 网站地图
All rights reserved Powered by www.wlbk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com