[原创分享]: ControlsAnchor.cls V1.2(终结版)

[bcrun]

嘻嘻，喜欢这种分享的，欢迎去http://my.csdn.net/bcrun关注我哦

本代码是在VB6中模仿了.net框架里控件Anchor属性的功能。目前这个1.2版为最终版本。本代码以后不会新增功能，只会在有BUG要修改时更新。
对于不了解Anchor属性的朋友，可参看截图，当然更好的办法是读下.net联机帮助和后面带的源代码。
实现上，在内部使用时，还有过增加了layout功能的代码，但那些严格说来已经不限于Anchor，更应该放到一个稍大些的项目中去了。

相应的博客文章：[原创分享]: ControlsAnchor.cls V1.2(终结版)
代码下载：[原创分享]: ControlsAnchor.cls V1.2


resize后

[u012322362]

zhende 支持一下

[舉杯邀明月]

有情围观一下………………

[oTongHua1]

- - 感谢楼主分享

[lhx1054176946]

看到这个帖子真开心

[wjwanshih]

写的太好啦，我是打酱油的

[wenru48]

感谢楼主的分享。

[w1278615271]

谢谢楼主 dd

[g_cr]

test

[hugh_z]

learning

[Alcoholsong]

谢谢楼主,技术性很强啊

[bcrun]

引用 46 楼 hddsh 的回复:

感谢LZ的无私奉献。 在使用的过程中我遇到了一个问题，例如在From1中加入的一下代码： Private Sub cmdOk_Click() Text1.Text = Right("12345", 3) End Sub 就会发生 "发现二义性的名称:right" 这样的错误，我是初学者，不清楚如何解决，烦请指教，谢谢！

这是因为我的类里定义了名字为Right的常量。一般地，遇到这种情况，你可以按F2进对象浏览器里，查到相应的标识符（这里是Right函数）所在的库名(这里是VBA)作为前面限定范围加上去，具体如下

Private Sub cmdOk_Click()
    Text1.Text = VBA.Right("12345", 3)
End Sub

BTW，在.net里，类似的枚举常量引用时，相应的限定名是必须写上的，这总得来说更严谨，不过这也是某些图简单的同学讨厌vb.net的地方

[threenewbee]

引用 47 楼 bcrun 的回复:

[quote=引用 46 楼 hddsh 的回复:] 感谢LZ的无私奉献。 在使用的过程中我遇到了一个问题，例如在From1中加入的一下代码： Private Sub cmdOk_Click() Text1.Text = Right("12345", 3) End Sub 就会发生 "发现二义性的名称:right" 这样的错误，我是初学者，不清楚如何解决，烦请指教，谢谢！

这是因为我的类里定义了名字为Right的常量。一般地，遇到这种情况，你可以按F2进对象浏览器里，查到相应的标识符（这里是Right函数）所在的库名(这里是VBA)作为前面限定范围加上去，具体如下

Private Sub cmdOk_Click()
    Text1.Text = VBA.Right("12345", 3)
End Sub

BTW，在.net里，类似的枚举常量引用时，相应的限定名是必须写上的，这总得来说更严谨，不过这也是某些图简单的同学讨厌vb.net的地方[/quote] 枚举是枚举，常量是常量。VB6不支持枚举印象中。

[hddsh]

加了VBA.的确解决问题了，谢谢！

[hddsh]

感谢LZ的无私奉献。
在使用的过程中我遇到了一个问题，例如在From1中加入的一下代码：

Private Sub cmdOk_Click()
    Text1.Text = Right("12345", 3)
End Sub

就会发生 "发现二义性的名称:right" 这样的错误，我是初学者，不清楚如何解决，烦请指教，谢谢！

[bcrun]

引用 48 楼 caozhy 的回复:

枚举是枚举，常量是常量。VB6不支持枚举印象中。

你竟然这样说，看来已经忘记部分VB语法了。我有时就会这样写： Call MsgBox("hi", VbMsgBoxStyle.vbOKOnly Or VbMsgBoxStyle.vbInformation) 这里就显式用到了Enum VbMsgBoxStyle

[threenewbee]

引用 50 楼 bcrun 的回复:

[quote=引用 48 楼 caozhy 的回复:] 枚举是枚举，常量是常量。VB6不支持枚举印象中。

你竟然这样说，看来已经忘记部分VB语法了。我有时就会这样写： Call MsgBox("hi", VbMsgBoxStyle.vbOKOnly Or VbMsgBoxStyle.vbInformation) 这里就显式用到了Enum VbMsgBoxStyle [/quote] 好像还真有。 但是居然可以省略不写，直接写枚举成员。 匪夷所思。

[bcrun]

引用 51 楼 caozhy 的回复:

但是居然可以省略不写，直接写枚举成员。
匪夷所思。

不用匪夷所思了，印象中强类型语言中一般都有枚举这个东西(如c,pascal)，但大多可以省略不写枚举类型名称，甚至还有不支持写类型名称的，比如pascal.郁闷了吧，用第三方包时要多考虑名称冲突问题。唉，悲剧的pascal/delphi到现在都还没有namespace/package吧，只有一个古老的unit语法。

这方面，后来的.net中各语言可能就是在这方面做了改进的强制规定（不过不强制是否更好呢，估计没有完美的方案）。

[Jayz_YU]

好东西啊……

[喜之郎111]

好贴！顶一个~~~~~~~~

[lashengcrh]