大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
字符串加变量?还是用类似于VB6的控件数组方便些:
成都创新互联公司专注于企业网络营销推广、网站重做改版、孟州网站定制设计、自适应品牌网站建设、H5技术、成都商城网站开发、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为孟州等各大城市提供网站开发制作服务。
Dim lbl() = { Label1, Label2, Label3, .... } '先将窗体上的Label控件定义为数组
i=1
lbl(i).Text = "xxxx" '然后当作控件数组来用
textbox1.enabled=false
就行啊,不像MFC那样为控件分配变量的,直接是 控件.属性=表达式
直接For就行了
Dim ctl As Control
Dim lbl as Label
For Each ctl In Me.Controls
If ctl.GetType.ToString = "System.Windows.Forms.Label" Then
lbl = CType(ctl,Label)
'得到一个Label,可以对它进行赋值操作了
Msgbox lbl.Name
End If
Next
把变量定义时增加Shared关键字即可.如:
Private
Shared
AAA
As
String
Public
Shared
AAA
As
String
......
这样AAA在一个应用程序里就是公用的.
------------------------------------------------------
补充:
不可能没用,我都是这样做的.
该控件使用中,自己看吧:
Public
Class
CMB_MemoryTextBox
Inherits
TextBox
#Region
"
变量定义
"
Private
Shared
p_HisData
As
STRU_DATA
'用数据表保存所有控件的历史记录
Private
Shared
p_FileName
As
String
'保存历史记录的文件名
......