3
私は上の円に行くよ、この問題を抱えています。エラーメッセージは「アクセスできないIndexOfはこれらの引数で呼び出すことができません」です。
私の教授は、 "ロサンゼルス文字列を検索すると、部分文字列はテキストボックスから返されますが、単語を返す位置を知る必要があり、それがIndexOfが入る場所です。部分文字列とIndexOfが一緒に使用されることを意味しますか?それは私がやったことであり、問題かもしれません。コードは次のとおりです。
Private Sub btnOrder_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnOrder.Click
'Declare variables
Dim Price As Decimal
Dim txtAddress As String = "Los Angeles"
Dim DialogResults As String
'Begin If Statements to determine whether value is a number
If IsNumeric(txtPrice.Text) Then
MessageBox.Show("Please enter a nummeric value.", "Error Message")
End If
If IsNumeric(txtQuantity.Text) Then
MessageBox.Show("Please enter a numeric value.", "Error Message")
End If
Try
'Condition for Pickup days
If radPickUp.Checked = True Then
Price = CDec(txtPrice.Text)
ElseIf radNextDay.Checked = True Then
Price = CDec(CDbl(txtPrice.Text) * 0.01)
ElseIf radDays.Checked = True Then
Price = CDec(CDbl(txtPrice.Text) * 0.05)
End If
'Condition for Weekdays or Weekends pickup
If CDbl(Str(cboDays.Text)) = -1 Then
Price = CDec(CDbl(txtPrice.Text) * 0.0925)
End If
If CBool(Int(txtAddress.Substring(0, 10))) Then
Str(txtAddress.IndexOf(11, 0))
DialogResults = CStr(MessageBox.Show("Your order is $ " & CDbl(txtPrice.Text) - 0.05))
Else : DialogResults = CStr(MessageBox.Show("You order is $ " & CDbl(txtPrice.Text)))
End If
Catch ex As InvalidCastException
MessageBox.Show("Please enter a valid numeric value to continue.")
End Try
End Sub
Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
'Reset controls
txtPrice.Clear()
txtQuantity.Clear()
txtName.Clear()
txtAddress.Clear()
cboDays.Text = String.Empty
txtPrice.Focus()
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
'Quit the application
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MessageBox.Show("Hello", "A greeting.")
End Sub
お勧めはありますか?
MSDNの最新バージョンを使用してください。 [タグ:.net-2.0] – abatishchev