Re: Loadしたコントロール配列の削除

[コメントツリー表示を見る] [発言時刻順表示を見る]

Posted by Uz on 1998/09/01 17:55:30

In Reply to: Loadしたコントロール配列の削除 Posted by Uz on 1998/08/29 02:48:08

    では、このような方法ではいかがでしょうか? (^_^;;

    Private Sub Form_Load()
    With Combo1 'style = 2
    .AddItem "LOAD"
    .AddItem "UNLOAD"
    End With
    End Sub

    Private Sub Combo1_Click()
    If Combo1.ListIndex = 0 Then
    Debug.Print "Load"
    Call Load(Text1(1))
    With Text1(1)
    .Text = "abc"
    .Top = .Top + .Height
    .Visible = True
    End With
    ElseIf Combo1.ListIndex = 1 Then
    Debug.Print "Unload"
    Call Text1(1).SetFocus
    End If
    End Sub

    Private Sub Text1_GotFocus(Index As Integer)
    Call Unload(Text1(1))
    End Sub