应用启动时运行对话框



我想启动一个对话框来提示用户输入网站凭据,我可以像普通的VB窗口一样设计对话框吗?

您需要在

项目属性中关闭 Windows 应用程序框架。 然后将启动对象设置为 Sub Main 。 然后在模块(而不是类)中创建"公共子主"。 然后,这将是应用程序的入口点。 然后执行以下操作:

Module Main
    Public Sub Main()
        Application.EnableVisualStyles()
        Dim login as LoginForm = New LoginForm()
        Application.Run(login)
        If login.Sucessful Then
            Application.Run(New MainForm())
        End If
    End Main
End Module

根据需要使用设计器创建表单。

在应用程序中调用它,如下所示:

myForm.ShowDialog(Me)

右键单击您的项目,在菜单中选择Add > New Item...

然后在列表中选择Dialog

您可以将任何您喜欢的控件添加到对话框中,正如 Mark 所说,您可以使用 ShowDialog 打开它。

最新更新