textbox1.enabled=false
成都創(chuàng)新互聯(lián)公司是一家專業(yè)提供新邱企業(yè)網(wǎng)站建設(shè),專注與做網(wǎng)站、網(wǎng)站建設(shè)、成都h5網(wǎng)站建設(shè)、小程序制作等業(yè)務(wù)。10年已為新邱眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)的建站公司優(yōu)惠進(jìn)行中。
就行啊,不像MFC那樣為控件分配變量的,直接是 控件.屬性=表達(dá)式
直接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,可以對它進(jìn)行賦值操作了
Msgbox lbl.Name
End If
Next
把變量定義時增加Shared關(guān)鍵字即可.如:
Private
Shared
AAA
As
String
Public
Shared
AAA
As
String
......
這樣AAA在一個應(yīng)用程序里就是公用的.
------------------------------------------------------
補(bǔ)充:
不可能沒用,我都是這樣做的.
該控件使用中,自己看吧:
Public
Class
CMB_MemoryTextBox
Inherits
TextBox
#Region
"
變量定義
"
Private
Shared
p_HisData
As
STRU_DATA
'用數(shù)據(jù)表保存所有控件的歷史記錄
Private
Shared
p_FileName
As
String
'保存歷史記錄的文件名
......
這個簡單。
在VB.net中,每個事件都對應(yīng)有兩個參數(shù):sender 和 e 。提取 sender 參數(shù)信息就可以獲取控件名稱。如果不理解其中機(jī)制,你直接 msgbox(sender) 將其輸出,就能查看其中玄機(jī)。
獲取控件名稱代碼:CType(sender, Control).Name。