鼠标挪到所要添加的位置点击右键选择添加就可以插入新的一行代码。
列表框控件(ListBox)和组合框控件(ComboBox)则有Clear方法,意思是清除项目。这个则是符合现代编程理念的。
Private Sub Command1_Click()List1.RemoveItem (List1.Columns-1)
List1.AddItem "cccc", 2
End Sub
你试一下
Private Sub Form_Load()Dim s As String
Open "d:\abc\123.txt" For Input As #1 '文件名自己改
List1.Clear
Do Until EOF(1)
Line Input #1, s
List1.AddItem s
Loop
Close #1
End Sub
Private List1_Click()
Text1.Text = Text1.Text & List1.Text
List1.RemoveItem List1.ListIndex
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)