記録

VBAオブジェクトを自動生成しイベントを付与する。

VBAオブジェクトを自動生成しイベントを付与する。
サンプルコードです。
ダウンロードはこちら
https://www.zip358.com/tool/sample.zip

Dim chg_class(0 To 5) As chg
Public Sub objset()
Dim obj_ctl As Control
Dim i As Integer
For i = LBound(chg_class) To UBound(chg_class)
    Set obj_ctl = UserForm1.Controls.Add("Forms.TextBox.1", "Box" & i)
    obj_ctl.Top = 10 + 20 * i
    obj_ctl.Width = 200
    obj_ctl.Height = 20
    obj_ctl.Text = "ここを変更してみて、またはダブルクリック(" & i & "番)"
    Set chg_class(i) = New chg
    chg_class(i).set_evn obj_ctl, i
    Set obj_ctl = Nothing
Next i
End Sub
Private WithEvents TextB As MSForms.TextBox
Private index_no As Integer
Public Sub set_evn(hoge_obj As MSForms.TextBox, hoge As Integer)
    Set TextB = hoge_obj
    index_no = hoge
End Sub
Private Sub TextB_Change()
    MsgBox TextB.Text 'UserForm1("Box" & index_no)
End Sub
Private Sub TextB_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    MsgBox TextB.Text 'UserForm1("Box" & index_no)
End Sub
Private Sub TextBox1_Change()
MsgBox TextBox1
End Sub
Private Sub CommandButton1_Click()
End Sub
Private Sub UserForm_Click()
End Sub

ドラゴン・タトゥー女:続編:蜘蛛の巣を払う女。前のページ

この道を観てきましたよ #映画次のページ

関連記事

  1. 記録

    エンジニアはクラウドなんたらで働くより稼げる方法。

    フリーランスのエンジニアはクラウドなんたらで働くより稼げる方…

  2. 記録

    アニメ映画、「父を探して」おそらく高知県では上映されないであろう。

    アニメ映画、「父を探して」おそらく高知県では上映されないであろう。…

  3. 記録

    画面キャプチャのフリーソフトに目からウロコ、自作してみた。

    画面キャプチャのフリーソフトに目からウロコ、自分も自作してみた。作…

  4. 記録

    大塚家具のお家騒動、ぼそぼそと。

    大塚家具のお家騒動でもめてますけど、結局どうなるかは株主しだいって事…

  5. 記録

    WPの記事を検索し一括カテゴリ変更する方法。

    WPの記事を検索し一括カテゴリ変更する方法は下記になります。ワ…

  6. 記録

    次の一手を惜しみなく話すのが。

    次の一手を惜しみなく話すのが一流で次の一手を話さないのが二流。も…

PAGE TOP