運行功能後關閉表格

起初對不起英語感到抱歉！我在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函數時正常並且正常工作我應該怎麼做？有人建議我改啓動，但問題並沒有解決

來源

2017-06-16 Mahdi Akbari

檢查您的關斷模式沒有被設置爲「當啓動窗體關閉」，因爲它看起來像你展示你的主要形式的對話，這意味着它會導致整個應用程序退出一旦主窗體對話框關閉 – soohoonigan

TNX所有我解決了這個問題它需要使用application.run代碼我改變Form3.ShowDialog（）來application.run（新form3（））

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

來源

2017-06-16 15:25:41

運行功能後關閉表格

回答

相關問題