大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Public Class Form1
创新互联主要从事网站制作、网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务天宁,10年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108
Dim i As Long = -1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
Dim a() As String
i = i + 1
If i TextBox1.Lines.GetUpperBound(0) Then i = 0
a = TextBox1.Lines(i).ToString.Split(";")
TextBox2.Text = a(0)
TextBox3.Text = a(1)
End Sub
望采纳~
可以用多个label来截取文本,然后把一个空的文本框放到中间去。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = Mid(TextBox1.Text, 11, 2) ’第十一位开始算起的2个字符
End Sub
文本框通常用来显示文本字符,以下是用
VB
编写的打开某
txt
文件,并把文件内容显示在文本框的步骤及代码:
1、添加必要的组件(文本框、按钮)
2、设置属性:
3、编写按钮的响应代码:
首先应该在窗口(Form1)上添加一个TextBox1合一个Button1
然后添加以下代码:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mystring As String
mystring = TextBox1.Text
Msgbox(mystring)
End Sub
总之TextBox1.Text中的TextBox1一定要和你的文本框的名字(Name)相同
txtstring是作者自己给控件改的名字
如果没有改过应该是TextBox1