十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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
望采纳~
Text1.Text = List1.List(n) n表示列表框中的第n项. 如果要读完所有的, 一个循环就搞定了.
文本框控件就是TextBox,只有一个,至于你说的txtScore,txtAvg,txtMax,txtMin。。。。这些都是实例,你把文本框控件拖到窗体,然后起这些名字就可以了。
以下代码添加到你需要触发的事件里:
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)
Dim AllLine As String() = File.ReadAllLines("Mytxt.txt")
For i = 0 To AllLine.length-1
textBox1.Text = textBox1.Text AllLine(i) vbCrlf
Next
可先计算出文本框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