VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 292|回复: 2

在VB中创建和使用动态数组控件

[复制链接]
发表于 2021-1-3 03:35:13 | 显示全部楼层 |阅读模式
本帖最后由 梦灬如幻似真 于 2021-1-3 03:39 编辑

Option Explicit
'在VB中创建和使用动态数组控件
'新建按钮Com1,属性Index=0  Height = 24

Private Sub Com1_Click(Index As Integer)
    Select Case Index
    Case Com1.UBound
        Dim Button As Object
        With Com1(Index)
            .Caption = Index
            Load Com1(Index + 1)
            Set Button = Com1(Index + 1)
            Button.Top = .Top + 30
            Button.Caption = "Add.Exe"
            Button.Visible = True
        End With
    Case Else
        MsgBox "Com" & Index & "_Click"
        '根据 Index的值调用对应的子程序
    End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim i As Integer
    For i = 1 To Com1.UBound
        Unload Com1(i)                  '退出时卸载自动添加的控件
    Next
End Sub
 楼主| 发表于 2021-3-29 10:36:16 | 显示全部楼层
For y = 1 To maxw
    For x = 1 To maxw
        i = i + 1
        Load Pict(i)
      
        With Pict(i)
            .Left = x * w
            .Top = y * w
            .ScaleMode = 3
            .Visible = True
            .DrawWidth = 8
            .DrawStyle = 0
        End With
    Next
Next
回复 支持 反对

使用道具 举报

 楼主| 发表于 2021-3-29 10:36:51 | 显示全部楼层
For y = 1 To maxw
    For x = 1 To maxw
        i = i + 1
        Load Pict(i)
      
        With Pict(i)
            .Left = x * w
            .Top = y * w
            .ScaleMode = 3
            .Visible = True
            .DrawWidth = 8
            .DrawStyle = 0
        End With
    Next
Next
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2021-4-15 10:49

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表