Question

我尝试了许多不同的方法来使这个表单正常工作。我在这里想要实现的是让Form在它关闭之前显示自己两秒钟，当函数返回false布尔值时，并在函数返回true时显示另外两种形式。我遇到了困难，因为当函数返回true布尔值时，应用程序完成其工作并显示其他两个表单并隐藏自身。但是当它收到一个错误的布尔值时，它不会显示它自己并且它不会退出（如在任务管理器进程中所见）。

表格代码：

Public Class SimpleSplash

Private Sub SimpleSplash_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.Refresh()
    If functions.CheckForInternetConnection() = False Then
        Me.Opacity = 100
        functions.sleep(2000)
        Application.Exit()
        Me.Close()
    Else
        Form1.persistentcheck = True
        drmtime.Show()
        Form1.Show()
        Me.Hide()
    End If
End Sub
End Class

functions.CheckForInternetConnection（）

Public Shared Function CheckForInternetConnection() As Boolean


    Dim url As String


    url = "http://www.google.com/"
    Dim FoundStatus As Boolean = False

    If String.IsNullOrEmpty(url) Then Return False
    If url.Equals("about:blank") Then Return False

    Dim request As HttpWebRequest
    Dim response As HttpWebResponse

    request = WebRequest.Create(url)
    request.Timeout = 5000

    Try
        response = request.GetResponse()
    Catch ex As Exception
        Return False
    End Try

    Return True


End Function

Answer 1

当结果为false时，您不会调用Me.Show（）。所以表单是100不透明，但没有显示。

在表单加载期间使用“Me.Opacity = 100”时，不显示表单

1 个答案: