| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 421 人关注过本帖
标题:vb 有三个窗体ABC,A和B各有按钮进入C窗口,在C窗口有多个按钮
只看楼主 加入收藏
hackcan
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2009-1-9
收藏
 问题点数:0 回复次数:2 
vb 有三个窗体ABC,A和B各有按钮进入C窗口,在C窗口有多个按钮
假如是从A窗口点击进入的C窗口,则在C窗口上点击按钮时,在A窗口的textbox里显示按钮的caption
如果是从B窗口进入的C窗口,点击按钮时,是在B窗口的textbox里显示按钮的caption,

请问各位高手如何实现?

[ 本帖最后由 hackcan 于 2015-7-30 15:46 编辑 ]
搜索更多相关主题的帖子: 如何 
2015-07-30 15:40
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
form3 的代码:

程序代码:
Option Explicit

Public TxtBoxObj As TextBox                '保存着用来显示内容的对象引用

Private Sub Command1_Click()
    On Error Resume Next
    TxtBoxObj.Text = Command1.Caption
End Sub


二个窗体上的按钮代码是一样的,内容是:
程序代码:
Private Sub Command1_Click()
Load Form3                        '加载
Set Form3.TxtBoxObj = Text1        '设置显示对象
Form3.Show                        '显示窗体
End Sub

授人于鱼,不如授人于渔
早已停用QQ了
2015-07-30 16:01
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:0 
这貌似很简单的。
在c窗口里写一个public类型的sub用于接收不同窗口里传来的text控件即可,c窗口里的代码如下:
Dim ttt As TextBox
Public Sub abcd(tin As TextBox)
  Set ttt = tin
  Me.Show
End Sub

Private Sub Command1_Click()
  ttt = Command1.Caption  '往不同窗口的text控件里写caption
End Sub


Private Sub Command2_Click()
  ttt = ""   '清空不同窗口里的text控件文本
End Sub


a、b窗口打开c窗口的代码为:Form3.abcd Text1   '假定Form3为c窗口名称




[ 本帖最后由 wmf2014 于 2015-7-30 16:06 编辑 ]

能编个毛线衣吗?
2015-07-30 16:04
快速回复:vb 有三个窗体ABC,A和B各有按钮进入C窗口,在C窗口有多个按钮
数据加载中...
 
   



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

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