[VB.NET]vb.net中控件的问题

VB.NET源码-156个实用实例哦…… <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
vb.net中控件的问题
Private Const st As String = "text "
Private oSt As TextBox
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Short
For i = 0 To 1
oSt = CType(st & i + 1, TextBox)
oSt.Text = "1 "
Next
End Sub
有没有办法实现这样的功能。请高手指教
__________________________________________________________________________
For Each ctrl As Control In Me.Controls
If ctrl.GetType.Name = "TextBox " Then
CType(ctrl, TextBox).Text = "Teee "
End If
Next
__________________________________________________________________________
我觉得最好是用控件数组来做:

Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim oSt(80) As TextBox
For i As Integer = 0 To 1
oSt(i) = New TextBox
oSt(i).Text = "1 "
oSt(i).Left = 12 + (oSt(i).Width + 6) * i
oSt(i).Top = 12
Me.Controls.Add(oSt(i))
Next
End Sub

End Class
__________________________________________________________________________
楼上的说得对,用控件数组
__________________________________________________________________________
哦,用textboxArray么,初始化的时候,固定位置么。用控件数组在form上画不上去。
__________________________________________________________________________
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值