vb6.0 动态添加的按钮控件,如何在下次打开窗体时还在窗体上

ajunajun 2018-06-20 01:09:41
使用下面的命令能够动态添加按钮控件数组:

Dim Maxid As Integer
Private Sub Command1_Click()
Maxid = Maxid + 1 '按钮计数递增。
Load Command2(Maxid) '创建新按钮。
'将新按钮放置在上一个按钮下方。
Command2(Maxid).Move Command2(Maxid - 1).Left, Command2(Maxid - 1).Top + 400
Command2(Maxid).Visible = True '显示新按钮。
Command2(Maxid).Caption = "命令按钮" & Maxid + 1
End Sub


可是,在下次打开窗体时新添加的按钮就不存在了,如何在下次打开窗体时动态添加的控件还在窗体上?
...全文
240 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
笨狗先飞 2018-06-20

Dim Maxid As Integer

Private Sub Command1_Click()
   Maxid = Maxid + 1                        '按钮计数递增。
   Load Command2(Maxid)                      '创建新按钮。
   '将新按钮放置在上一个按钮下方。
   Command2(Maxid).Move Command2(Maxid - 1).Left, Command2(Maxid - 1).Top + 400
   Command2(Maxid).Visible = True                '显示新按钮。
   Command2(Maxid).Caption = "命令按钮" & Maxid + 1
   SaveSetting App.Title, "Config", "Maxid", CStr(Maxid)
End Sub

Private Sub Form_Load()
    Dim S As String, I As Integer
    S = GetSetting(App.Title, "Config", "Maxid", "0")
    If IsNumeric(S) Then Maxid = CInt(S)
    If Maxid > 1 Then
        For I = 1 To Maxid
            Load Command2(I)
            Command2(I).Move Command2(I - 1).Left, Command2(I - 1).Top + 400
            Command2(I).Visible = True
            Command2(I).Caption = "命令按钮" & I + 1
        Next
    End If
End Sub
回复
相关推荐
发帖
控件
创建于2007-09-28

1429

社区成员

VB 控件
申请成为版主
帖子事件
创建了帖子
2018-06-20 01:09
社区公告
暂无公告