記録

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

極力おなじコードを書かないようにする方法のつづき、明日、VS2013で作成したコードをうっぷすると記載しましたが、本日の暇な時間を使って作成しました。コードは下記のとおりです。上記の画像と同じオブジェクト(Button)を作成して下記のコードを貼り付けるとExcelのサンプルコードと同様の処理をします。今回のコードに関してはzipでの配布はしない事にしました。このコードを動かすためにはVisual Studio Community & Express 2013を使用しています(無償版)。ダウンロードしてインストールして動かしてみてください。なお、マイクロソフトにアカウント登録を行わないといけません。MSNメッセンジャーなどを昔使用していた方などは、再度登録する必要はありません。
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        bt_ck(sender, 1)
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        bt_ck(sender, 2)
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        bt_ck(sender, 3)
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim bt_ary() As Button = {Me.Button1, Me.Button2, Me.Button3}
        For i As Integer = 0 To bt_ary.Count
            bt_ary(i).Text = ""
        Next
    End Sub
    Sub bt_ck(obj As Object, i As Integer)
        If obj.text = "(^_^)v " & i Then
            obj.text = "(^_^)g " & i
        Else
            obj.text = "(^_^)v " & i
        End If
    End Sub
End Class
 







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

    ブログが長く続く方法はコレだけど思います。次のページ

    関連記事

    1. 記録

      ポケモンGO、GitHubに続々現れているAPIとかでてるよ。

      昨日、新婚ホヤホヤみたいな夫がPokémon Go(ポケモンGO)を…

    2. 記録

      時間はあるのに時間の無駄遣いをするのは愚者。

      時間はあるのに時間の無駄遣いをするのは愚者だと痛感した。自分は…

    3. 記録

      格安スマホ・SIMで毎月1500円パケット通信使い放題なんですけどね。

      格安スマホ・SIMで毎月1500円パケット通信使い放題なんですけどね…

    4. 記録

      本「シンプルに考える」を読んで。著:森川亮。元LINE社長。

      シンプルに考えるを読んでみてこれから起業するとか、そういう人だけの…

    5. 記録

      ワークアズライフだと思います。

      ワークアズライフだと思います。そんな人はあまり居ないだろうけど、ワ…

    6. 記録

      画面キャプチャの最終形態です、もう限界。

      画面キャプチャの最終形態です、もう限界。ソースは公開しません、前回ま…

    2015年3月
     1
    2345678
    9101112131415
    16171819202122
    23242526272829
    3031  

    カテゴリー

    アーカイブ

    PAGE TOP