下图vb的添加用户与删除用户的代码，请高手快的回答！！

千问 · 2011-5-21 11:48:08

如果上面的是TXET，下面是LIST的话。添加是
PrivateSubCommand1_Click()
List1.AddItemText1.Text
EndSub
删除的是
PrivateSubCommand2_Click()
DimI
GR:
ForI=0ToList1.ListCount-1
IfList1.Selected(I)=TrueThen
List1.RemoveItemI
GoToGR
EndIf
NextI
EndSub