论坛广场 › Visual Basic › VB.NET中的组件开发

阿杰 发表于 2007-2-12 10:40:05

VB.NET中的组件开发

VB.NET中的组件开发<br/>''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br/>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 登录验证组件&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br/>Imports System.Security.Cryptography<br/>Imports System.Text<br/>Imports System.Data<br/>Imports System.Data.SqlClient<br/>Public Class ValidatorClass Validator<br/>&nbsp;&nbsp;&nbsp; Inherits System.ComponentModel.Component<br/>&nbsp;&nbsp;&nbsp; Private username As String<br/>&nbsp;&nbsp;&nbsp; Private userpwd As String<br/>&nbsp;&nbsp;&nbsp; Public Property vUsername()Property vUsername() As String<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Get<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Return username<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Get<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set(ByVal Value As String)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; username = Value<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Set<br/>&nbsp;&nbsp;&nbsp; End Property<br/>&nbsp;&nbsp;&nbsp; Public Property vUserpwd()Property vUserpwd() As String<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Get<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Return userpwd<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Get<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set(ByVal Value As String)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; userpwd = Value<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Set<br/>&nbsp;&nbsp;&nbsp; End Property<br/>&nbsp;&nbsp;&nbsp; '转换为ＭＤ５<br/>&nbsp;&nbsp;&nbsp; Private Function convertMD5()Function convertMD5(ByVal pwd As String) As String<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim md5 As New MD5CryptoServiceProvider<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim password As Byte() = (New ASCIIEnco*).GetBytes(pwd)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '转换为哈希值Byte数组<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim mdByte As Byte() = md5.ComputeHash(password)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Dim mdString As String = System.BitConverter.ToString(mdByte)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim mdString As String = (New ASCIIEnco*).GetString(mdByte)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Return mdString<br/>&nbsp;&nbsp;&nbsp; End Function<br/>&nbsp;&nbsp;&nbsp; Public Function validate()Function validate() As Boolean<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '连接到Users表<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim myConnection As New SqlConnection("server=localhost;database=TEST;Trusted_Connection=yes;user id=sa;password=;")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim selectAdapter As New SqlDataAdapter("select * from Users where UserName='" + username + "'" + "and Password='" + convertMD5(userpwd) + "'", myConnection)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim ds As New DataSet<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Try<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; selectAdapter.Fill(ds, "Users")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (ds.Tables(0).Rows.Count &gt; 0) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Return True<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Return False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Catch ep As SqlException<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox("连接数据库出错")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Catch pp As Exception<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox("Oh，发生了不可预料的事情在你身边，你死定了。退出吧。")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Try<br/>&nbsp;&nbsp;&nbsp; End Function<br/>#Region " 组件设计器生成的代码 "<br/>&nbsp;&nbsp;&nbsp; Public Sub New()Sub New(ByVal Container As System.ComponentModel.IContainer)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MyClass.New()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Windows.Forms 类撰写设计器支持所必需的<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Container.Add(Me)<br/>&nbsp;&nbsp;&nbsp; End Sub<br/>&nbsp;&nbsp;&nbsp; Public Sub New()Sub New()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MyBase.New()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '该调用是组件设计器所必需的。<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; InitializeComponent()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '在 InitializeComponent() 调用之后添加任何初始化<br/>&nbsp;&nbsp;&nbsp; End Sub<br/>&nbsp;&nbsp;&nbsp; '组件重写 dispose 以清理组件列表。<br/>&nbsp;&nbsp;&nbsp; Protected Overloads Overrides Sub Dispose()Sub Dispose(ByVal disposing As Boolean)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If disposing Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Not (components Is Nothing) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; components.Dispose()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MyBase.Dispose(disposing)<br/>&nbsp;&nbsp;&nbsp; End Sub<br/>&nbsp;&nbsp;&nbsp; '组件设计器所必需的<br/>&nbsp;&nbsp;&nbsp; Private components As System.ComponentModel.IContainer<br/>&nbsp;&nbsp;&nbsp; '注意: 以下过程是组件设计器所必需的<br/>&nbsp;&nbsp;&nbsp; '可以使用组件设计器修改此过程。<br/>&nbsp;&nbsp;&nbsp; '不要使用代码编辑器修改它。<br/>&nbsp;&nbsp;&nbsp; &lt;System.Diagnostics.DebuggerStepThrough()&gt; Private Sub InitializeComponent()Sub InitializeComponent()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; components = New System.ComponentModel.Container<br/>&nbsp;&nbsp;&nbsp; End Sub<br/>#End Region<br/>End Class

阿杰 发表于 2007-2-12 10:41:40

<br/>简介：组件其实是一段可以重用的代码，通过遵循IComponent接口的标准来实现一个组件，所以有组件都是派生于Component类，由Component类来实现IComponent接口。在组件中应正确使用函数的访问级别来控制外部对其的访问限制。<br/>只要有足够的权限就可以将组件放到自己的程序中而不用担心组件会产生多大的错误，因为组件已经经过测试的。比如说可以把一段登录的程序做成一个组件，或者把经常使用到的一些功能也做成组件，这样就可以减少开发中的错误，也可以缩短开发时间。组件之间也可以互相套用，如一个组件引用另一个组件，都是没问题，但要先在Add Reference中添加对组件的引用，在.NET中是通过把组件放在程序集中来实现的，程序集中存放着这些组件所依赖的文件信息和所在路径，因此CLR就可以通过这些信息来确定组件所需要的其他程序集的位置。<br/>（ 另外在组件设计过程中应好好利用接口来设计组件）<br/>在VS中创建组件：选建一个Project,再从模板中选Class Library，OK。接着再从Project菜单中Add Component,到些为止，组件的一个框架就呈现在眼前，平台自动继承了Component类和构造函数。可以删除原先创建类库时自动生成的Class1，看应用的需要。接着就可以在组件类里写要实现的功能，最后从Build（生成）菜单中选择Build Solution(生成解决方案）来生成组件。如果生成成功的话，到应用程序的BIN目录下会看到一个DLL文件。<br/>&nbsp; 引用组件：只要在Solution Explorer窗口中，添加对DLL的Reference就可以了。<br/>Imports loginValidator<br/>Imports System.Data<br/>Imports System.Data.SqlClient<br/>Public Class loginFormClass loginForm<br/>&nbsp;&nbsp;&nbsp; Inherits System.Windows.Forms.Form<br/>#Region " Windows 窗体设计器生成的代码 "<br/>&nbsp;&nbsp;&nbsp; Public Sub New()Sub New()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MyBase.New()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '该调用是 Windows 窗体设计器所必需的。<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; InitializeComponent()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '在 InitializeComponent() 调用之后添加任何初始化<br/>&nbsp;&nbsp;&nbsp; End Sub<br/>&nbsp;&nbsp;&nbsp; '窗体重写 dispose 以清理组件列表。<br/>&nbsp;&nbsp;&nbsp; Protected Overloads Overrides Sub Dispose()Sub Dispose(ByVal disposing As Boolean)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If disposing Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Not (components Is Nothing) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; components.Dispose()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MyBase.Dispose(disposing)<br/>&nbsp;&nbsp;&nbsp; End Sub<br/>&nbsp;&nbsp;&nbsp; 'Windows 窗体设计器所必需的<br/>&nbsp;&nbsp;&nbsp; Private components As System.ComponentModel.IContainer<br/>&nbsp;&nbsp;&nbsp; '注意: 以下过程是 Windows 窗体设计器所必需的<br/>&nbsp;&nbsp;&nbsp; '可以使用 Windows 窗体设计器修改此过程。<br/>&nbsp;&nbsp;&nbsp; '不要使用代码编辑器修改它。<br/>&nbsp;&nbsp;&nbsp; Friend WithEvents lblUserPwd As System.Windows.Forms.Label<br/>&nbsp;&nbsp;&nbsp; Friend WithEvents lblUserName As System.Windows.Forms.Label<br/>&nbsp;&nbsp;&nbsp; Friend WithEvents txtUserName As System.Windows.Forms.TextBox<br/>&nbsp;&nbsp;&nbsp; Friend WithEvents txtUserPwd As System.Windows.Forms.TextBox<br/>&nbsp;&nbsp;&nbsp; Friend WithEvents btnSubmit As System.Windows.Forms.Button<br/>&nbsp;&nbsp;&nbsp; Friend WithEvents btnExit As System.Windows.Forms.Button<br/>&nbsp;&nbsp;&nbsp; Friend WithEvents Label1 As System.Windows.Forms.Label<br/>&nbsp;&nbsp;&nbsp; Friend WithEvents Label2 As System.Windows.Forms.Label<br/>&nbsp;&nbsp;&nbsp; Friend WithEvents btnCancel As System.Windows.Forms.Button<br/>&nbsp;&nbsp;&nbsp; Friend WithEvents Label3 As System.Windows.Forms.Label<br/>&nbsp;&nbsp;&nbsp; &lt;System.Diagnostics.DebuggerStepThrough()&gt;

阿杰 发表于 2007-2-12 10:42:10

<p></p><p>&nbsp;Private Sub InitializeComponent()Sub InitializeComponent()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(loginForm))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.lblUserPwd = New System.Windows.Forms.Label<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.lblUserName = New System.Windows.Forms.Label<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserName = New System.Windows.Forms.TextBox<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserPwd = New System.Windows.Forms.TextBox<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnSubmit = New System.Windows.Forms.Button<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnExit = New System.Windows.Forms.Button<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label1 = New System.Windows.Forms.Label<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label2 = New System.Windows.Forms.Label<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnCancel = New System.Windows.Forms.Button<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label3 = New System.Windows.Forms.Label<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.SuspendLayout()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'lblUserPwd<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.lblUserPwd.Location = New System.Drawing.Point(46, 176)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.lblUserPwd.Name = "lblUserPwd"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.lblUserPwd.Size = New System.Drawing.Size(52, 23)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.lblUserPwd.TabIndex = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.lblUserPwd.Text = "密码："<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.lblUserPwd.TextAlign = System.Drawing.ContentAlignment.MiddleCenter<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'lblUserName<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.lblUserName.Location = New System.Drawing.Point(46, 128)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.lblUserName.Name = "lblUserName"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.lblUserName.Size = New System.Drawing.Size(52, 23)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.lblUserName.TabIndex = 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.lblUserName.Text = "帐号："<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.lblUserName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'txtUserName<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserName.BackColor = System.Drawing.SystemColors.Info<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserName.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserName.Location = New System.Drawing.Point(110, 128)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserName.Name = "txtUserName"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserName.Size = New System.Drawing.Size(151, 21)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserName.TabIndex = 3<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserName.Text = ""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'txtUserPwd<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserPwd.BackColor = System.Drawing.SystemColors.Info<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserPwd.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserPwd.Location = New System.Drawing.Point(110, 176)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserPwd.Name = "txtUserPwd"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserPwd.PasswordChar = Microsoft.VisualBasic.ChrW(42)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserPwd.Size = New System.Drawing.Size(151, 21)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserPwd.TabIndex = 4<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.txtUserPwd.Text = ""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'btnSubmit<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnSubmit.BackColor = System.Drawing.SystemColors.ActiveBorder<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnSubmit.Cursor = System.Windows.Forms.Cursors.Hand<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnSubmit.ForeColor = System.Drawing.SystemColors.InfoText<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnSubmit.Location = New System.Drawing.Point(56, 216)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnSubmit.Name = "btnSubmit"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnSubmit.TabIndex = 5<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnSubmit.Text = "登录"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'btnExit<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnExit.BackColor = System.Drawing.SystemColors.ActiveBorder<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnExit.Cursor = System.Windows.Forms.Cursors.Hand<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnExit.Location = New System.Drawing.Point(141, 216)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnExit.Name = "btnExit"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnExit.TabIndex = 6<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnExit.Text = "退出"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Label1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label1.Font = New System.Drawing.Font("Impact", 17.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label1.Location = New System.Drawing.Point(38, 64)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label1.Name = "Label1"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label1.Size = New System.Drawing.Size(256, 32)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label1.TabIndex = 6<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label1.Text = "TEST"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Label2<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label2.BackColor = System.Drawing.SystemColors.ControlText<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label2.ForeColor = System.Drawing.SystemColors.HighlightText<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label2.Location = New System.Drawing.Point(0, 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label2.Name = "Label2"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label2.Size = New System.Drawing.Size(320, 24)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label2.TabIndex = 7<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label2.Text = "系统登录"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'btnCancel<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnCancel.BackColor = System.Drawing.SystemColors.ActiveBorder<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnCancel.Cursor = System.Windows.Forms.Cursors.Hand<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnCancel.Location = New System.Drawing.Point(225, 215)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnCancel.Name = "btnCancel"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnCancel.TabIndex = 10<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.btnCancel.Text = "取消"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'Label3<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label3.ForeColor = System.Drawing.Color.Red<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label3.Location = New System.Drawing.Point(163, 262)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label3.Name = "Label3"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label3.Size = New System.Drawing.Size(149, 16)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label3.TabIndex = 11<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Label3.Text = "为保证系统安全,请先登录"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'loginForm<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.BackColor = System.Drawing.SystemColors.ActiveBorder<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.ClientSize = New System.Drawing.Size(319, 284)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Controls.Add(Me.Label3)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Controls.Add(Me.btnCancel)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Controls.Add(Me.Label2)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Controls.Add(Me.Label1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Controls.Add(Me.btnExit)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Controls.Add(Me.txtUserPwd)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Controls.Add(Me.txtUserName)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Controls.Add(Me.btnSubmit)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Controls.Add(Me.lblUserName)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Controls.Add(Me.lblUserPwd)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.MaximizeBox = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.MinimizeBox = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Name = "loginForm"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Tag = "登录"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Text = "TEST--系统登录"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.ResumeLayout(False)<br/>&nbsp;&nbsp;&nbsp; End Sub<br/>#End Region<br/>&nbsp;&nbsp;&nbsp; Private Sub loginForm_Load()Sub loginForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txtUserName.Focus()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' btnCancel.Visible = False<br/>&nbsp;&nbsp;&nbsp; End Sub<br/>&nbsp;&nbsp;&nbsp; Private Sub btnExit_Click()Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Application.Exit()<br/>&nbsp;&nbsp;&nbsp; End Sub<br/>&nbsp;&nbsp;&nbsp; Private Sub btnSubmit_Click()Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '调用loginValidator组件<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim validator As New Validator<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; validator.vUsername = txtUserName.Text.Trim<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; validator.vUserpwd = txtUserPwd.Text.Trim<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (validator.validate() = True) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Close()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MessageBox.Show("帐号或密码错误，请重试！", "验证错误", MessageBoxButtons.OK, MessageBoxIcon.Warning)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; End Sub<br/>&nbsp;&nbsp;&nbsp; Private Sub btnCancel_Click()Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Dispose()<br/>&nbsp;&nbsp;&nbsp; End Sub<br/>&nbsp;&nbsp;&nbsp; Private Sub btnCancel_Click_1()Sub btnCancel_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Close()<br/>&nbsp;&nbsp;&nbsp; End Sub<br/>End Class<br/>关于在.NET中使用COM组件：.NET可以向后兼容，并支持了COM和ActiveX对象等早期版本的应用程序。在.NET中使用COM等很有趣，.NET创建一个包将它们包装起来，而它们之间的交互就是通过这个包装来进行的，这个包就叫做运行时可呼叫包装（RCW）。可以直接使用COM，也可以先转换成.NET程序集后再使用。<br/>1、直接使用COM组件是通过Add Reference来实现的，这种方法通过RCW来包装。缺点：无法放到&nbsp; GAC中，不能重用。<br/>&nbsp; 2、通过转换成.NET程序集来使用，是通过利用&nbsp; tlbimp&nbsp; 命令行工具来实现的，语法：<br/>&nbsp; tlbimp&nbsp; COMName.dll /out:Comp.dll /namespace:myNS /asmVersion:&nbsp; myVersion /reference:refname<br/>&nbsp; 第一个为COM的名称，第二个为要生成的.NET组件名称，第三个为要生成的名称空间，第四个为 版本号，第四个指定引用的文件名。 </p>

查看完整版本: VB.NET中的组件开发