VB6フォームで現在アクティブなコントロールを取得または設定する

スポンサーリンク

VB6 では、読み取り専用プロパティですので、取得のみ可能です。

サンプルコード

以下にサンプルコードを示します。

VB6.0 以前
    ' このフォームで現在アクティブなコントロールを取得する
    Dim cControl As Control
    Set cControl = Me.ActiveControl

    ' 取得できた場合のみ、そのコントロールの名前を表示する
    If Not cControl Is Nothing Then
        Call MsgBox(cControl.Name)
    End If

関連するリファレンス

準備中です。

スポンサーリンク