Imports System.Data.SqlClient
Public Class Form1
Public blnloginsucc As Boolean
Public Shared connstr As String = "server =jm;database=mydb;uid=sa;pwd=sa"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strsql As String = "select * from users where id ='" & cmbid.Text & " 'and pwd= '" & txtpwd.Text & " '"
Dim mycon As New SqlConnection(connstr)
Dim mycom As New SqlCommand(strsql, mycon)
Dim myreader As SqlDataReader
Try
mycon.Open()
myreader = mycom.ExecuteReader
If myreader.Read = True Then
blnloginsucc = True
mycon.Close()
Me.Close()
frmmain.ShowDialog()
Else
MsgBox("密码错误，请重新输入！", MsgBoxStyle.Exclamation)
txtpwd.Focus()
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
End Class

就是运行后，在登录窗口填上用户名和密码后，窗体消失，但主窗体出来闪一下，也消失拉，请高手指点

frmmain.show()

我试过拉
frmmain.show()
也不行

试试先ShowDialog再Close Me

[此贴子已经被作者于2007-6-3 19:23:50编辑过]

楼上的，你那个好像不行吧。楼主的意思是希望登陆完了后登陆窗体隐藏
其实楼主换个思维考虑下，把主窗体设置为启动窗体，然后首先启动后让主窗体隐藏，调用登陆窗体，登陆成功返回信息给主窗体，将登陆窗体关闭，然后将主窗体的Visible 设置为true
我曾经有个系统就是这样做的。

设置主窗体为启动窗体
主窗体 load 事件里
验证窗体.ShowDialog
验证正确--->验证窗体.close

或者在 Application.Designer.vb 入口点中
Protected Overrides Sub OnCreateMainForm()
'加入下列代码
验证窗体.ShowDialog()
Me.MainForm = Global.WindowsApplication1.主窗体
End Sub

如果是将Login 作为启动窗口,那么在你的程序中有逻辑的错误..
首先应该是Main.show.然后才是me.close.并且这里不能用,close.只能用hide()


如果是将Main做为启动窗口,那么首先在Main要有个接收的事件.showdialog.dialog = dialog.OK,这个六楼的为正解.

楼主

在datagrid中选中让选中记录的,每个字段添加到下一窗体的每个textbox控件中

可能是因为主窗体设成其他窗体的子窗体才出现过这种情况