告诉你一个更简单的方法,这是我今天摸索出来的,与大家共享
Private Sub Form_Load()
List1.AddItem "苹果"
List1.AddItem "橘子"
List1.AddItem "香蕉"
List1.AddItem "柿子"
End Sub
Private Sub Command1_Click()
List1.Text="香蕉"
End Sub
够绝吧,给分吧
或者
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Sub Command1_Click()
List1.ListIndex = SendMessage(List1.hwnd, &H18F, -1, "香蕉")
End Sub
Private Sub Form_Load()
List1.AddItem "苹果"
List1.AddItem "橘子"
List1.AddItem "香蕉"
List1.AddItem "柿子"
End Sub
Private Sub Command1_Click()
List1.SetFocus
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.List(i) = "香蕉" Then
List1.Selected(i) = True
Exit For
End If
Next
End Sub
Private Sub Form_Load()
List1.AddItem "苹果"
List1.AddItem "橘子"
List1.AddItem "香蕉"
List1.AddItem "柿子"
End Sub