Office中国论坛/Access中国论坛

标题: 【Access小品】只顾眼前---选项卡当前页标签提醒 [打印本页]

作者: todaynew 时间: 2010-9-7 09:43
标题: 【Access小品】只顾眼前---选项卡当前页标签提醒
　　冰花雪虹同志希望选项卡控件的某一页成为当前时，该页的标签字体加粗或变色。由于选项卡各页的标签没有对应的属性可以设置，所以实现起来不太容易。想了想，变色也好加粗也罢，不过是一种提示，既然这样便可以通过各页的Caption属性值进行一些设置，使得当前页与非当前页可以区别开来。于是作此实例以供冰花雪虹同志及其他初学者参考。

[attach]43360[/attach]

[attach]43361[/attach]

作者: tmtony 时间: 2010-9-7 10:03
好办法, 变相实现.!!

作者: lovehere 时间: 2010-9-7 10:15
学习一下，这个用的上，感谢版主分享

作者: xuwenning 时间: 2010-9-7 10:43
学习学习
谢谢分享

作者: yanwei82123300 时间: 2010-9-7 14:48
学习学习
谢谢分享

作者: asklove 时间: 2010-9-7 16:03
学习

作者: ycxchen 时间: 2010-9-7 17:34
todaynew又出大作了！

作者: li08hua 时间: 2010-9-9 01:51
很好！

作者: 石三少 时间: 2010-9-9 09:18
老头不是多产了，是超多产！

作者: 简 时间: 2011-4-4 08:33
本帖最后由简于 2011-4-4 08:35 编辑

怎么下载来无法运行呢，提示说不是有效的路径~~~~怪事。

作者: todaynew 时间: 2011-4-4 15:56

简发表于 2011-4-4 08:33
怎么下载来无法运行呢，提示说不是有效的路径~~~~怪事。

你的Offic可能需要重装。

作者: 简 时间: 2011-4-24 10:35
我看了下，你是通过把页名称赋给页标题来达到上述效果。
如果页名称是英文，页标题是汉字，这二者如何兼顾呢。

作者: 简 时间: 2011-4-24 11:28
我把你这个实例改了下，通过对Tag的判断，来做出对选项卡当前页标签的提醒。

[attach]45409[/attach]

代码修改如下：
Private Sub 选项卡控件0_Change()
Dim n As Long
n = Me.选项卡控件0.Value
Me.选项卡控件0.Pages(n).Caption = "【" & Me.选项卡控件0.Pages(n).Tag & "】"
PCaption Me.选项卡控件0, Me.选项卡控件0.Pages(n).Tag
End Sub

Function PCaption(ctl As Control, Pname As String)
Dim p As Page
For Each p In ctl.Pages
If p.Tag <> Pname Then
p.Caption = p.Tag
End If
Next
End Function

改过的实例见附件：
[attach]45410[/attach]

不知如何，还请多多指教。

作者: 轻风 时间: 2011-11-9 16:06
改用2010，轻松解决。

作者: changweiren 时间: 2011-12-3 14:44
刚才见教

作者: huxinhua 时间: 2012-1-10 13:33
学习学习
谢谢分享

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