VB 2010 ne fonctionne pas à travers mon programme complet

Question

J'ai travaillé sur mon programme VB au cours des dernières semaines et chaque devoir est d'y ajouter plus de choses. Jusqu'à cette semaine, tout s'est bien passé. Maintenant, tout à coup, le programme affiche mon écran de démarrage et saute à ma boîte à propos, mais ne montre pas ma forme principale. Je n'ai pas d'erreurs et il construit avec succès et compile.

Public Class Checkbook 

    Dim currentBalance As Decimal = CDec(500.0) 
    Dim depositAmount As Decimal 
    Dim checkAmount As Decimal 
    Dim serviceBalance As Decimal 
    Dim serviceFee As Decimal 
    Dim depositCount As Decimal 
    Dim serviceAmount As Decimal 
    Dim enteredAmount As Decimal 

    Function checkBalance() As Decimal 
     'this function allows the user to check their current balance 
     Dim enteredAmount As String = transAmount.Text 
     serviceFee = 10 
     balanceLabel.Text = currentBalance.ToString("C") 
     Return currentBalance 
    End Function 

    Function deposit() As Decimal 
     'this function adds the transaction amount to the balance 
     enteredAmount = Decimal.Parse(transAmount.Text) 
     depositAmount = (currentBalance + enteredAmount) 
     currentBalance = depositAmount 
     Summary.depositList.Items.Add(depositAmount) 
     balanceLabel.Text = currentBalance.ToString("C") 
     Return currentBalance 
    End Function 
    Function check() As Decimal 
     'this function takes the check amount and sbutracts its from the balance 
     enteredAmount = Decimal.Parse(transAmount.Text) 
     checkAmount = (currentBalance - enteredAmount) 
     currentBalance = checkAmount 
     Summary.amountList.Items.Add(checkAmount) 
     Return currentBalance 
     'gives a service charge if balance will be negative 
     If currentBalance < 0 Then 
      currentBalance = currentBalance - 10 
      Summary.feesList.Items.Add(serviceFee) 
      MessageBox.Show("Negative Balance Fee Applied", "Attention: Fee Incurred") 
      Return currentBalance 
     End If 
    End Function 
    Function service() As Decimal 
     'this transaction subtracts the service charge from the balance 
     enteredAmount = Decimal.Parse(transAmount.Text) 
     serviceAmount = (currentBalance - (10 + enteredAmount)) 
     currentBalance = serviceAmount 
     Summary.amountList.Items.Add(serviceAmount) 
     balanceLabel.Text = currentBalance.ToString 
     Return currentBalance 
    End Function 



    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click 
     'exits form 
     Me.Close() 
    End Sub 

    Private Sub AboutToolStripMenuItem_Click(sender As Object, e As System.EventArgs) Handles AboutToolStripMenuItem.Click 
     'gives information about program 
     AboutBox.Show() 
    End Sub 

    Private Sub SummaryToolStripMenuItem_Click(sender As Object, e As System.EventArgs) Handles SummaryToolStripMenuItem.Click 
     'shows summary of transactions 
     Summary.Show() 
    End Sub 

    Private Sub CalculateToolStripMenuItem_Click(sender As Object, e As System.EventArgs) Handles CalculateToolStripMenuItem.Click 
     'gives orders for what function to call 
     If balanceButton.Checked Then 
      Call checkBalance() 
     ElseIf checkButton.Checked Then 
      Call check() 
     ElseIf depositButton.Checked Then 
      Call deposit() 
     ElseIf serviceRadioButton.Checked Then 
      Call service() 

     End If 
    End Sub 

    Private Sub FontToolStripMenuItem_Click(sender As Object, e As System.EventArgs) Handles FontToolStripMenuItem.Click 
     'allows user to change font type and size 
     With FontDialog1 
      .Font = balanceLabel.Font 
      .ShowDialog() 
      balanceLabel.Font = .Font 

     End With 
    End Sub 

    Private Sub ColorToolStripMenuItem_Click(sender As Object, e As System.EventArgs) Handles ColorToolStripMenuItem.Click 
     'allows user to change font color 
     With ColorDialog1 
      .Color = balanceLabel.ForeColor 
      .ShowDialog() 
      balanceLabel.ForeColor = .Color 

     End With 
    End Sub 
End Class 

Answer 1

Mon écran de démarrage ouvre et exécute ensuite au lieu d'exécuter mon programme réel la forme qu'elle tire mon propos sous forme

Ressemble votre formulaire À propos est la forme par défaut que l'application est réglé sur lancer lors de la première exécution. Quelque part dans votre code, il existe une méthode static void Main. Cette méthode devrait avoir le code qui ouvre le premier formulaire. Il pourrait être quelque chose comme ceci:

Application.Run(new AboutForm()); 

Vous voulez changer cela à la forme souhaitée:

Application.Run(new SomeOtherForm());