使用VB.Net做一个配置web.config功能的WinForm(…

界面很简单，五个控件txtServerName、cboDatabase、txtUserName、txtPassword、cbWindowsAuthentication

下面是VB.Net后台代码：

Imports System
Imports System.Diagnostics
Imports System.Configuration
Imports System.Xml
Imports System.Text
Imports System.Reflection

Public Class frmMain
??? Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

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

??????? ''''该调用是 Windows 窗体设计器所必需的。
??????? InitializeComponent()

??????? ''''在 InitializeComponent() 调用之后添加任何初始化

??? End Sub

??? ''''窗体重写 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 窗体设计器所必需的
??? Private components As System.ComponentModel.IContainer

??? ''''注意: 以下过程是 Windows 窗体设计器所必需的
??? ''''可以使用 Windows 窗体设计器修改此过程。
??? ''''不要使用代码编辑器修改它。
??? Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
??? Friend WithEvents txtServerName As System.Windows.Forms.TextBox
??? Friend WithEvents cbWindowsAuthentication As System.Windows.Forms.CheckBox
??? Friend WithEvents grpLogin As System.Windows.Forms.GroupBox
??? Friend WithEvents lblPassword As System.Windows.Forms.Label
??? Friend WithEvents lblUserName As System.Windows.Forms.Label
??? Friend WithEvents txtPassword As System.Windows.Forms.TextBox
??? Friend WithEvents txtUserName As System.Windows.Forms.TextBox
??? Friend WithEvents grbDatabase As System.Windows.Forms.GroupBox
??? Friend WithEvents cboDatabase As System.Windows.Forms.ComboBox
??? Friend WithEvents btnCancel As System.Windows.Forms.Button
??? Friend WithEvents btnOk As System.Windows.Forms.Button
??? Friend WithEvents lblServer As System.Windows.Forms.Label
??? Private Sub InitializeComponent()
??????? Me.GroupBox1 = New System.Windows.Forms.GroupBox
??????? Me.txtServerName = New System.Windows.Forms.TextBox
??????? Me.cbWindowsAuthentication = New System.Windows.Forms.CheckBox
??????? Me.grpLogin = New System.Windows.Forms.GroupBox
??????? Me.lblPassword = New System.Windows.Forms.Label
??????? Me.lblUserName = New System.Windows.Forms.Label
??????? Me.txtPassword = New System.Windows.Forms.TextBox
??????? Me.txtUserName = New System.Windows.Forms.TextBox
??????? Me.grbDatabase = New System.Windows.Forms.GroupBox
??????? Me.cboDatabase = New System.Windows.Forms.ComboBox
??????? Me.btnCancel = New System.Windows.Forms.Button
??????? Me.btnOk = New System.Windows.Forms.Button
??????? Me.lblServer = New System.Windows.Forms.Label
??????? Me.GroupBox1.SuspendLayout()
??????? Me.grpLogin.SuspendLayout()
??????? Me.grbDatabase.SuspendLayout()
??????? Me.SuspendLayout()
??????? ''''
??????? ''''GroupBox1
??????? ''''
??????? Me.GroupBox1.Controls.Add(Me.txtServerName)
??????? Me.GroupBox1.Controls.Add(Me.cbWindowsAuthentication)
??????? Me.GroupBox1.Controls.Add(Me.grpLogin)
??????? Me.GroupBox1.Controls.Add(Me.grbDatabase)
??????? Me.GroupBox1.Controls.Add(Me.btnCancel)
??????? Me.GroupBox1.Controls.Add(Me.btnOk)
??????? Me.GroupBox1.Controls.Add(Me.lblServer)
??????? Me.GroupBox1.Location = New System.Drawing.Point(8, 8)
??????? Me.GroupBox1.Name = "GroupBox1"
??????? Me.GroupBox1.Size = New System.Drawing.Size(321, 237)
??????? Me.GroupBox1.TabIndex = 15
??????? Me.GroupBox1.TabStop = False
??????? Me.GroupBox1.Text = "数据库设置"
??????? ''''
??????? ''''txtServerName
??????? ''''
??????? Me.txtServerName.Location = New System.Drawing.Point(115, 30)
??????? Me.txtServerName.Name = "txtServerName"
??????? Me.txtServerName.Size = New System.Drawing.Size(178, 21)
??????? Me.txtServerName.TabIndex = 10
??????? Me.txtServerName.Text = ""
??????? ''''
??????? ''''cbWindowsAuthentication
??????? ''''
??????? Me.cbWindowsAuthentication.Location = New System.Drawing.Point(38, 60)
??????? Me.cbWindowsAuthentication.Name = "cbWindowsAuthentication"
??????? Me.cbWindowsAuthentication.Size = New System.Drawing.Size(173, 22)
??????? Me.cbWindowsAuthentication.TabIndex = 1
??????? Me.cbWindowsAuthentication.Text = "使用Windows验证"
??????? ''''
??????? ''''grpLogin
??????? ''''
??????? Me.grpLogin.Controls.Add(Me.lblPassword)
??????? Me.grpLogin.Controls.Add(Me.lblUserName)
??????? Me.grpLogin.Controls.Add(Me.txtPassword)
??????? Me.grpLogin.Controls.Add(Me.txtUserName)
??????? Me.grpLogin.Location = New System.Drawing.Point(29, 65)
??????? Me.grpLogin.Name = "grpLogin"
??????? Me.grpLogin.Size = New System.Drawing.Size(269, 73)

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有