Dim obj As Object, objName As String, i As Integer
目前成都創(chuàng)新互聯(lián)已為近千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)頁空間、網(wǎng)站改版維護、企業(yè)網(wǎng)站設(shè)計、華龍網(wǎng)站維護等服務(wù),公司將堅持客戶導向、應用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。
i = 0
For Each obj In Me.Controls '枚舉窗體所有控件
Debug.Print TypeName(obj)
If TypeName(obj) = "TextBox" Then '判讀是否為文本框
i = i + 1
objName = obj.Name '獲取文本控件名稱,這里可以根據(jù)名稱來判讀賦值,也可以根據(jù)其他屬性復制
obj.Text = "文本" i '文本框賦值
End If
Next
你這個Text()()是一個二維數(shù)組?
將數(shù)字直接定義成text box類型,并將己所添加的textbox實例復制給數(shù)組的相關(guān)項,這樣就能通過數(shù)組的形式訪問了。。。
這句代碼
counter = 1
和這句
counter = counter 1
是等效的,上面那個是二元運算符,原本是C家族語言的特性,在VB.Net中也可以使用了。
DataGridViewCellStyle方法不通用,區(qū)域性設(shè)置太麻煩了。
以下是程序方法:
可以先將數(shù)據(jù)源放入一張表中,不要直接綁定。新表是可以改string的。
那個列必須是string,不能是single
代碼寫在cellendedit的過程中,每次用戶退出單元格編輯后引發(fā)
dim a1 as single
dim a2 as string
Try
a1=csng(當前單元格值)
Catch ex As Exception
MessageBox.Show("輸入條件不符合要求!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
if a11 then
a2=formate(a1,"0.0000")
else
....
endif
完事后a2賦值給當前單元格即可。
添加項: ComboBox1.Items.Add("123")
直接賦值: ComboBox1.Text = "123"
======================
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i = 1 To 10
ComboBox1.Items.Add("添加項:" i)
ComboBox2.Items.Add("添加項:" i)
Next
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox2.SelectedIndex = ComboBox1.SelectedIndex
End Sub
設(shè)置一個全局變量:
Public item As String
然后在第一個窗口那里?。?/p>
item = ComboBox1.SelectedItem.ToString()
然后加到第二個窗口那里:
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList(這個不可改內(nèi)容的設(shè)定可以在建立ComboBox的時候就設(shè)定了)
ComboBox2.Items.Add(item) (加入內(nèi)容,你或者也可以用別的,比如insert,這個可以加到指定的位置)
ComboBox2.SelectedItem = item (顯示那個剛加進來的內(nèi)容)
這樣應該可以了,建議你多看MSDN。