通過在下一個循環(huán)中進(jìn)行編碼，我已經(jīng)創(chuàng)建了按鈕和文本框，結(jié)果'T(x).Name = "text_1"'T(x).Name = "text_2"'T(x).Name = "text_3"'....'B(x).Name = "button_1"'B(x).Name = "button_2"'B(x).Name = "button_3"'...而且我想獲得textbox屬性，當(dāng)我單擊按鈕時，我可以在單擊時獲得按鈕屬性，button_1.Name.ToString 但是我無法獲得text_1,2,3 ....屬性。我通過拆分函數(shù)button_1.Name.ToString做了一些技巧，并獲取了最后一個數(shù)字并將其添加到文本框名稱中，例如，"text_" & button_1.Name.ToString但是我無法將此字符串轉(zhuǎn)換為對象。更新資料這是我用來在循環(huán)中加載控件的代碼：C_A_TEXT(x) = New TextBox() C_A_TEXT(x).Dock = System.Windows.Forms.DockStyle.Fill C_A_TEXT(x).Location = New System.Drawing.Point(270, 5) C_A_TEXT(x).Margin = New System.Windows.Forms.Padding(0) C_A_TEXT(x).Size = New System.Drawing.Size(70, 27) C_A_TEXT(x).TabIndex = 5 C_A_TEXT(x).Name = "NEW_RECHARGE_COUNT_TEXT_" & x更新2這是更多代碼：AddHandler C_A_BUTTONS(x).Click, AddressOf C_A_BUTTON Private Sub C_A_BUTTON(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim thisButton As Button = sender Dim A = CType(Me.Controls("NEW_RECHARGE_COUNT_TEXT_1"), TextBox) MsgBox(A.Text.ToString) 'Error!End Sub
3 回答
慕斯709654
TA貢獻(xiàn)1840條經(jīng)驗 獲得超5個贊
您可以通過Form.Controls屬性通過名稱訪問控件，例如：
Dim text1 As TextBox = CType(Me.Controls("text_1"), TextBox)
慕標(biāo)琳琳
TA貢獻(xiàn)1830條經(jīng)驗 獲得超9個贊
作為快速有用的提示，您似乎不必為了訪問窗體上的控件而在CType語句中指定控件的類型。當(dāng)我嘗試使用同一行代碼訪問多種類型的表單控件（例如按鈕和文本框）時遇到了這種情況。
CType(Controls("NAME_OF_CONTROL"), Control)
請注意，您無需指定確切的控件類型（例如“文本框”或“按鈕”），而只需聲明“控件”即可。這使您可以通用地更改任何類型的控件，而無需指定其類型。
我在其他任何地方都找不到，所以我想分享一下！
HUH函數(shù)
TA貢獻(xiàn)1836條經(jīng)驗 獲得超4個贊
線程的標(biāo)題和您對當(dāng)前問題的描述似乎彼此有所不同。
要回答您的標(biāo)題（以其名稱查找控件），請使用以下命令：
Dim myControlToFind = LayoutRoot.FindName("NAMEOFCONTROL")
有關(guān)此方法的更多信息，請參見此處。
要回答您的問題的描述（要在單擊后訪問代碼生成的控件），請執(zhí)行以下操作：
在創(chuàng)建控件的循環(huán)中，添加以下處理程序
Addhandler YOURCONTROL.Clicked, AddressOf Textbox_Clicked
...然后這將處理click事件
Private Sub Textbox_Clicked(sender as object, e as RoutedEventArgs)
Dim tbClicked = Ctype(sender, TextBox)
'You can now access any of the properties of the textbox, for example
Dim txt as String = tbClicked.Text
Dim name as String = tbClicked.Name
Dim height as Double = tbClicked.Height
End Sub
- 3 回答
- 0 關(guān)注
- 601 瀏覽
添加回答
舉報
0/150
提交
取消