Readygo技术搜索引擎 网络搜索 efish 2008-1-17 9:39:54

菜鸟问问： vb

楼主（）2001-10-29 09:50:07 在 VB / 基础类 提问

listbox显示有几项：“aa”，“bb”，“cc”  
  我想在选择   aa这项时在laber显示和“aa”对应的字符串如：“HF001”  
  。。。选择bb时显示和其对应的“HF002”  
  ......如何实现？ 问题点数：0、回复次数：6Top

1 楼acev（睡眠不足(域名 .com ￥55，.cn ￥30 QQ:230567)）回复于 2001-10-29 09:58:54 得分 0

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

2 楼javaer（浪人）回复于 2001-10-29 10:20:57 得分 0

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

3 楼foolishtiger（冬蛩）回复于 2001-10-29 11:41:13 得分 0

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)就行了Top

4 楼Richard2001（Richard）回复于 2001-10-29 17:02:33 得分 0

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

5 楼gwolf（阿呆）回复于 2001-10-29 17:05:45 得分 0

g@zTop

6 楼langzhi（langzhi）回复于 2001-10-29 18:39:17 得分 0

关注Top