您可以调用Me.Hide()方法隐藏Login窗体。
创新互联专注于社旗企业网站建设,响应式网站建设,成都商城网站开发。社旗网站建设公司,为社旗等地区提供建站服务。全流程按需网站设计，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务
另外，如果您使用新建工程后的那个默认窗体作为Login窗体，那么您只能隐藏这个窗体或修改程序的启动对象。因为VB.net默认将创建工程时的那个默认窗体作为程序的主窗体，应用程序的主消息循环就建立在这个窗体上，如果您关闭这个窗体，那么所有的消息泵都会停止，应用程序就会退出。
我比较推荐您将Main窗体设为应用程序的主窗体，这样可以减小资源的占用，当Login完成后就可以释放Login窗体了。
另外，vb.net中的me变量相当于C语言中的this指针，它指向当前类。
推荐一个网站，这个网站有很多的教程，而且基本都是附部分代码，可能有一些对您有用的信息。
select * from t1 where name=** and password=** and style=**
如果查询到的表是空的，说明登陆错误，否则成功
用ShowDialog()打开窗体，对话框用msgBox()或者MessageBox()都是模式的。
建个模块， Dim varcnn As OleDb.OleDbConnection ReadOnly Property cnn() As OleDb.OleDbConnection
Get
If varcnn Is Nothing OrElse varcnn.State ConnectionState.Open Then Dim cnstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" My.Application.Info.DirectoryPath "\Contact.mdb"";Persist Security Info=True"
varcnn = New OleDbConnection(cnstr)
varcnn.Open()
End If
Return varcnn
End Get
登录窗体，新建一个就行了。代码Public Class LoginForm1
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Using cmd As New OleDb.OleDbCommand("select password from tbuser where userid =?", cnn)
cmd.Parameters.Add("?", OleDbType.VarChar).Value = Me.UsernameTextBox.Text
Dim obj As Object = cmd.ExecuteScalar
If (Not IsDBNull(obj)) AndAlso (obj IsNot Nothing) AndAlso obj = PasswordTextBox.Text Then
Me.DialogResult = Windows.Forms.DialogResult.OK
Else MessageBox.Show("密码不正确！") Return
End If
End Using Me.Close()
End Sub Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.DialogResult = Windows.Forms.DialogResult.Cancel
Me.Close()
End SubEnd Class 项目属性里点查看应用程序事件，写代码Namespace My ' 以下事件可用于 MyApplication:
'
' Startup: 应用程序启动时在创建启动窗体之前引发。
' Shutdown: 在关闭所有应用程序窗体后引发。如果应用程序异常终止，则不会引发此事件。
' UnhandledException: 在应用程序遇到未处理的异常时引发。
' StartupNextInstance: 在启动单实例应用程序且应用程序已处于活动状态时引发。
' NetworkAvailabilityChanged: 在连接或断开网络连接时引发。
Partial Friend Class MyApplication
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
Dim f As New LoginForm1
If Not f.ShowDialog = DialogResult.OK Then
End
End If
End Sub End ClassEnd Namespace
你测试一下吧。
建立一个模块，在其中定义全局变量
Public a as string
public b as string
然后在注册，登陆界面分别引用就好了
将模块中的过程写为Public,在调用
比如模块中:
Public Sub text()
......
End Sub
主窗体调用代码:
Call text()
