[原创]天天控件学习帖(1)（请勿灌水）

yigepure · 发表于 2006-5-3 02:31

十、Cycle 属性指定当用户离开某框架或 Page 的最后一个控件时所应采取的操作。语法：object.Cycle [= fmCycle] Cycle 属性的语法有以下几个成分：成分说明 object 必需。一个有效对象。 fmCycle 可选。指定该循环是否包括嵌套在框架或多页控件中的对象。 fmCycle 的设置值为：常量值说明 fmCycleAllForms 0 在窗体的控件以及当前显示在窗体中的框架和多页控件的控件上进行的循环 fmCycleCurrentForm 2 在窗体、框架或多页控件中的控件上进行的循环。只要没有将焦点设定到窗体、框架或多页控件以外的控件中，它将一直停留在窗体、框架或多页控件内如果给 Cycle 指定了一个非整数值，该值将被四舍五入为最接近此数的一个整数。说明：当用户在一个窗体或子窗体内跳格时，Tab 键顺序指定控件接收焦点的顺序。当用户从 Tab 键顺序内的最后一个控件上跳走时，Cycle 属性决定了将要采取的操作。当用户从 Tab 键顺序内的最后一个控件上跳走时，fmCycleAllForms 设置将焦点传输至该窗体中的下一个框架或多页控件的第一个控件。当用户从 Tab 键顺序内的最后一个控件上跳走时，fmCycleCurrentForm 设置将焦点传送至同一个窗体、框架或多页控件的第一个控件。示例：演示Cycle属性,在窗体上放二个框架控件，二个命令按钮，框架多放置些文本框。控件\对象 Name属性 Commandbutton1 cmdMoveAll Commandbutton2 cmdMoveCurrent 代码如下： Private Sub cmdMoveAll_Click() Frame1.Cycle = fmCycleAllForms Frame2.Cycle = fmCycleAllForms End Sub Private Sub cmdMoveCurrent_Click() Frame1.Cycle = fmCycleCurrentForm Frame2.Cycle = fmCycleCurrentForm End Sub Private Sub UserForm_Initialize() Frame1.Cycle = fmCycleAllForms Frame2.Cycle = fmCycleAllForms End Sub

yigepure · 发表于 2006-5-3 02:31

十一、InsideHeight、InsideWidth 属性
InsideHeight 返回窗体中客户区的高度，以磅为单位。InsideWidth 返回窗体中客户区的宽度，以磅为单位。
语法： object.InsideHeight object.InsideWidth
说明：InsideHeight 和 InsideWidth 属性是只读的。如果该区含有滚动条，则返回的值不包括滚动条的高度和宽度
示例：将标签控件铺满窗体。在窗体上放置一个标签控件，一个命令按钮。属性设置如下：
控件\对象 Name属性
UserForm1 frmTiled
Label1 lblTiled
Commandbutton1 cmdLabelTiled

Private Sub cmdLabelTited_Click()
Dim Counter As Long

lblTiled.Caption = "窗体最大可用高度: " & frmTiled.InsideHeight & vbCrLf & _
"窗体最大可用宽度: " & frmTiled.InsideWidth
lblTiled.Height = frmTiled.InsideHeight
lblTiled.Width = frmTiled.InsideWidth
lblTiled.Top = 0
lblTiled.Left = 0

For Counter = 1 To 100000
DoEvents
Next Counter

lblTiled.Height = 20
lblTiled.Width = 120
lblTiled.Left = (frmTiled.InsideWidth - 120) / 2
lblTiled.Top = (frmTiled.InsideHeight - 20) / 2

End Sub

yigepure · 发表于 2006-5-3 02:37

五一了好久没有来续帖了。最近有些事情，五一都在讲献礼，我有什么呢？没有，只好凑合着给大家来点吧。动态添加删除控件

VJa49mx2.rar (310.99 KB, 下载次数: 147)

kgdss · 发表于 2006-5-7 20:21

好东东，先下了，学习！

yigepure · 发表于 2006-5-7 23:14

这是我的想法：利用类+公用代码。实现VB控件数组功能。（纯动态控件操作）
做的一个“简易计算器”

请见链接的第9楼

链接第9楼

yigepure · 发表于 2006-5-7 23:27

SpecialEffect Property

gT8YpS2r.rar (8.53 KB, 下载次数: 88)

lkyzhs · 发表于 2006-5-8 00:19

好东西先收下！！！！！！！！！

fanxp · 发表于 2006-5-8 09:57

先收藏！

下班后慢慢品味！

fclyjzyk · 发表于 2006-5-8 12:08

以下是引用[I]yigepure[/I]在2006-4-23 23:12:42的发言：[BR]在学习中发现控件的使用真的很美妙,所以决定对控件进行一下系统仔细的学习,我将每天的学习体会与心得与大家交流及探讨. 先传个小玩艺,让大家感受下它的魅力 控件突显及隐现 所有内容引用：狂想楼（流星Blog) 补充：如果我有哪里表述错误的地方或哪位朋友有补充说明的地方请回复。

楼主这种奉献精神值得我们大家学习，支持！！！！！！！！！！！！

A—009 · 发表于 2006-5-28 14:52

全部收藏慢慢学习消化

		自动登录	找回密码
密码			免费注册