Private Sub Form_Load()tem "红色"tem "绿色"tem "蓝色"End SubPrivate Sub Combo1_Click()Select Case IndexCase 0 Color = vbRedCase 1 Color = vbGreenCase 2 Color = vbBlueEnd SelectEnd Sub以上代码涉及的控件:Combo1、Text1
欢迎来到尚之范!
Private Sub Form_Load()tem "红色"tem "绿色"tem "蓝色"End SubPrivate Sub Combo1_Click()Select Case IndexCase 0 Color = vbRedCase 1 Color = vbGreenCase 2 Color = vbBlueEnd SelectEnd Sub以上代码涉及的控件:Combo1、Text1