bindingdemoform1.vb

是一个用SQL和VB.NET来做的源码。

Public Class BindingDemoForm1
    Inherits System.Windows.Forms.Form

#Region " Windows Form 设计工具产生的程序代码 "

    Public Sub New()
        MyBase.New()

        '此调用为 Windows Form 设计工具的必要项。
        InitializeComponent()

        '在 InitializeComponent() 调用之后加入所有的初始设定

    End Sub

    'Form 覆盖 Dispose 以清除组件列表。
    Protected Overloads Overrides 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 Form 设计工具的必要项
    Private components As System.ComponentModel.IContainer

    '注意: 以下为 Windows Form 设计工具所需的程序
    '您可以使用 Windows Form 设计工具进行修改。
    '请勿使用程序代码编辑器来修改这些程序。
    Friend WithEvents LabelHeader As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.LabelHeader = New System.Windows.Forms.Label()
        Me.SuspendLayout()
        '
        'LabelHeader
        '
        Me.LabelHeader.AutoSize = True
        Me.LabelHeader.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.LabelHeader.ForeColor = System.Drawing.Color.Red
        Me.LabelHeader.Location = New System.Drawing.Point(93, 23)
        Me.LabelHeader.Name = "LabelHeader"
        Me.LabelHeader.Size = New System.Drawing.Size(0, 24)
        Me.LabelHeader.TabIndex = 0
        '
        'BindingDemoForm1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 18)
        Me.ClientSize = New System.Drawing.Size(342, 86)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.LabelHeader})
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.MinimumSize = New System.Drawing.Size(350, 126)
        Me.Name = "BindingDemoForm1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "简单的数据绑定"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub BindingDemoForm1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LabelHeader.DataBindings.Add("Text", Me, "Text")
    End Sub
End Class