大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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
1、首先,点击保存按钮后应检查文本框内容。
2其次,如果在文本框4中输入的值以400开头则保存反之更改为400。
3、最后,再次检查文本框5如果文本框5中的值为29或31则保存反之则更改即可。
1、添加TextBox控件
2、设置TextBox属性
3、编写代码
4、运行效果
先把RichTextBox1 的MultiLine属性设置成 True
有很多方法:
第一种 RichTextBox1.Text = "123456789" vbCrLf "555684"
第二种 RichTextBox1.Text = "123456789" vbNewLine "555684"
你要的是第二种
一共有三个地区啊,第一就是弹出来窗口上面蓝条下面的位置,显示比如“请输入”。第二就是弹出来窗口的标题了,第三个位置就是可输入部分显示的示范内容。
如inputbox("请输入生日","标题","1986-12-11")