This listbox control Mo Xuehao
[Users questions | Browse:37 | Favorites]
Users questions:In the listbox control, how to write the selected item up or down one position ????* Thank you! Master pointing!
Experts answer:OptionExplicitPrivateSubcmdDown_Click () DimiAsIntegerDimmsgAsStringDimmsg1AsStringi = List1.ListIndexIfi = (List1.ListCount-2) Andi = 0Thenmsg = List1.textList1.Selected(i+1)=Truemsg1=List1.textList1.RemoveItem(i+1)List1.RemoveItemiList1.AddItemmsg1,iList1.AddItemmsg,i+1List1.Selected(i+1)=TrueEndIfEndSubPrivateSubcmdReSet_Click()CallForm_LoadEndSubPrivateSubcmdUpp_Click()DimiAsIntegerDimmsgAsStringDimmsg1AsStringi=List1.ListIndexIfi =1Thenmsg=List1.textList1.Selected(i-1)=Truemsg1=List1.textList1.RemoveItemiList1.RemoveItemi-1List1.AddItemmsg,i-1List1.AddItemmsg1,iList1.Selected(i-1)=TrueEndIfEndSubPrivateSubForm_Load()List1.ClearDimiAsIntegerFori=1To10List1.AddItemiNextEndSubscreen.width*0.35)this.width=screen.width*0.40 *
Experts answer:OptionExplicitPrivateSubcmdDown_Click () DimiAsIntegerDimmsgAsStringDimmsg1AsStringi = List1.ListIndexIfi = (List1.ListCount-2) Andi = 0Thenmsg = List1.textList1.Selected(i+1)=Truemsg1=List1.textList1.RemoveItem(i+1)List1.RemoveItemiList1.AddItemmsg1,iList1.AddItemmsg,i+1List1.Selected(i+1)=TrueEndIfEndSubPrivateSubcmdReSet_Click()CallForm_LoadEndSubPrivateSubcmdUpp_Click()DimiAsIntegerDimmsgAsStringDimmsg1AsStringi=List1.ListIndexIfi =1Thenmsg=List1.textList1.Selected(i-1)=Truemsg1=List1.textList1.RemoveItemiList1.RemoveItemi-1List1.AddItemmsg,i-1List1.AddItemmsg1,iList1.Selected(i-1)=TrueEndIfEndSubPrivateSubForm_Load()List1.ClearDimiAsIntegerFori=1To10List1.AddItemiNextEndSubscreen.width*0.35)this.width=screen.width*0.40 *
- The logical operators in vb
- Seek expert help me write a vbs script timed
- VB enrollment management system requirements
- How to do a form in VB
- Score key demand VB way to send analog
- mdiform
- Younger brother to help translate what is really do not understand ah!
- VB datagrid how to set the two parent-child relationship?
- DIR How to use?
- How this code does not match the type of display?
- This information provided by the users.Thanks!
Computer Knowledge Copyright 2005-2015 All Rights Reserved.