2011-10-09 11 views
3

可能性の重複:
substring and the indexOf methodストリングとのindexOf機能

私は上の円に行くよ、この問題を抱えています。エラーメッセージは「アクセスできない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 

お勧めはありますか?

答えて

1

Documentationは無効な構文です

Str(txtAddress.IndexOf(11, 0)) 

を呼び出すあなたの友人

です。正しい構文は、それが見つからない場合、これが見つかった文字列

-1のインデックス位置を返します

string.IndexOf(searchString) 

です。

0空きの場合

+0

MSDNの最新バージョンを使用してください。 [タグ:.net-2.0] – abatishchev

関連する問題