Question

所以我正在开发一个程序，让您可以选择运行它的计算机是服务器还是客户端。当用户选择时，应该将其保存到设置中，并在启动时自动转到必要的窗口，隐藏原始启动屏幕。然而，当我启动程序时，它确实记得我是客户。但它不会隐藏起始屏幕。这是我的代码。

Public Class screenStart
Private Sub screenStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    If My.Settings.isserver = True Then
        screenServer.Show()
        Me.Hide()
    End If
    If My.Settings.isserver = False Then
        screenClient.Show()
        Me.Hide()
    End If
End Sub
Private Sub optionServer_Click(sender As Object, e As EventArgs) Handles optionServer.Click
    My.Settings.isserver = True
    My.Settings.Save()
    screenServer.Show()
    Me.Hide()
End Sub
Private Sub optionClient_Click(sender As Object, e As EventArgs) Handles optionClient.Click
    My.Settings.isserver = False
    My.Settings.Save()
    screenClient.Show()
    Me.Hide()
End Sub

结束班

Answer 1

Load事件在显示表单之前触发，因此Hide()无效。

相反，您应该更改Main()以在第一个位置显示正确的表单，因此在您不需要时甚至不会加载开始表单。

Answer 2

在您的代码中进行以下更改，为您提供所需的输出。

   Private Sub screenStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.Hide()   
         If My.Settings.isserver = True Then
         screenServer.Show()      
         else
         screenClient.Show()
         End If
   End Sub

Vb.net窗口不会隐藏

2 个答案: