VB6
weixin_42429467
这个作者很懒,什么都没留下…
展开
-
VB6实现用鼠标左键拖动控件移动2021-05-31
VB6实现用鼠标左键拖动控件移动1.添加一个Frame控件,名称改为FamWork,设置成控件数组。(设置成控件数组才能和代码匹配)下面代码实现了用鼠标左键按住Frame控件然后移动Frame的效果。Dim FamOldX As Single: Dim FamOldY As SinglePrivate Sub FamWork_MouseDown(Index As Integer, ...原创 2021-05-31 11:13:10 · 1127 阅读 · 0 评论 -
VB6实现动态增加和删除控件数组中的控件2021-06-02
VB6实现动态多行增加和删除控件Option ExplicitDim S1GlngMaxCharactor As LongDim ChoiceRemove As Long '选择角色移除对象Private Sub CmdAdd()Dim i As Long, n As LongDim MaxCharactor As LongMaxCharactor = 100 '最大控件数For i = 1 To MaxCharactor If fChkContro...原创 2021-06-02 16:17:40 · 1556 阅读 · 0 评论 -
VB6实现控件从一个容器拖拽到另一个容器中2021-06-02
VB实现控件从一个容器拖拽到另一个容器中原创 2021-06-02 19:26:13 · 508 阅读 · 0 评论