大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim AllLine As String() = File.ReadAllLines("Mytxt.txt")
成都创新互联是专业的碑林网站建设公司,碑林接单;提供成都做网站、成都网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行碑林网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
For i = 0 To AllLine.length-1
textBox1.Text = textBox1.Text AllLine(i) vbCrlf
Next
设计一个新窗体,这个窗体中可以有很多文本框,
当需要输入数据时,加载这个新窗体,从新窗体中获取数据
Dim st As New System.IO.StreamReader("E:\User Documents\Master\My Documents\电子阅读\一元二次方程.txt", System.Text.Encoding.Default)
Do Until st.EndOfStream
TextBox1.AppendText(st.ReadLine() vbCrLf)
Loop
st.Close()
添加一个TextBox控件(比如叫TextBox1)。
类似于Lable控件的功能,你可以修改TextBox控件的Text属性来达到目的:
不是在设计器里修改,而是在代码中用“TextBox1.Text="你想要显示的字符串";”这样的语句,这样就可以在程序运行时改变显示的内容。
设置或者取消星号,你可以通过代码修改TextBox1的PasswordChar属性,跟上面的是类似的:
在其他的控件的事件中比如Button的Click事件中修改——“TextBox1.PasswordChar="";//不显示***”
“TextBox1.PasswordChar="*(或者任何你想要的字符)";//显示为***”
至于什么时候改就完全随你的意思了。
是这个办法的,只是要加一句:
TextBox1.SelectionLength = 0
TextBox1.SelectionStart = TextBox1.Text.Length
TextBox1.ScrollToCaret()
另外,文本框的内容修改后要再次执行上面的三句代码
Dim mycon As New SqlConnection(connstrs)
Dim sqlStr As String = "SELECT * FROM [Column] FROM [Table]"
Dim cmd As New SqlCommand(sqlStr, mycon)
Dim reader = cmd.ExecuteReader()
Dim i As Integer = 1
While reader.Read()
Dim txt As New TextBox()
txt.Name = "txt" + i
txt.Size = New Size(100, 20) '文本框大小
txt.Location = New Point(50, i * 20 + 20)'left:50 top:随便写的,自己看着调
txt.Text = reader.GetValue(0).ToString()
Me.Controls.Add(txt) 'Me 可以改为你要添加上去的对象
End While
'未经过运行,自己调试看看能否OK