検索する

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

2019年01月12日

Logging

VBAオブジェクトを自動生成しイベントを付与する。
サンプルコードです。
ダウンロードはこちら
https://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

タグ

0, １, 10, 20, 200, 358, 5, Add, amp, as, Box, chg, class, com, Control, Controls, ctl, Dim, For, Forms, Height, Integer, LBound, obj, objset, public, sample, set, Sub, Text, TextBox, To, tool, TOP, UBound, UserForm, VBA, Width, zip, イベント, オブジェクト, コード, ここ, こちら, サンプル, ダウンロード, 付与, 変更, 自動生成,

---

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

2019年01月12日

Logging

http://www.girl-in-spidersweb.jp/
ドラゴン・タトゥー女：続編：蜘蛛の巣を払う女を観に行きました。
重厚且つ繊細さを持つ映画、デビッド・フィンチャー総指揮、文句無しです。
やっぱりデビッド・フィンチャー監督は凄いな。

 

タグ

018, 16, 2, 31, 8, AmazonDVD, asin, Blu-ray, com, EZ, girl-in-spidersweb, http, jp, nbsp, qu, Tqhs-, youtube, コレクション, タトゥー, デビッド, ドラゴン, フィンチャー, 女, 映画, 監督, 続編, 総指揮, 繊細, 蜘蛛の巣,

---

ユーモアが聞いている曲

2019年01月12日

Logging

ユーモアが聞いている曲を聞きながら
仕事のことを考えて、。

 

タグ

19, 2, ９, bG, CIc, com, nbsp, szJbM, UP-iX, Wcu, youtube, こと, ユーモア, 仕事, 曲,

---

---

---