4

私は特にVisualBasicでのプログラミングの初心者です。私はVB6を大学で使用する必要があり、完全に行き詰まっているため、VB6のみを使用しています。

ラジオの名前を表示したいリストボックスがあり、名前をクリックするとデータをいくつかのテキストボックスに入れたいのですが、それは簡単ですが、VB6の構文さえ完全には知らないので私は私の先生に尋ねましたが、彼は本当に助けにはなりません。

これは、デバッグをクリックしたときに強調表示される行です。

x = radCatList.ItemData(radCatList.ListIndex)

これは全体のフォームのコードです。これも非常に単純で、このプロジェクトのほとんどがコピーアンドペーストの仕事であることがほとんどわかりません。

Option Explicit

Private Sub Form_Load()
Dim r As radioRec
Dim radioChan As Integer
Dim x As Integer

x = 1
radioChan = FreeFile
Open radioFile For Random As radioChan Len = radioLen
Get radioChan, x, r
Do While Not EOF(radioChan)
    radCatList.AddItem r.rModel
    radCatList.ItemData(radCatList.NewIndex) = x
    x = x + 1
    Get radioChan, x, r
Loop
Close radioChan
End Sub

Private Sub radCatList_Click()
Dim r As radioRec
Dim radioChan As Integer
Dim x As Integer

radCatList.Clear

x = radCatList.ItemData(radCatList.ListIndex)
radioChan = FreeFile
Open radioFile For Random As radioChan Len = radioLen
Get radioChan, x, r
channelTxt = r.rLicense
licenseTxt = r.rLicense
rangeTxt = r.rRange
stockTxt.Text = r.rStock
Close radioChan
End Sub
4

1 に答える 1

4

listitem がまだ選択されていないため、listindex はおそらく -1 ですか?

次のコードを見てください

'1 form with
'    1 listbox : name=List1
Option Explicit

Private Sub Form_Load()
  Dim intIndex As Integer
  For intIndex = 0 To 10
    List1.AddItem CStr(intIndex)
    List1.ItemData(intIndex) = intIndex * intIndex
  Next intIndex
  ShowData List1.ListIndex
End Sub

Private Sub Form_Resize()
  List1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Private Sub List1_Click()
  ShowData List1.ListIndex
End Sub

Private Sub ShowData(intIndex As Integer)
  Dim strShow As String
  strShow = "Index:" & CStr(intIndex)
  If intIndex > -1 Then
    strShow = strShow & " Data:" & CStr(List1.ItemData(intIndex))
  End If
  Caption = strShow
End Sub

したがって、追加する必要があるのは、listindex が -1 でないかどうかのチェックだけです

于 2012-11-28T10:30:45.183 に答える