vb.net
来源:互联网 发布:genecards数据库 编辑:程序博客网 时间:2024/04/28 23:22
Public Class Form1Class 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
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
- [VB.NET]VB REDIM
- VB与VB.NET
- VB.Net与VB
- VB与VB.NET
- vb.net
- VB。NET
- vb.net
- vb.net
- vb.net
- vb.net
- VB.net
- VB.NET
- VB.NET
- VB.net
- VB.NET
- VB.NET
- [VB.NET]vb升级到vb.net
- .NET 与VB.NET
- Spring声明式事务配置上去后出现如下报错:java.lang.ClassCastException: $Proxy1解决
- 专访AJAX发明人:AJAX并不适合所有网站
- 我该如何拯救你,我亲爱的自己?!
- 日本的惊人秘密!!!!国人警觉!
- Allegro学习笔记一
- vb.net
- WINDOWS键盘事件上挂接监控函数
- 在dw中显示图片
- 标记不再使用的程序元素(ObsoleteAttribute)
- 临时表的解释
- javaScript错误代码及其解释大全
- VB实现钩子
- RISC 下非对齐访问的问题
- 解决ASP.NET中出现’Sys’ is undefined错误