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

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

コンボボックスのクリックイベントからでは
Unloadステートメントは実行できないみたいですね。
では、このような方法ではいかがでしょうか？ (^_^;;

'**********************************************************
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

Loadしたコントロール配列の削除 - Ｕｚ 1998/08/29 02:48:08

>>Re: Loadしたコントロール配列の削除 - Ｕｚ 1998/09/01 17:55:30 <<