私は Visual Basic 2010 を初めて使用し、これで頭を壁にぶつけています。
ユーザー入力を受け入れ、次の形式でテキスト ファイルに保存するフォームがあります。
"顧客番号:" 00
ドウ、ジョン
10350サムストリート
市、州の郵便番号
電話番号
"口座残高: $" 00.00
「最終支払日:」月/日/年
チェックボックスがオンになっていることに応じて、ユーザーが顧客番号または姓のいずれかを入力するテキストボックスがあります。これの目的は、姓または顧客番号で顧客レコードのテキスト ファイルを検索することです。
検索された場合、検索に使用された姓または顧客番号を持つ顧客がリストボックスに表示されます。
これが私が以下に持っているコードです:
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
'Local Variables
Dim ReadCustomerRecords As StreamReader
Dim strCustomerNumber As String
' Validate Search Criteria
If chkCustomerNumber.Checked = False And chkLastName.Checked = False Then
MessageBox.Show("Please select either Customer Number OR Last Name" & vbNewLine & "to narrow your search.", "Attention")
End If
If chkCustomerNumber.Checked And chkLastName.Checked Then
MessageBox.Show("You may only search by Customer Number OR Last Name." & vbNewLine & "Please revise your search.", "Attention")
End If
If chkCustomerNumber.Checked Then
ReadCustomerRecords = File.OpenText(strCustomerRecordsFile)
strCustomerNumber = ReadCustomerRecords.ReadLine()
Do Until strCustomerRecordsFile.Contains(txtSearchFile.Text)
If strCustomerNumber.Contains(txtSearchFile.Text) Then
lstCustomerSearch.Items.Add(strCustomerNumber)
lstCustomerSearch.Items.Add(ReadCustomerRecords.ReadLine())
lstCustomerSearch.Items.Add(ReadCustomerRecords.ReadLine())
lstCustomerSearch.Items.Add(ReadCustomerRecords.ReadLine())
lstCustomerSearch.Items.Add(ReadCustomerRecords.ReadLine())
lstCustomerSearch.Items.Add(ReadCustomerRecords.ReadLine())
lstCustomerSearch.Items.Add(ReadCustomerRecords.ReadLine())
Else
MessageBox.Show("The customer number you entered is not valid." & vbNewLine & "Please try again or search by Last Name.", "Attention")
End If
Return
Loop
ReadCustomerRecords.Close()
End If
If chkLastName.Checked Then
ReadCustomerRecords = File.OpenText(strCustomerRecordsFile)
End If
End Sub