| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 723 人关注过本帖
标题:[转载]关于如何操作其他窗体的控件或变量的方法!
只看楼主 加入收藏
清澂居士
Rank: 6Rank: 6
等 级:贵宾
威 望:28
帖 子:1237
专家分:7
注 册:2006-12-19
收藏
 问题点数:0 回复次数:6 
[转载]关于如何操作其他窗体的控件或变量的方法!

关于如何操作其他窗体的控件或变量的方法!其实解决的方法有很多,在这里只做简单的总结。1. 定义全局变量其实这个方法比较简单也很好理解,我们只要在一个module里面定义了两个全局变量就可以了。例如:public frm1 as new form1() Public frm2 as new form2()这样,我们无论在哪里想访问就很容易了。但是,这样做会耗费比较多的系统资源。一般来说不要使用全局变量。2. 使用shared 前缀使用了shared定义的字段(变量)或者属性可以被其他窗体调用。例如:(假设有窗体form1 和 form2 )在form1中写入:Public Shared m_add As String ‘这样我们在form1的任何地方都可以更改m_add的值
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
m_add = "111"
End Sub
在form2中写入:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(Form1.m_add) ‘显然我们可以得到form1的这个变量了
End Sub
注意:使用shared时,不用定义实例,被定义成shared的变量或属性在所有的实例中都是一个值。就象上面的例子中使用Form1.m_add一样。所以如果是打开很多的同一个窗体的实例时,该值不变化,可以用来记录打开的实例数量。
3.这种方法传递一个窗体实例过去,这样就可以获得该实例的变量与属性了。当然也可以对他们进行操作。
例如:在form1中
Dim frm As New Form2(me)

frm.Show()
在form2中:
Dim m_parent as form1
Public Sub New(ByVal sender As Object)
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
M_parent=ctype(sender,form1) ‘或者m_parent=directcast(sender,form1)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
m_parent.textbox1.text = "1111"
End Sub
4.设置一个属性来控制访问
这种方式在new 一个窗体后,show他出来前设置它的一个公共属性,这个属性就是本窗体的实例。当然也可以不是一个属性而是一个公共的字段。
如:在form1中:
Dim newform as new form2()
Newform.setparentform = me
Newform.show()
在form2中:
Dim m_parentform as form1
Public property setparentform as form1
Get
Return m_parentform
End get
Set (byval value as form1)
m_parentform = value
End set

搜索更多相关主题的帖子: 变量 窗体 控件 定义 全局 
2007-04-18 15:45
ioriliao
Rank: 7Rank: 7Rank: 7
来 自:广东
等 级:贵宾
威 望:32
帖 子:2829
专家分:647
注 册:2006-11-30
收藏
得分:0 
好像不用Shared这个也么...不知道是否默认这个的!

/images/2011/147787/2011051411021524.jpg" border="0" />
2007-04-18 17:08
清澂居士
Rank: 6Rank: 6
等 级:贵宾
威 望:28
帖 子:1237
专家分:7
注 册:2006-12-19
收藏
得分:0 
也么...什么?

佛曰:\"前世的500次回眸才换来今生的一次擦肩而过\".我宁愿用来世的一次擦肩而过来换得今生的500次回眸.
2007-04-18 18:20
zhongmj
Rank: 1
等 级:新手上路
帖 子:29
专家分:0
注 册:2007-4-14
收藏
得分:0 

不用share,直接在引用时指定引用参数就行,比如form1.text1.text

2007-04-18 19:20
ioriliao
Rank: 7Rank: 7Rank: 7
来 自:广东
等 级:贵宾
威 望:32
帖 子:2829
专家分:647
注 册:2006-11-30
收藏
得分:0 

/images/2011/147787/2011051411021524.jpg" border="0" />
2007-04-18 22:03
清澂居士
Rank: 6Rank: 6
等 级:贵宾
威 望:28
帖 子:1237
专家分:7
注 册:2006-12-19
收藏
得分:0 
你尝试下操作变量就知道了```

佛曰:\"前世的500次回眸才换来今生的一次擦肩而过\".我宁愿用来世的一次擦肩而过来换得今生的500次回眸.
2007-04-18 22:09
ioriliao
Rank: 7Rank: 7Rank: 7
来 自:广东
等 级:贵宾
威 望:32
帖 子:2829
专家分:647
注 册:2006-11-30
收藏
得分:0 

form1的代码:
Public a As Integer

Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Form_Load()
a = 10
End Sub
form2的代码:
Private Sub Form_Click()
MsgBox Form1.a
End Sub
没问题啊!
有什么问题呢..你就说清楚些么!


/images/2011/147787/2011051411021524.jpg" border="0" />
2007-04-18 22:23
快速回复:[转载]关于如何操作其他窗体的控件或变量的方法!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018336 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved