vb中text list的问题

来源：百度知道 编辑：UC知道 时间：2024/04/28 23:25:10
当选中list中“蓝色”时，text里的文字变成蓝色。
求代码
急！！！！！在线等！！！

Private Sub List1_Click()
Text1.ForeColor = IIf(List1.Text = "蓝色", vbBlue, vbBlack)
End Sub

没看明白你的需求啊

我猜你是这个意思吧。建List1,Text1,代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit
Dim sSelected As String
Private Sub List1_Click()
If List1.Text = sSelected Then Text1.SelStart = 0: Text1.SelLength = Len(Text1.Text): Text1.SetFocus
sSelected = List1.Text
End Sub