从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图