Close Form1 If FileExists + Open Form2

파일이 존재하면 Form cnx를 닫거나 숨기려고 시도하고 Form Product를 엽니 다. 하지만 뭔가 잘못되어이 작업이 왜 작동하지 않는지 이해할 수 없습니다.Close Form1 If FileExists + Open Form2

Private Sub cnx_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    strFileName = "app.txt" 
    strBasePath = Application.StartupPath 
    If My.Computer.FileSystem.FileExists(strFileName) = True Then 
     Product.Show() 
     Me.Hide() 
    ElseIf My.Computer.FileSystem.FileExists(strFileName) = False Then 
     MessageBox.Show("File App.config is Missing! Create a new Database.", 
      "Something is Wrong!", MessageBoxButtons.OK, MessageBoxIcon.Warning) 
    End If 
End Sub

감사합니다.

출처

2017-04-22 Jamyz

7 가지 질문을했지만 7 가지 대답을 받았지만 아무 것도 받아 들여지지 않았습니다. 답변을 수락하고 투표하는 것은 다른 사람들이 좋은 게시물을 찾는 데 도움이됩니다. [둘러보기]는 SO가 어떻게 작동하는지 설명합니다. – Plutonix

Load 이벤트에서 양식을 Hide() 할 수 없습니다. Show()를 사용했기 때문에 Load 이벤트가 발생합니다. 돌아가서 양식을 만든 코드를 찾아야합니다. 바로 If 문이 속한 곳입니다. 하지만 마지막으로 양식을 닫을 때 대신 Close()를 사용하고 Project> Properties> Application 탭> Shutdown mode =를 사용하여이 작업을 계속 수행하려고합니다. –

네, 그게 .... 감사합니다. – Jamyz

아마 좋지는 않지만 이렇게 할 수 있습니다.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    hideForm(Me) 
    Form2.Show() 
End Sub 

Private Sub hideForm(form As Form) 
    form.Opacity = 0.0F 
    form.ShowInTaskbar = False 
End Sub

Form2를 추가하거나 Form2를 닫은 후에도 프로그램을 계속여십시오.

Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing 
    Form1.Close() 
End Sub

출처

2017-04-23 04:00:22 EuX0

Close Form1 If FileExists + Open Form2

답변

관련 문제