采用對(duì)象數(shù)組的辦法;
成都創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供歷城網(wǎng)站建設(shè)、歷城做網(wǎng)站、歷城網(wǎng)站設(shè)計(jì)、歷城網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)與制作、歷城企業(yè)網(wǎng)站模板建站服務(wù),10多年歷城做網(wǎng)站經(jīng)驗(yàn),不只是建網(wǎng)站,更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
聲明一個(gè)文本框?qū)ο蠼M,然后再啟動(dòng)窗體過程中,完成一一對(duì)應(yīng):
Public Class Form1
Private MyTextBox(10) As TextBox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyTextBox(1) = TextBox1 : MyTextBox(2) = TextBox2 : MyTextBox(3) = TextBox3 : MyTextBox(4) = TextBox4 : MyTextBox(5) = TextBox5
MyTextBox(6) = TextBox6 : MyTextBox(7) = TextBox7 : MyTextBox(8) = TextBox8 : MyTextBox(9) = TextBox9 : MyTextBox(10) = TextBox10
End Sub
End Class
這樣就可以用循環(huán)對(duì)MyTextBox(1) -- MyTextBox(10),進(jìn)行處理了,其結(jié)果就是對(duì)10個(gè)文本框控件的處理操作。
用一個(gè)全局變量c保存textbox1.SelectionStart,然后在textbox1.focus的代碼后,將textbox1.SelectionStart設(shè)為c
用form的ShowDialog這個(gè)功能,這個(gè)是可以進(jìn)行窗體間的傳值的。
比如在父窗體上需要傳的值是textbox1的內(nèi)容,子窗體是childform.
那么在父窗體上的點(diǎn)擊事件中可以這樣寫
dim frm as childform = New childform
'要在子窗體上的textbox1里顯示父窗體中的textbox1中的內(nèi)容,這樣寫
frm.textbox1.text = me.textbox1.text
'最后
frm.showdialog()
這樣就可以了。
如果說你三個(gè)窗體完全一樣,那你也不用寫三個(gè)一樣的窗體只要寫一個(gè)就行了,在不同的按鈕事件中做不同的賦值即可。
不過這樣打開的子窗體是模態(tài)窗體,也就是說在子窗體顯示之后,要對(duì)父窗體進(jìn)行操作必需關(guān)閉子窗體才行。
不是的,可以使用第三方控件
不知道你明不明白,比如你從從設(shè)計(jì)器的工具欄里面拖一個(gè)TextBox到你的界面上
實(shí)際上是對(duì)你的form(界面)添加了一個(gè)TextBox類型的實(shí)例(不信你可以在你的設(shè)計(jì)器代碼里面查看源代碼(就是*.Designer.CS)),這個(gè)TextBox類型就是你想要的文本輸入框,這個(gè)類型實(shí)現(xiàn)了很多方法,比如在界面上如何展示,顯示什么顏色,具有什么事件,你點(diǎn)擊這個(gè)輸入框會(huì)有什么效果等等
這個(gè)TextBox實(shí)際上是微軟自己封裝的一個(gè)組件,所以你只要引用任意第三方的控件(如果你安裝一個(gè)完整的控件包,它們就會(huì)在設(shè)計(jì)器的工具箱里面展示出來),然后把這個(gè)控件拖到你的設(shè)計(jì)界面上,它們就會(huì)和原有的組件有同樣的功能(只是可能使用的方式不同)
c#有很多第三方控件,如:devexpress,它不僅完整實(shí)現(xiàn)了所有官方組件,還添加了其它的控件
所以你可以搜索"VB.NET?devexpress"下載安裝
我不知道你下載的百度富文本是什么,但是如果你想在你自己做的界面上顯示出來,你就必須要在你項(xiàng)目的引用里面添加對(duì)應(yīng)控件的.DLL文件的引用
devexpress控件的效果你可以看這個(gè):
首先你的保證在TEXT中輸入的是數(shù)字。
下來用txt21=CInt(txt21.Text) 強(qiáng)制轉(zhuǎn)化成int型就可以了。 如果輸入問非數(shù)字型,強(qiáng)制轉(zhuǎn)化將出錯(cuò)!
'判斷文本框內(nèi)容為數(shù)字。
if IsNumeric(txt21.text) then
txt21=CInt(txt21.Text)
end if
方法1:
Open "c:\1.txt" For Output As #1 'c:\1.txt為保存文件
Print #1, Text1 Text2 Text3 ..... '將多個(gè)文本框內(nèi)容用合并在一起 寫入內(nèi)容
Close #1 '關(guān)閉文件
方法2:
Dim aa As String
aa =Text1 Text2 Text3 ..... '將多個(gè)文本框內(nèi)容用合并到變量aa
Open "c:\1.txt" For Output As #1 'c:\1.txt為保存文件
Print #1, aa '寫入內(nèi)容
Close #1 '關(guān)閉文件
當(dāng)前名稱:vb.net文本框變量,vb窗體顯示文本框內(nèi)容
鏈接URL:http://muchs.cn/article16/pheodg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供定制開發(fā)、網(wǎng)頁(yè)設(shè)計(jì)公司、微信公眾號(hào)、面包屑導(dǎo)航、Google、外貿(mào)網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)