form2.vb

来自「vb 应用实例 简单应用 dddddddddddddddddddddddddd」· VB 代码 · 共 240 行 · 第 1/2 页

        Me.TextBox2.AccessibleName = CType(resources.GetObject("TextBox2.AccessibleName"), String)
        Me.TextBox2.Anchor = CType(resources.GetObject("TextBox2.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.TextBox2.AutoSize = CType(resources.GetObject("TextBox2.AutoSize"), Boolean)
        Me.TextBox2.BackgroundImage = CType(resources.GetObject("TextBox2.BackgroundImage"), System.Drawing.Image)
        Me.TextBox2.Dock = CType(resources.GetObject("TextBox2.Dock"), System.Windows.Forms.DockStyle)
        Me.TextBox2.Enabled = CType(resources.GetObject("TextBox2.Enabled"), Boolean)
        Me.TextBox2.Font = CType(resources.GetObject("TextBox2.Font"), System.Drawing.Font)
        Me.TextBox2.ImeMode = CType(resources.GetObject("TextBox2.ImeMode"), System.Windows.Forms.ImeMode)
        Me.TextBox2.Location = CType(resources.GetObject("TextBox2.Location"), System.Drawing.Point)
        Me.TextBox2.MaxLength = CType(resources.GetObject("TextBox2.MaxLength"), Integer)
        Me.TextBox2.Multiline = CType(resources.GetObject("TextBox2.Multiline"), Boolean)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.PasswordChar = CType(resources.GetObject("TextBox2.PasswordChar"), Char)
        Me.TextBox2.RightToLeft = CType(resources.GetObject("TextBox2.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.TextBox2.ScrollBars = CType(resources.GetObject("TextBox2.ScrollBars"), System.Windows.Forms.ScrollBars)
        Me.TextBox2.Size = CType(resources.GetObject("TextBox2.Size"), System.Drawing.Size)
        Me.TextBox2.TabIndex = CType(resources.GetObject("TextBox2.TabIndex"), Integer)
        Me.TextBox2.Text = resources.GetString("TextBox2.Text")
        Me.TextBox2.TextAlign = CType(resources.GetObject("TextBox2.TextAlign"), System.Windows.Forms.HorizontalAlignment)
        Me.TextBox2.Visible = CType(resources.GetObject("TextBox2.Visible"), Boolean)
        Me.TextBox2.WordWrap = CType(resources.GetObject("TextBox2.WordWrap"), Boolean)
        '
        'DataGrid1
        '
        Me.DataGrid1.AccessibleDescription = CType(resources.GetObject("DataGrid1.AccessibleDescription"), String)
        Me.DataGrid1.AccessibleName = CType(resources.GetObject("DataGrid1.AccessibleName"), String)
        Me.DataGrid1.Anchor = CType(resources.GetObject("DataGrid1.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.DataGrid1.BackgroundImage = CType(resources.GetObject("DataGrid1.BackgroundImage"), System.Drawing.Image)
        Me.DataGrid1.CaptionFont = CType(resources.GetObject("DataGrid1.CaptionFont"), System.Drawing.Font)
        Me.DataGrid1.CaptionText = resources.GetString("DataGrid1.CaptionText")
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.Dock = CType(resources.GetObject("DataGrid1.Dock"), System.Windows.Forms.DockStyle)
        Me.DataGrid1.Enabled = CType(resources.GetObject("DataGrid1.Enabled"), Boolean)
        Me.DataGrid1.Font = CType(resources.GetObject("DataGrid1.Font"), System.Drawing.Font)
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.ImeMode = CType(resources.GetObject("DataGrid1.ImeMode"), System.Windows.Forms.ImeMode)
        Me.DataGrid1.Location = CType(resources.GetObject("DataGrid1.Location"), System.Drawing.Point)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.RightToLeft = CType(resources.GetObject("DataGrid1.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.DataGrid1.Size = CType(resources.GetObject("DataGrid1.Size"), System.Drawing.Size)
        Me.DataGrid1.TabIndex = CType(resources.GetObject("DataGrid1.TabIndex"), Integer)
        Me.DataGrid1.Visible = CType(resources.GetObject("DataGrid1.Visible"), Boolean)
        '
        'Button1
        '
        Me.Button1.AccessibleDescription = CType(resources.GetObject("Button1.AccessibleDescription"), String)
        Me.Button1.AccessibleName = CType(resources.GetObject("Button1.AccessibleName"), String)
        Me.Button1.Anchor = CType(resources.GetObject("Button1.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.Button1.BackgroundImage = CType(resources.GetObject("Button1.BackgroundImage"), System.Drawing.Image)
        Me.Button1.Dock = CType(resources.GetObject("Button1.Dock"), System.Windows.Forms.DockStyle)
        Me.Button1.Enabled = CType(resources.GetObject("Button1.Enabled"), Boolean)
        Me.Button1.FlatStyle = CType(resources.GetObject("Button1.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.Button1.Font = CType(resources.GetObject("Button1.Font"), System.Drawing.Font)
        Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
        Me.Button1.ImageAlign = CType(resources.GetObject("Button1.ImageAlign"), System.Drawing.ContentAlignment)
        Me.Button1.ImageIndex = CType(resources.GetObject("Button1.ImageIndex"), Integer)
        Me.Button1.ImeMode = CType(resources.GetObject("Button1.ImeMode"), System.Windows.Forms.ImeMode)
        Me.Button1.Location = CType(resources.GetObject("Button1.Location"), System.Drawing.Point)
        Me.Button1.Name = "Button1"
        Me.Button1.RightToLeft = CType(resources.GetObject("Button1.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.Button1.Size = CType(resources.GetObject("Button1.Size"), System.Drawing.Size)
        Me.Button1.TabIndex = CType(resources.GetObject("Button1.TabIndex"), Integer)
        Me.Button1.Text = resources.GetString("Button1.Text")
        Me.Button1.TextAlign = CType(resources.GetObject("Button1.TextAlign"), System.Drawing.ContentAlignment)
        Me.Button1.Visible = CType(resources.GetObject("Button1.Visible"), Boolean)
        '
        'Form2
        '
        Me.AccessibleDescription = CType(resources.GetObject("$this.AccessibleDescription"), String)
        Me.AccessibleName = CType(resources.GetObject("$this.AccessibleName"), String)
        Me.Anchor = CType(resources.GetObject("$this.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.AutoScaleBaseSize = CType(resources.GetObject("$this.AutoScaleBaseSize"), System.Drawing.Size)
        Me.AutoScroll = CType(resources.GetObject("$this.AutoScroll"), Boolean)
        Me.AutoScrollMargin = CType(resources.GetObject("$this.AutoScrollMargin"), System.Drawing.Size)
        Me.AutoScrollMinSize = CType(resources.GetObject("$this.AutoScrollMinSize"), System.Drawing.Size)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = CType(resources.GetObject("$this.ClientSize"), System.Drawing.Size)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.DataGrid1, Me.TextBox2, Me.TextBox1, Me.Label2, Me.Label1})
        Me.Dock = CType(resources.GetObject("$this.Dock"), System.Windows.Forms.DockStyle)
        Me.Enabled = CType(resources.GetObject("$this.Enabled"), Boolean)
        Me.Font = CType(resources.GetObject("$this.Font"), System.Drawing.Font)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.ImeMode = CType(resources.GetObject("$this.ImeMode"), System.Windows.Forms.ImeMode)
        Me.Location = CType(resources.GetObject("$this.Location"), System.Drawing.Point)
        Me.MaximumSize = CType(resources.GetObject("$this.MaximumSize"), System.Drawing.Size)
        Me.MinimumSize = CType(resources.GetObject("$this.MinimumSize"), System.Drawing.Size)
        Me.Name = "Form2"
        Me.RightToLeft = CType(resources.GetObject("$this.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.StartPosition = CType(resources.GetObject("$this.StartPosition"), System.Windows.Forms.FormStartPosition)
        Me.Text = resources.GetString("$this.Text")
        Me.Visible = CType(resources.GetObject("$this.Visible"), Boolean)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private dt As New DataTable("Names")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dr As DataRow

        '新增一笔资料
        dr = dt.NewRow()

        ' Fills in the data
        dr.Item(Label1.Text) = TextBox1.Text
        dr.Item(Label2.Text) = TextBox2.Text

        dt.Rows.Add(dr)
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dt.Columns.Add(Label1.Text)
        dt.Columns.Add(Label2.Text)
        DataGrid1.DataSource = dt
    End Sub
End Class