重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
把变量定义时增加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
'保存历史记录的文件名
......
假设你的listview的名称为listview1,变量为a(3)
代码为
for i=1 to listview1.ListItems.count
k=0
if listview1.ListItems(i).Checked=True then
k=k+1
a(k)=listview1.ListItems(i).SubItems(1)
end f
next
直接
你在代码中的DataGridView = DataGridView1
不过,这样不好的是,更改你在代码中的DataGridView,窗体上的DataGridView1也会更改,建议还是一个一个写。
教你一个办法,打开Form1.Designer.vb,把DateGridView1那里的代码(用查找找' DateGridView1)全部复制下来,再把名称改掉就可以了,也相当于复制啦