Question

首先抱歉英语不好！我在Vb.Net中有一个程序，我使用一个模块来检查这样的许可证：

Public Sub main()
    Dim th As Thread = New Thread(AddressOf f1show)
    Try
        Dim cn As New SqlConnection("something")
        Dim query As New SqlCommand("SELECT * FROM Test WHERE id = 1")
        Dim dr As SqlDataReader
        Dim dbtext As String = ""
        query.Connection = cn
        Try
            cn.Open()
            dr = query.ExecuteReader()
        Catch
            MsgBox("notOk")
            Form3.ShowDialog()
        End Try
        If dr.HasRows Then
            Do While dr.Read()
                dbtext = dr("TEXT1")
            Loop
        Else
            Form3.ShowDialog()
        End If
        cn.Close()
        If dbtext <> "" Then
            Dim dbwords As String() = zn.Custom_Decrypt(dbtex)
            Dim dbword As String = dbwords(0)
            If ZN.Custom_Decrypt(dbword) = "a" Then
                Form1.ShowDialog()
                'this where main form show and license is Ok
            Else
                Form3.ShowDialog()
            End If
        End If
    Catch
        Form3.ShowDialog()
    End Try
End Sub

在上面的代码中，form1是主要形式，form3是许可证形式，Zn是我的模块它正常工作并在数据库中存在许可证时显示form1 但在form1时，对于一个按钮，我使用一个函数（任何函数）应用程序退出没有任何理由，但当我更改启动到form1函数是正常的，并正常工作我该做什么？有人建议我改变启动但问题没有解决

Answer 1

tnx我解决了这个问题它需要使用application.run代码我将Form3.ShowDialog（）更改为application.run（new form3（））

Form3.ShowDialog() ===>> application.run(new form3())

表格在运行功能后关闭

1 个答案: