Input Output Function Error
I am receiving an error. Conversion from string "" to type 'Double' is not valid.
I will show you the code. It seems to be coming from the variable that I was trying to create so that I could store the information from the sundaypm.txt file. And I wanted to compare it to that number that was stored in the file which is "15" and then to place the difference of that number and a number entered into the textbox in this particular form into another form called sundayResultsForm. Here is the code. Please help with this.
Public Class userForm
Friend cparecommendation
Friend cpaadminsundaycount
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim messageString
Dim usersundayString As String = usersundaycpaTextBox.Text
Dim cpaMaxDecimal As Decimal = usersundayString - cpaadminsundaycount
If usersundaycpaTextBox.Text > cpaadminsundaycount Then
messageString = "You have " & cpaMaxDecimal & " player(s) available for hire."
cparecommendation = messageString
End If
' Open the file for output.
Dim fileReader As String
FileOpen(1, "Sundaypm.txt", OpenMode.Input)
fileReader = My.Computer.FileSystem.ReadAllText("Sundaypm.txt")
MsgBox(fileReader)
cpaadminsundaycount = MsgBox(fileReader)
sundayResultsForm.ShowDialog()
FileClose(1)
End Sub
End Class
|