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

2013-09-30 05:55:56 3.3k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

十三、FLUENT蒸发/冷凝模型实战：从沸腾模拟到常温蒸发的UDF进阶本文深入探讨FLUENT蒸发/冷凝模型的应用实践，从沸腾模拟到常温蒸发的UDF进阶。通过分析相变模型的核心逻辑、关键陷阱及UDF动态饱和温度场的实现，帮助工程师准确模拟不同场景下的蒸发/冷凝过程。结合太阳能蒸馏器等工程案例，提供优化方案和常见问题解决方案，显著提升模拟精度与效率。阅读详情

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

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

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

resize后

...全文

高通拨号流程介绍本文介绍了高通平台（如SDX55）中APSS（A7处理器）与ModEM（Q6处理器）间的通信机制。阅读详情

bcrun

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

lashengcrh 2013-12-18

打赏
举报

喜之郎111 2013-10-11

打赏
举报

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

Jayz_YU 2013-10-10

打赏
举报

好东西啊……

bcrun 2013-10-08

打赏
举报

引用 51 楼 caozhy 的回复:

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

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

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

threenewbee 2013-10-08

打赏
举报

引用 50 楼 bcrun 的回复:

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

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

bcrun 2013-10-08

打赏
举报

引用 48 楼 caozhy 的回复:

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

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

hddsh 2013-10-05

打赏
举报

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

Private Sub cmdOk_Click()

    Text1.Text = Right("12345", 3)

End Sub

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

hddsh 2013-10-05

打赏
举报

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

threenewbee 2013-10-05

打赏
举报

引用 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不支持枚举印象中。

bcrun 2013-10-05

打赏
举报

引用 46 楼 hddsh 的回复:

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

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

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

Alcoholsong 2013-10-03

打赏
举报

谢谢楼主,技术性很强啊

hugh_z 2013-10-03

打赏
举报

learning

g_cr 2013-10-03

打赏
举报

test

w1278615271 2013-10-03

打赏
举报

谢谢楼主 dd

wenru48 2013-10-03

打赏
举报

感谢楼主的分享。

wjwanshih 2013-10-03

打赏
举报

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

lhx1054176946 2013-10-03

打赏
举报

看到这个帖子真开心

oTongHua1 2013-10-03

打赏
举报

- - 感谢楼主分享

舉杯邀明月 2013-10-03

打赏
举报

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

u012322362 2013-10-03

打赏
举报

zhende 支持一下

加载更多回复（22）

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

相关推荐