16,721
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim items = {"fad1saZZZffffdsfffdfg",
"fdsaafd999afdaffaf",
"fd3safdafdsa999fdssafd",
"fdsd9999afhgdfadss",
"gfdssafddfas"}
Me.ListBox1.Items.AddRange(items)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each item As String In Me.ListBox1.Items
If item.Contains("9") Then
'输出
Me.ListBox2.Items.Add(item)
End If
Next
End Sub