窗体标题名随字段名自动更新示例

huangqinyong

游客，如果您要查看本帖隐藏内容请回复

ACMAIN_CHM

好




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

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

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

Me.Form.Caption = me.text0

asklove

现在真贵啊
一下载就扣钱，还是以前好，讲明付费的才扣钱
这样下去例子看不起了

todaynew

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

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





代码：

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

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

34794

34795

代码：

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

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

todaynew

呵呵，马上3.15了。

ycxchen

同意4楼的

aalons

看起来不错

weikitwong

好东西