菜鸟问问： vb

Question

我不太明白，
"aa"和"HF001"是怎样对应呢？它们是一个数据库里相对应吗？
你可以试一下这样，看和你需要的
Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub

Answer 1

是啊，“aa”和“HF001”是一个数据库对应的

Answer 2

Private Sub Form_Load ()
  ' 以排序顺序将相应的项目填充t List1 和 ItemData 数组.
  List1.AddItem "Judy Phelps"
  List1.ItemData(List1.NewIndex) = 42310
  List1.AddItem "Chien Lieu"
  List1.ItemData(List1.NewIndex) = 52855
  List1.AddItem "Mauro Sorrento"
  List1.ItemData(List1.NewIndex) = 64932
  List1.AddItem "Cynthia Bennet"
  List1.ItemData(List1.NewIndex) = 39227
End Sub然后在单击时
Label1.Caption=List1.ItemData(List1.ListIndex)就行了

Answer 3

一个简单办法：
　　List1.Additem "aa                        HF001"
　　List1.Additem "bb                        HF002"
　　List1.Additem "cc                        HF003"
    ...
界面上，List1的宽度设置只能显示出"aa"等字，却不能显示出后面的"HF001"。
然后：
   Label1.Caption = Trim(Right(List1.Text,20))  '---按需要设置取数