采用對象數(shù)組的辦法;
成都創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供歷城網(wǎng)站建設、歷城做網(wǎng)站、歷城網(wǎng)站設計、歷城網(wǎng)站制作等企業(yè)網(wǎng)站建設、網(wǎng)頁設計與制作、歷城企業(yè)網(wǎng)站模板建站服務,10多年歷城做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡服務。
聲明一個文本框?qū)ο蠼M,然后再啟動窗體過程中,完成一一對應:
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)對MyTextBox(1) -- MyTextBox(10),進行處理了,其結(jié)果就是對10個文本框控件的處理操作。
用一個全局變量c保存textbox1.SelectionStart,然后在textbox1.focus的代碼后,將textbox1.SelectionStart設為c
用form的ShowDialog這個功能,這個是可以進行窗體間的傳值的。
比如在父窗體上需要傳的值是textbox1的內(nèi)容,子窗體是childform.
那么在父窗體上的點擊事件中可以這樣寫
dim frm as childform = New childform
'要在子窗體上的textbox1里顯示父窗體中的textbox1中的內(nèi)容,這樣寫
frm.textbox1.text = me.textbox1.text
'最后
frm.showdialog()
這樣就可以了。
如果說你三個窗體完全一樣,那你也不用寫三個一樣的窗體只要寫一個就行了,在不同的按鈕事件中做不同的賦值即可。
不過這樣打開的子窗體是模態(tài)窗體,也就是說在子窗體顯示之后,要對父窗體進行操作必需關閉子窗體才行。
不是的,可以使用第三方控件
不知道你明不明白,比如你從從設計器的工具欄里面拖一個TextBox到你的界面上
實際上是對你的form(界面)添加了一個TextBox類型的實例(不信你可以在你的設計器代碼里面查看源代碼(就是*.Designer.CS)),這個TextBox類型就是你想要的文本輸入框,這個類型實現(xiàn)了很多方法,比如在界面上如何展示,顯示什么顏色,具有什么事件,你點擊這個輸入框會有什么效果等等
這個TextBox實際上是微軟自己封裝的一個組件,所以你只要引用任意第三方的控件(如果你安裝一個完整的控件包,它們就會在設計器的工具箱里面展示出來),然后把這個控件拖到你的設計界面上,它們就會和原有的組件有同樣的功能(只是可能使用的方式不同)
c#有很多第三方控件,如:devexpress,它不僅完整實現(xiàn)了所有官方組件,還添加了其它的控件
所以你可以搜索"VB.NET?devexpress"下載安裝
我不知道你下載的百度富文本是什么,但是如果你想在你自己做的界面上顯示出來,你就必須要在你項目的引用里面添加對應控件的.DLL文件的引用
devexpress控件的效果你可以看這個:
首先你的保證在TEXT中輸入的是數(shù)字。
下來用txt21=CInt(txt21.Text) 強制轉(zhuǎn)化成int型就可以了。 如果輸入問非數(shù)字型,強制轉(zhuǎn)化將出錯!
'判斷文本框內(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 ..... '將多個文本框內(nèi)容用合并在一起 寫入內(nèi)容
Close #1 '關閉文件
方法2:
Dim aa As String
aa =Text1 Text2 Text3 ..... '將多個文本框內(nèi)容用合并到變量aa
Open "c:\1.txt" For Output As #1 'c:\1.txt為保存文件
Print #1, aa '寫入內(nèi)容
Close #1 '關閉文件