01.<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
02.Partial Class Form1
03. Inherits System.Windows.Forms.Form
04.
05.
06. <System.Diagnostics.DebuggerNonUserCode()> _
07. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
08. Try
09. If disposing AndAlso components IsNot Nothing Then
10. components.Dispose()
11. End If
12. Finally
13. MyBase.Dispose(disposing)
14. End Try
15. End Sub
16.
17.
18. Private components As System.ComponentModel.IContainer
19.
20.
21.
22.
23. <System.Diagnostics.DebuggerStepThrough()> _
24. Private Sub InitializeComponent()
25. Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
26. Me.DataGridView1 = New System.Windows.Forms.DataGridView()
27. Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
28. Me.Column2 = New System.Windows.Forms.DataGridViewComboBoxColumn()
29. Me.Column3 = New System.Windows.Forms.DataGridViewComboBoxColumn()
30. Me.Column4 = New System.Windows.Forms.DataGridViewButtonColumn()
31. CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
32. Me.SuspendLayout()
33.
34.
35.
36. Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
37. Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Column2, Me.Column3, Me.Column4})
38. Me.DataGridView1.Location = New System.Drawing.Point(43, 53)
39. Me.DataGridView1.Name = "DataGridView1"
40. Me.DataGridView1.Size = New System.Drawing.Size(431, 272)
41. Me.DataGridView1.TabIndex = 0
42.
43.
44.
45. Me.Column1.HeaderText = "IP/DNS"
46. Me.Column1.Name = "Column1"
47.
48.
49.
50. Me.Column2.HeaderText = "Port"
51. Me.Column2.Items.AddRange(New Object() {"1001", "1002", "1003", "1004", "1005", "1006"})
52. Me.Column2.Name = "Column2"
53. Me.Column2.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
54. Me.Column2.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
55.
56.
57.
58. Me.Column3.HeaderText = "Status"
59. Me.Column3.Items.AddRange(New Object() {"เชื่อมต่อ", "ไม่เชื่อมต่อ"})
60. Me.Column3.Name = "Column3"
61.
62.
63.
64. DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
65. DataGridViewCellStyle2.NullValue = "Delete"
66. Me.Column4.DefaultCellStyle = DataGridViewCellStyle2
67. Me.Column4.HeaderText = "Delete"
68. Me.Column4.Name = "Column4"
69. Me.Column4.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
70. Me.Column4.Width = 60
71.
72.
73.
74. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
75. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
76. Me.ClientSize = New System.Drawing.Size(852, 417)
77. Me.Controls.Add(Me.DataGridView1)
78. Me.Name = "Form1"
79. Me.Text = "Form1"
80. CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
81. Me.ResumeLayout(False)
82.
83. End Sub
84. Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
85. Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn
86. Friend WithEvents Column2 As System.Windows.Forms.DataGridViewComboBoxColumn
87. Friend WithEvents Column3 As System.Windows.Forms.DataGridViewComboBoxColumn
88. Friend WithEvents Column4 As System.Windows.Forms.DataGridViewButtonColumn
89.
90.End Class
Code (VB.NET)
ขอบคุณหลายๆครับ แล้วถ้าผมต้องการแก้เพิ่มเติมล่ะครับ ต้องแก้ตรงใน หรือแก้โค้ดที่ส่งมาใน ไดร์ฟ google
