2016-10-06 14 views
0

私は、アプリケーションの起動時に最初に表示されるヘルプフォームを持っています。最初の起動後、そのフォームはもう表示されません。ショーフォームをリセットする方法はありますか?ここでは、アプリケーション設定に基づいて一度だけ表示する私のコードです。アプリケーションが終了すると、アプリケーションはshowformをfalseに設定します。 < < - ユーザーのコンピュータでリセットする必要があります。理由は私はこれが必要です。アプリケーションのアップデートがあれば、そのヘルプフォームにアップデートを表示する必要があります。答えを探している人のためにアプリケーションの起動時に再度フォームを表示させるにはどうすればいいですか?

Private Sub AboutInformation_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load 
    If IsNewVersionAvailable() = True Then 
    Dim showNextTime As Boolean 
    showNextTime = My.Settings.LoadAboutForm 
    If showNextTime = False Then 
     Show() 
     Location = New Point(0, 0) 
     showNextTime = True 
     My.Settings.LoadAboutForm = showNextTime 
     My.Settings.Save() 
    Else 
     Close() 
     myForm.Show() 
    End If 
End if 
End Sub 
+0

だから、あなたが更新されたりしませきたかを示す別の設定を追加したり、アプリが閉じていると、プロパティを変更する前に更新した場合、それはチェックします。 –

+0

プログラマーは、変更を示すためにバージョン番号を使用します。プロジェクト>プロパティ>アセンブリ情報ボタン>アセンブリバージョン設定を選択します。ちょうどそれを増やす。残りは完全に自動化されています。 –

答えて

0

、私は、メインフォーム上のアプリケーションの設定で私のCURRENTVERSIONを閉じ保存して、前のバージョンが更新されたバージョンと一致した場合、それがない場合は、ヘルプフォームの起動時には、チェックそれはヘルプフォームを表示します、もしそうなら、それはメインにスキップします。

Private Sub AboutInformation_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load 
    Location = New Point(0, 0) 
    'If ApplicationDeployment.IsNetworkDeployed Then 
    Try 
     Dim thisVersion As Version = ApplicationDeployment.CurrentDeployment.CurrentVersion 
     If thisVersion.ToString = My.Settings.CurrentVersion Then 
      Dim showNextTime As Boolean 
      showNextTime = My.Settings.LoadAboutForm 
      If showNextTime = False Then 
       Show() 
       Location = New Point(0, 0) 
       showNextTime = True 
       My.Settings.LoadAboutForm = showNextTime 
       My.Settings.Save() 
      Else 
       Close() 
       myMainForm.Show() 
      End If 
     End If 
    Catch ex As Exception 
     'MsgBox(ex.Message) 
    End Try 

End Sub 


'Saving setting for main form closed. 

Private Sub myMainForm_FormClosed(ByVal sender As Object, ByVal e As FormClosedEventArgs) Handles Me.FormClosed 
    If ApplicationDeployment.IsNetworkDeployed Then 
     Dim currentVersion As Version = ApplicationDeployment.CurrentDeployment.CurrentVersion 
     Debug.Print(currentVersion.ToString) 
     My.Settings.CurrentVersion = currentVersion.ToString 
    End If 
    My.Settings.Save() 
End Sub 
関連する問題