DoboWiki

'ボタンコントロールの配列を作成
Friend testButtons(4) As System.Windows.Forms.Button
 
Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
    Dim i As Integer
 
    'ボタンコントロールのインスタンス作成し、プロパティを設定する
    For i = 0 To 4
        'インスタンス作成
        testButtons(i) = New System.Windows.Forms.Button()
        'プロパティ設定
        testButtons(i).Text = i.ToString()
        testButtons(i).Size = New Size(30, 30)
        testButtons(i).Location = New Point(i * 30, 10)
        'イベントハンドラに関連付け
        AddHandler testButtons(i).Click, AddressOf Me.testButtons_Click
    Next
 
    'フォームにコントロールを追加
    Me.Controls.AddRange(testButtons)
End Sub
 
Private Sub testButtons_Click(ByVal sender As System.Object, ByVal e As EventArgs)
    'クリックされたボタンを表示する
    MsgBox(sender.Text)
End Sub

'ボタンコントロールの配列を作成
Private testButtons(4) As System.Windows.Forms.Button
 
Private Sub Form1_Load(sender As Object, e As System.EventArgs)
        Handles MyBase.Load
   'ボタンコントロールの配列にすでに作成されているインスタンスを代入
   testButtons(0) = Button1
   testButtons(1) = Button2
   testButtons(2) = Button3
   testButtons(3) = Button4
   testButtons(4) = Button5
   
   'イベントハンドラに関連付け
   Dim i As Integer
   For i = 0 To 4
      AddHandler testButtons(i).Click, AddressOf testButtons_Click
   Next i
End Sub
 
Private Sub testButtons_Click(sender As Object, e As EventArgs)
   'クリックされたボタンを表示する
   MessageBox.Show(CType(sender, System.Windows.Forms.Button).Text)
End Sub

''' <summary>
''' コントロールの配列を取得する
''' </summary>
''' <param name="name">後ろの数字を除いたコントロールの名前</param>
''' <returns>コントロールの配列。
''' 取得できなかった時はnull(VB.NETではNothing)。</returns>
Public Function GetControlArrayByName(ByVal name As String) As Object
    Dim ctrs As New System.Collections.ArrayList
    Dim obj As Object
    Dim i As Integer = 1
    While True
        obj = FindControlByFieldName(name + i.ToString())
        i += 1
        If obj Is Nothing Then
            Exit While
        Else
            ctrs.Add(obj)
        End If
    End While
 
    If ctrs.Count = 0 Then
        Return Nothing
    Else
        Return ctrs.ToArray(ctrs(0).GetType())
    End If
End Function
 
''' <summary>
''' このフォームに配置されているコントロールを名前で探す
''' （フォームクラスのフィールドをフィールド名で探す）
''' </summary>
''' <param name="name">コントロール（フィールド）の名前</param>
''' <returns>見つかった時は、コントロールのオブジェクト。
''' 見つからなかった時は、null(VB.NETではNothing)。</returns>
Public Function FindControlByFieldName(ByVal name As String) As Object
    'まずプロパティ名を探し、見つからなければフィールド名を探す
 
    Dim t As System.Type = Me.GetType()
 
    Dim pi As System.Reflection.PropertyInfo = _
        t.GetProperty(name, _
            System.Reflection.BindingFlags.Public Or _
            System.Reflection.BindingFlags.NonPublic Or _
            System.Reflection.BindingFlags.Instance Or _
            System.Reflection.BindingFlags.DeclaredOnly)
 
    If Not pi Is Nothing Then
        Return pi.GetValue(Me, Nothing)
    End If
 
    Dim fi As System.Reflection.FieldInfo = _
        t.GetField(name, _
            System.Reflection.BindingFlags.Public Or _
            System.Reflection.BindingFlags.NonPublic Or _
            System.Reflection.BindingFlags.Instance Or _
            System.Reflection.BindingFlags.DeclaredOnly)
 
    If fi Is Nothing Then
        Return Nothing
    End If
 
    Return fi.GetValue(Me)
End Function

'テキストボックスコントロール配列のフィールド
Dim textBoxArray() As TextBox
'ボタンコントロール配列のフィールド
Dim buttonArray() As Button
 
'フォームのLoadイベントハンドラ
Private Sub Form1_Load(ByVal sender As Object, _
        ByVal e As EventArgs) Handles MyBase.Load
    'テキストボックスコントロールの配列を作成する
    textBoxArray = _
        CType(GetControlArrayByName("TextBox"), TextBox())
    'ボタンコントロールの配列を作成する
    buttonArray = _
        CType(GetControlArrayByName("Button"), Button())
 
    'ボタンをクリックした時にButton_Clickが呼び出されるようにする
    Dim btn As Button
    For Each btn In buttonArray
        AddHandler btn.Click, AddressOf Button_Click
    Next btn
End Sub
 
Private Sub Button_Click( _
    ByVal sender As Object, ByVal e As EventArgs)
    'クリックされたボタンのインデックス番号を取得する
    Dim index As Integer = -1
    Dim i As Integer
    For i = 0 To buttonArray.Length - 1
        If buttonArray(i).Equals(sender) Then
            index = i
            Exit For
        End If
    Next i
 
    '押されたボタンと同じインデックスのテキストボックスのTextを表示する
    If index > -1 Then
        MessageBox.Show(textBoxArray(index).Text)
    End If
End Sub

Dim mm As New System.Web.Mail.MailMessage()
'送信者
mm.From = "sender@xxx.xx.com"
'送信先
mm.To = "recipient1@xxx.xx.com"
'題名
mm.Subject = "テスト"
'本文
mm.Body = "こんにちは。これはテストです。"
'JISコードに変換する
mm.BodyEncoding = System.Text.Encoding.GetEncoding(50220)
'無理やりContent-Transfer-Encoding=7bitとする
mm.Headers("Content-Transfer-Encoding") = "7bit"
'SMTPサーバーを指定する
System.Web.Mail.SmtpMail.SmtpServer = "（SMTPサーバーを指定する）"
'送信する
System.Web.Mail.SmtpMail.Send(mm)

Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
    'PrintDocumentオブジェクトの作成
    Dim pd As New System.Drawing.Printing.PrintDocument
    'PrintControllerプロパティをStandardPrintControllerに
    pd.PrintController = _
        New System.Drawing.Printing.StandardPrintController
    'PrintPageイベントハンドラの追加
    AddHandler pd.PrintPage, AddressOf pd_PrintPage
    '印刷を開始する
    pd.Print()
End Sub
 
Private Sub pd_PrintPage(ByVal sender As Object, _
        ByVal e As System.Drawing.Printing.PrintPageEventArgs)
    '画像を読み込む
    Dim img As Image = Image.FromFile("test.bmp")
    '画像を描画する
    e.Graphics.DrawImage(img, e.MarginBounds)
    '次のページがないことを通知する
    e.HasMorePages = False
    '後始末をする
    img.Dispose()
End Sub