十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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、添加TextBox控件
2、设置TextBox属性
3、编写代码
4、运行效果
DataGridView1.DefaultCellStyle.WrapMode = DataGridViewTriState.True
DataGridView1.AutoResizeRows()
第一行是启用自动换行
第二行是自动调整高度,不知道你是不是这个意思
一共有三个地区啊,第一就是弹出来窗口上面蓝条下面的位置,显示比如“请输入”。第二就是弹出来窗口的标题了,第三个位置就是可输入部分显示的示范内容。
如inputbox("请输入生日","标题","1986-12-11")
MutilLine属性设置True
在代码中可以使用以下写法:
Textbox1.MutilLine=True