重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
gf.DrawString("竖着的值", Font, Brush, new point(X,Y) ,new StringFormat(StringFormatFlags.DirectionVertical));
创新互联公司是一家朝气蓬勃的网站建设公司。公司专注于为企业提供信息化建设解决方案。从事网站开发,网站制作,网站设计,网站模板,微信公众号开发,软件开发,微信小程序,10多年建站对人造雾等多个方面,拥有丰富的网站制作经验。
用这个方法可以
Imports System.IO
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim sr As New StreamReader("d:\test.csv")
Dim arr1(), arr2(), arr3(), arr4() As Integer
Dim a1, a2, a3, a4 As New ArrayList
Do Until sr.EndOfStream
Dim str As String = sr.ReadLine
Dim s() As String = str.Split(",")
a1.Add(Convert.ToInt32(s(0)))
a2.Add(Convert.ToInt32(s(1)))
a3.Add(Convert.ToInt32(s(2)))
a4.Add(Convert.ToInt32(s(3)))
ListBox1.Items.Add(s(0))
Loop
arr1 = CType(a1.ToArray(GetType(Integer)), Integer())
arr2 = CType(a2.ToArray(GetType(Integer)), Integer())
arr3 = CType(a3.ToArray(GetType(Integer)), Integer())
arr4 = CType(a4.ToArray(GetType(Integer)), Integer())
sr.Close()
End Sub
End Class
可以用定时器Timer控件啊,设置循环时间间隔,比如300毫秒,
定义N个字符串变量存储要输出的第N行内容,然后,当开始执行定时器时候,每次用不同的顺序合并这N个变量,并显示。
是这个办法的,只是要加一句:
TextBox1.SelectionLength = 0
TextBox1.SelectionStart = TextBox1.Text.Length
TextBox1.ScrollToCaret()
另外,文本框的内容修改后要再次执行上面的三句代码