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

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
タグ
AM, e As EventArgs, End Sub, For i As Integer, Handles Button1.Click, Handles Button2.Click, Handles Button3.Click, Handles Me.Load, If obj.text, Me.Button1, Me.Button2, Me.Button3, obj As Object, Private Sub, Private Sub Button1_Click, Private Sub Button2_Click, Private Sub Button3_Click, Private Sub Form1_Load, Public Class Form1, sender As Object, Visual Studio Community,
#サンプルコード 極力おなじコードを書かないようにする方法。
2015.03.13

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
タグ
0 To UBound, AM, cmd_ck CommandButton1, cmd_ck CommandButton2, cmd_ck CommandButton3, cmd.Caption, Dim ary_cmd As Variant, Dim cmd As MSForms.CommandButton, Dim i As Integer, Dim obj_cmd As MSForms.CommandButton, End Sub, If obj.Caption, obj As MSForms.CommandButton, Private Sub CommandButton1_Click, Private Sub CommandButton2_Click, Private Sub CommandButton3_Click, Private Sub UserForm_Initialize, Set cmd, Set obj_cmd, オブジェクト, スランプ,