快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

VB.net文本框一格 VB中文本框

VB.NET分别提取文本框里的每一行

Public Class Form1

在网站制作、网站设计中从网站色彩、结构布局、栏目设置、关键词群组等细微处着手,突出企业的产品/服务/品牌,帮助企业锁定精准用户,提高在线咨询和转化,使成都网站营销成为有效果、有回报的无锡营销推广。创新互联建站专业成都网站建设10年了,客户满意度97.8%,欢迎成都创新互联客户联系。

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

望采纳~

vb.net如何获取 列表框第一行文本到 文本框?

Text1.Text = List1.List(n) n表示列表框中的第n项. 如果要读完所有的, 一个循环就搞定了.

VB.NET中的文本框控件txtScore,txtAvg,txtMax,txtMin,txtNum,txtBNum,txtBRate,txtCNum...在哪里?

文本框控件就是TextBox,只有一个,至于你说的txtScore,txtAvg,txtMax,txtMin。。。。这些都是实例,你把文本框控件拖到窗体,然后起这些名字就可以了。

在vb.net怎样利用代码修改文本框的大小

以下代码添加到你需要触发的事件里:

1,把你的textbox的Multiline改成True(如果此处不修改你后面修改大小的时候只能修改width,而不能修改height),如果希望自动修改height,你的字体也要修改

2,添加这句代码(假设你要修改大小的textbox就是textbox1):

TextBox1.Location = New System.Drawing.Point(5, 20) '5, 20是你定义的针对窗体左上角点的X和Y位置

textbox1.size= New System.Drawing.Size(500, 600)‘500, 600是你自己定义的宽(width)和高(height)

3,或者直接写成:

TextBox1.Multiline = True’允许修改多行文本框

TextBox1.Location = New Point(5, 20) '5, 20是你定义的针对窗体左上角点的水平X和垂直Y位置

TextBox1.Size = New System.Drawing.Size(500, 600)‘500, 600是你自己定义的宽(width)和高(height)

VB.net如何读取文本文档的每一行 并把每一行的数据放到对应的文本框中?

Dim AllLine As String() = File.ReadAllLines("Mytxt.txt")

For i = 0 To AllLine.length-1

textBox1.Text = textBox1.Text AllLine(i) vbCrlf

Next

VB.NET中,如何获得文本框中可见区域的首行的行号?

可先计算出文本框TextBox1中的总行数,然后在行号框TextBox2中填上从1到总行数的行号。

再用API函数GetScrollPos分别获得文本框和行号框当前行号,最后再使用API函数SendMessage使行号框的行号滚动到对应的行数。

因为文本框的滚动条没有滚动事件,可以暂时使用一个Timer定时刷新,虽然方法笨了点,但暂时只能这么用了

代码如下:

Private Declare Function GetScrollPos Lib "user32" (ByVal handle As IntPtr, ByVal nbar As Integer) As Integer

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a as integer

a = GetScrollPos(TextBox1.Handle, 1)

Dim b as integer

b = GetScrollPos(TextBox2.Handle, 1)

SendMessage(TextBox2.Handle, HB6, 0, a-b)

End Sub


本文标题:VB.net文本框一格 VB中文本框
链接地址:http://6mz.cn/article/hjssjj.html

其他资讯