Office中国论坛/Access中国论坛

标题: 窗体标题名随字段名自动更新示例 [打印本页]

作者: huangqinyong 时间: 2009-2-3 15:16
标题: 窗体标题名随字段名自动更新示例
本帖最后由 huangqinyong 于 2009-2-3 15:21 编辑

[attach]34791[/attach]

作者: ACMAIN_CHM 时间: 2009-2-3 15:40
好

******************
* 一切皆有可能 *
******************

QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

作者: todaynew 时间: 2009-2-3 15:44
本帖最后由 todaynew 于 2009-2-3 15:45 编辑

我来猜猜看，是这样条语句吧？

Me.Form.Caption = me.text0

作者: asklove 时间: 2009-2-3 15:51
现在真贵啊
一下载就扣钱，还是以前好，讲明付费的才扣钱
这样下去例子看不起了

作者: todaynew 时间: 2009-2-3 16:40
本帖最后由 todaynew 于 2009-2-3 16:44 编辑

现在真贵啊
一下载就扣钱，还是以前好，讲明付费的才扣钱
这样下去例子看不起了
asklove 发表于 2009-2-3 15:51

没关系我给你一个不要钱的，呵呵。不仅窗体名称可以变，按纽、文本框的标签也可以变。

[attach]34794[/attach]

[attach]34795[/attach]

代码：

Private Sub Command2_Click()
If Me.Command2.Caption <> "取消" And Not (IsNull(Me.Text0)) Then
Me.Form.Caption = Me.Text0
Me.Label1.Caption = "名称"
Me.Command2.Caption = "取消"
Else
Me.Form.Caption = "窗体2：窗体"
Me.Label1.Caption = "Text0:"
Me.Text0 = "请输入窗体名称"
Me.Command2.Caption = "换名"
End If
End Sub

作者: huangqinyong 时间: 2009-2-3 19:06

没关系我给你一个不要钱的，呵呵。不仅窗体名称可以变，按纽、文本框的标签也可以变。

34794

34795

代码：

Private Sub Command2_Click()
If Me.Command2.Caption "取消" And Not (IsNull(Me ...
todaynew 发表于 2009-2-3 16:40

下载实例，还是要扣２个大洋的，还是看代码的吧，不过我那个代码与todaynew的有所不同，但原理相似，哈哈哈，todaynew你跟我抢生意啊！！！哈哈哈，小心我到消费者协会去投诉．

作者: todaynew 时间: 2009-2-3 20:00
呵呵，马上3.15了。

作者: ycxchen 时间: 2009-2-3 22:17
同意4楼的

作者: aalons 时间: 2009-2-6 13:22
看起来不错

作者: weikitwong 时间: 2010-9-25 19:50
好东西

作者: aslxt 时间: 2010-9-25 23:04
不知道怎么应用，可以距离吗？

作者: 付谦 时间: 2010-9-26 06:53
学习

作者: xie62 时间: 2010-9-26 08:00
看起来不错

作者: yanwei82123300 时间: 2012-1-9 21:42
看看再说

作者: h150085001 时间: 2012-1-10 09:55
看看

作者: huxinhua 时间: 2012-1-11 08:12
好东西

作者: huxinhua 时间: 2012-1-11 08:13
看看再说

作者: chenyelkh 时间: 2012-1-12 09:52

作者: flyfans 时间: 2012-1-16 13:08
好东西自然要支持

作者: william_yao 时间: 2012-5-15 13:05
学习一下！！

作者: HOCKHE 时间: 2012-6-7 14:04
1024

作者: 小桥人家 时间: 2013-6-2 20:06
重点学习中

作者: 半点 时间: 2014-8-24 21:55
谢谢，看看。

作者: 小何 时间: 2020-1-13 10:01
5232542

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)