Dim mycon As New SqlConnection(connstrs)
網(wǎng)站建設(shè)哪家好,找成都創(chuàng)新互聯(lián)!專注于網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、微信小程序、集團企業(yè)網(wǎng)站建設(shè)等服務(wù)項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了金灣免費建站歡迎大家使用!
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:隨便寫的,自己看著調(diào)
txt.Text = reader.GetValue(0).ToString()
Me.Controls.Add(txt) 'Me 可以改為你要添加上去的對象
End While
'未經(jīng)過運行,自己調(diào)試看看能否OK
1、首先,點擊保存按鈕后應(yīng)檢查文本框內(nèi)容。
2其次,如果在文本框4中輸入的值以400開頭則保存反之更改為400。
3、最后,再次檢查文本框5如果文本框5中的值為29或31則保存反之則更改即可。
1、添加TextBox控件
2、設(shè)置TextBox屬性
3、編寫代碼
4、運行效果
先把RichTextBox1 的MultiLine屬性設(shè)置成 True
有很多方法:
第一種 RichTextBox1.Text = "123456789" vbCrLf "555684"
第二種 RichTextBox1.Text = "123456789" vbNewLine "555684"
你要的是第二種
一共有三個地區(qū)啊,第一就是彈出來窗口上面藍條下面的位置,顯示比如“請輸入”。第二就是彈出來窗口的標題了,第三個位置就是可輸入部分顯示的示范內(nèi)容。
如inputbox("請輸入生日","標題","1986-12-11")