vb.net

Public   Class Form1 Class Form1
    Inherits System.Windows.Forms.Form

Windows フォーム デザイナで生成されたコード#Region " Windows フォーム デザイナで生成されたコード "

    Public Sub New()Sub New()
        MyBase.New()

        ' この呼び出しは Windows フォーム デザイナで必要です。
        InitializeComponent()

        ' InitializeComponent() 呼び出しの後に初期化を追加します。

    End Sub

    ' Form は、コンポーネント一覧に後処理を実行するために dispose をオーバーライドします。
    Protected Overloads Overrides Sub Dispose()Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    ' Windows フォーム デザイナで必要です。
    Private components As System.ComponentModel.IContainer

    ' メモ : 以下のプロシージャは、Windows フォーム デザイナで必要です。
    'Windows フォーム デザイナを使って変更してください。  
    ' コード エディタを使って変更しないでください。
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents NameTextBox As System.Windows.Forms.TextBox
    Friend WithEvents AgeTextBox As System.Windows.Forms.TextBox
    Friend WithEvents TelTextBox As System.Windows.Forms.TextBox
    Friend WithEvents ProBtn As System.Windows.Forms.Button
    Friend WithEvents BacBtn As System.Windows.Forms.Button
    Friend WithEvents IndexLabel As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()
        Me.NameTextBox = New System.Windows.Forms.TextBox
        Me.AgeTextBox = New System.Windows.Forms.TextBox
        Me.TelTextBox = New System.Windows.Forms.TextBox
        Me.ProBtn = New System.Windows.Forms.Button
        Me.BacBtn = New System.Windows.Forms.Button
        Me.Label1 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.IndexLabel = New System.Windows.Forms.Label
        Me.Label5 = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'NameTextBox
        '
        Me.NameTextBox.Location = New System.Drawing.Point(162, 80)
        Me.NameTextBox.Name = "NameTextBox"
        Me.NameTextBox.Size = New System.Drawing.Size(216, 19)
        Me.NameTextBox.TabIndex = 0
        Me.NameTextBox.Text = ""
        '
        'AgeTextBox
        '
        Me.AgeTextBox.Location = New System.Drawing.Point(162, 128)
        Me.AgeTextBox.Name = "AgeTextBox"
        Me.AgeTextBox.Size = New System.Drawing.Size(216, 19)
        Me.AgeTextBox.TabIndex = 0
        Me.AgeTextBox.Text = ""
        '
        'TelTextBox
        '
        Me.TelTextBox.Location = New System.Drawing.Point(160, 184)
        Me.TelTextBox.Name = "TelTextBox"
        Me.TelTextBox.Size = New System.Drawing.Size(216, 19)
        Me.TelTextBox.TabIndex = 0
        Me.TelTextBox.Text = ""
        '
        'ProBtn
        '
        Me.ProBtn.Location = New System.Drawing.Point(114, 240)
        Me.ProBtn.Name = "ProBtn"
        Me.ProBtn.Size = New System.Drawing.Size(56, 24)
        Me.ProBtn.TabIndex = 1
        Me.ProBtn.Text = "<--"
        '
        'BacBtn
        '
        Me.BacBtn.Location = New System.Drawing.Point(320, 240)
        Me.BacBtn.Name = "BacBtn"
        Me.BacBtn.Size = New System.Drawing.Size(56, 24)
        Me.BacBtn.TabIndex = 1
        Me.BacBtn.Text = "-->"
        '
        'Label1
        '
        Me.Label1.Font = New System.Drawing.Font("MS UI Gothic", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
        Me.Label1.Location = New System.Drawing.Point(110, 80)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(48, 24)
        Me.Label1.TabIndex = 2
        Me.Label1.Text = "Name:"
        '
        'Label2
        '
        Me.Label2.Font = New System.Drawing.Font("MS UI Gothic", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
        Me.Label2.Location = New System.Drawing.Point(112, 126)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(48, 24)
        Me.Label2.TabIndex = 2
        Me.Label2.Text = "Age:"
        '
        'Label3
        '
        Me.Label3.Font = New System.Drawing.Font("MS UI Gothic", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
        Me.Label3.Location = New System.Drawing.Point(108, 183)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(48, 24)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "Tel:"
        '
        'IndexLabel
        '
        Me.IndexLabel.Location = New System.Drawing.Point(232, 248)
        Me.IndexLabel.Name = "IndexLabel"
        Me.IndexLabel.Size = New System.Drawing.Size(40, 16)
        Me.IndexLabel.TabIndex = 3
        Me.IndexLabel.Text = "1/5"
        '
        'Label5
        '
        Me.Label5.Font = New System.Drawing.Font("MS UI Gothic", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
        Me.Label5.Location = New System.Drawing.Point(200, 32)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(152, 32)
        Me.Label5.TabIndex = 4
        Me.Label5.Text = "人員情報"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)
        Me.ClientSize = New System.Drawing.Size(488, 349)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.IndexLabel)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.ProBtn)
        Me.Controls.Add(Me.NameTextBox)
        Me.Controls.Add(Me.AgeTextBox)
        Me.Controls.Add(Me.TelTextBox)
        Me.Controls.Add(Me.BacBtn)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label3)
        Me.Name = "Form1"
        Me.Text = "人員情報"
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim i As Integer = 0
    Dim j As Integer = 1
    Dim arlist As New ArrayList
    Dim proson As New Collection


    Private Sub ProBtn_Click()Sub ProBtn_Click(ByVal sender As System.Object, _
                             ByVal e As System.EventArgs) _
                             Handles ProBtn.Click
        BacBtn.Enabled = True
        If i < 3 Then
            ProBtn.Enabled = False
            MsgBox("無")
        Else
            i = i - 3
            j = j - 1
        End If
        NameTextBox.Text = arlist.Item(i)
        AgeTextBox.Text = arlist.Item(i + 1)
        TelTextBox.Text = arlist.Item(i + 2)
        IndexLabel.Text = j & "/ 5"

    End Sub

    Private Sub BacBtn_Click()Sub BacBtn_Click(ByVal sender As System.Object, _
                             ByVal e As System.EventArgs) _
                             Handles BacBtn.Click
        ProBtn.Enabled = True
        If i = 12 Then
            BacBtn.Enabled = False
            MsgBox("無")
        Else
            i = i + 3
            j = j + 1
        End If
        NameTextBox.Text = arlist.Item(i)
        AgeTextBox.Text = arlist.Item(i + 1)
        TelTextBox.Text = arlist.Item(i + 2)
        IndexLabel.Text = j & "/ 5"

    End Sub

    Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        proson.Add("s1")
        proson.Add("21")
        proson.Add("013691082219")
        proson.Add("ss2")
        proson.Add("22")
        proson.Add("023691082219")
        proson.Add("sss3")
        proson.Add("23")
        proson.Add("033691082219")
        proson.Add("ssss4")
        proson.Add("24")
        proson.Add("043691082219")
        proson.Add("suns5")
        proson.Add("25")
        proson.Add("053691082219")

        arlist.AddRange(proson)

        NameTextBox.Text = arlist.Item(i)
        AgeTextBox.Text = arlist.Item(i + 1)
        TelTextBox.Text = arlist.Item(i + 2)
        IndexLabel.Text = j & "/" & arlist.Count / 3

    End Sub
End Class