Question

VB修改listbox的数据

就是先将listbox选中行的数据赋值给textbox,修改好后再将里面的数据赋值给listbox的那行

Answer 1

Option Explicit

Private Sub Command1_Click()

List1.AddItem Text1.Text

Text1.Text = ""

End Sub

Private Sub Command2_Click()

List1.RemoveItem List1.ListIndex

End Sub

Private Sub Command3_Click()

Text1.Text = List1.Text

Text1.SetFocus

Command4.Enabled = True

Command1.Enabled = False

Command2.Enabled = False

End Sub

Private Sub Command4_Click()

List1.List(List1.ListIndex) = Text1.Text

Text1.Text = ""

Command1.Enabled = True

Command2.Enabled = True

Command4.Enabled = False

End Sub

Private Sub Form_Load()

List1.AddItem "个人站"

List1.AddItem "龙腾社区"

List1.AddItem "VB语言设计"

List1.AddItem "计算机英语专业科技"

Command4.Enabled = False

End Sub