none
Visual Studio 2008 平台VB.NET语言的问题 RRS feed

  • 问题

  • Visual Studio 2008 平台VB.NET语言的问题

     

    我是新手 今天在2008平台写程序

     

    写完后运行 很郁闷 点击登录 就直接关闭所有程序…… 检查了 就是那个 关闭窗体 的语句 去掉之后就没问题了

     

    但是这个登录窗体也关不掉 非得一个一个的 关掉才行

     

    我把我写的 给大家看下 希望大家 给想个办法

     

               If CInt(clsDataEngine.ExecuteScalar(sqlString, userCodeParameter, passwordParameter)) = 1 Then
                    saveConfig()
                    clsUserInfo.GetUserInfo(txtUserCode.Text)
                    Dim mainForm As New frmPumaMain ‘转新窗体
                    mainForm.Show() ‘转新窗体
                    Me.Close()  '关闭
                Else
                    clsUtils.ShowErrorMessage("用户代码或密码错!")
                End If

     

    就是 红色字体的语句出错 只要把红色的 部分去掉或者注释 整个程序运行就正常 但是每次关闭的时候很麻烦

     

    非得一个一个的关闭没一个窗体才行……

     

    请各位高手帮忙 先行谢过!

    2008年4月29日 6:38

答案


  • 1.在主窗体中frmMain中定义一个Main作为程序入口,然后,在项目属性中设置 将启用应用程序框架的勾去掉。ok。
    Public Shared Sub Main() 

            Dim loginFrm As frmLogin = New frmLogin
            loginFrm.ShowDialog()
    ......
    end sub
    2,登录窗口就简单了,略
    ......
    验证用户
    me.close()

    ......
    ‘登录窗口就关掉了,然后就启动主窗口

    关键是第一步设置sub main.
    前面有人讲过另建一个模块,那种方法不好吧。窗体只能隐藏,不能释放,带来很多问题。

     

    例子如

        Public Shared Sub Main()
            '显示登陆对话框 Form2 
            Dim loginFrm As Form2 = New Form2
            If loginFrm.ShowDialog() = Windows.Forms.DialogResult.YesThen
                Application.Run(New Form1)
            End If

        End Sub

    2008年4月29日 7:54
    版主

全部回复

  •  

    小弟急需帮助 还请大家帮帮忙哈!

     

    谢谢!

     

    自己做个沙发了!

    2008年4月29日 6:41

  • 1.在主窗体中frmMain中定义一个Main作为程序入口,然后,在项目属性中设置 将启用应用程序框架的勾去掉。ok。
    Public Shared Sub Main() 

            Dim loginFrm As frmLogin = New frmLogin
            loginFrm.ShowDialog()
    ......
    end sub
    2,登录窗口就简单了,略
    ......
    验证用户
    me.close()

    ......
    ‘登录窗口就关掉了,然后就启动主窗口

    关键是第一步设置sub main.
    前面有人讲过另建一个模块,那种方法不好吧。窗体只能隐藏,不能释放,带来很多问题。

     

    例子如

        Public Shared Sub Main()
            '显示登陆对话框 Form2 
            Dim loginFrm As Form2 = New Form2
            If loginFrm.ShowDialog() = Windows.Forms.DialogResult.YesThen
                Application.Run(New Form1)
            End If

        End Sub

    2008年4月29日 7:54
    版主
  • 在项目属性里面,关机模式选择 "最后一个窗体关闭时" 就可以解决了.

    2008年6月18日 3:08