雑記

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

スクリーンショット-2015-03-13-10.06
極力おなじコードを書かないようにする方法のつづき、明日、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

 

The following two tabs change content below.
zip358と申します。 まったりWEB日誌を更新している中の人です? 趣味は映画鑑賞とブログ書きです、 こちらで生活できるようになるのが目標です。 ブックマークやシェアして頂けると励みになります。 どうぞよろしくお願い致します。

関連記事

  1. 雑記

    ブログ休止して思った事(これから)

    ブログ休止して思った事、今までも何度かブログ休止したことがあるので…

  2. 雑記

    高知県の現状というより自分の現状(´Д`)。

    高知県の現状というよりは自分の現状ですがひとり暮らしする事が今だに…

  3. 雑記

    WOWOWのドラマ予告犯見たんだけど・・・絶対に。

    WOWOWのドラマ予告犯見たんだけど・・・絶対に映画のほうが面白いで…

  4. 雑記

    好き嫌いで仕事や経営しているとどうなる?

    あの頃。あの頃の給料と今の給料とか考えるとなんか複雑な思いがしま…

  5. 雑記

    お一人様ですが何か!?

    小中高の夏休み、もっと遊んでたらと思うよりあの休みの時間、…

2015年3月
 12
3456789
10111213141516
17181920212223
2425262728  

アクセスカウンター😅

とある高知県の気温や湿度

Twitter でフォロー

PAGE TOP