雑記

#サンプルコード 極力おなじコードを書かないようにする方法。

IMG_0921
極力おなじコードを書かないようにする方法。同じオブジェクトを複数配置する場合、クリックした時の処理も同じだったりします。そういう時に同じ処理を何回も書くのはちょっと手間だったりします。オブジェクト名が違うだけのために同様の処理コードを何度も書かなくてはならないなど、面倒くさいので自分は下記のようなコードを書いて同じコードを書かないようにしています。これは例えばの例ですので、他の方法もあると思います。Excelじゃなければもっと大雑把な方法で書くことも可能です。
明日、VSのフリーを使用して同じようなコードなど記載します。もしかすると路線を変更して何かのツールを作るかもしれません(´Д`)。この頃、VSもまともに使用していないので覚えてません・・・・と言うより、感覚的にあれあったなで覚えていますのでググりながらコードを書いてます。スランプ8年目ぐらいになります。もともとスランプでしたのであまり変わらないですね。「えっはい」(゚Д゚)
このコードちょっと意地悪なコードです。(´・ω・`)わかるひとがみると斜め向いたコードだと理解するでしょう(ニヒ、旭化成)
サンプルコードも置いときます。ご自由にお使いください。https://zip358.com/tool/hogeta.zip[DL]

Private Sub CommandButton1_Click()
    cmd_ck CommandButton1, 1
End Sub
Private Sub CommandButton2_Click()
    cmd_ck CommandButton2, 2
End Sub
Private Sub CommandButton3_Click()
    cmd_ck CommandButton3, 3
End Sub
Sub cmd_ck(obj As MSForms.CommandButton, i As Integer)
Dim obj_cmd As MSForms.CommandButton
Set obj_cmd = obj
If obj.Caption = "(-.-)v " & i Then
    obj.Caption = "(-.-)g " & i
Else
    obj.Caption = "(-.-)v " & i
End If
Set obj_cmd = Nothing
End Sub
Private Sub UserForm_Initialize()
Dim cmd As MSForms.CommandButton
Dim ary_cmd As Variant
Dim i As Integer
ary_cmd = Array(CommandButton1, CommandButton2, CommandButton3)
For i = 0 To UBound(ary_cmd)
    Set cmd = ary_cmd(i)
    cmd.Caption = ""
    Set cmd = Nothing
Next
End Sub


まったりWEB日誌動画というYOUTUBEチャンネルがあります。

PHP言語の入門解説や旅ログなどなどいろいろな活動をしていきます。
ご視聴及びチャンネル登録お願いします🙏

YOUTUBEチャンネル➡ まったりWEB日誌動画
➡ YOUTUBEチャンネル登録🙏
➡ PHPレッスン動画手引き

関連記事

  1. 雑記

    ネットのあれを試してみました、バニラアイスと赤ワイン。

    ネットのあれを試してみました、バニラアイスと赤ワイン。バニラアイス…

  2. 雑記

    映画、三度目の●人を観てきました。

    映画、三度目の●人を観てきました。この映画は最後の最後まで真実か嘘…

  3. 雑記

    気持ちが楽になる禅の言葉を読んで。

    気持ちが楽になる禅の言葉を読んで気持ちが楽になるのか?気持ちは楽…

  4. 雑記

    映画、猿の惑星:聖戦記を観てきましたよ。

    映画、猿の惑星:聖戦記を観てきましたよ。おそらく三部作のラストであ…

  5. 雑記

    映画、イミテーション・ゲーム/エニグマと天才数学者の秘密を観てきましたので感想なんかを。 #映画レビ…

    映画、イミテーション・ゲーム/エニグマと天才数学者の秘密を観てきまし…

2015年3月
« 2月 4月 »
 1
2345678
9101112131415
16171819202122
23242526272829
3031 

プロフィール



taokaと申します。

まったりWEB日誌とまったり映画ログを
更新している中の人です😃

趣味は映画鑑賞とブログ書きです。


ブックマークやシェアして頂けると励みになります。

どうぞよろしくお願い致します。

Twitter でフォロー

PAGE TOP