虽然时间过了~~~ 还是做了一下~~ Private Sub Command1_Click()Text1.Text = "红色"Text1.ForeColor = RGB(255, 0, 0)End SubPrivate Sub Command2_Click(Index As Integer)Text1.Text = "绿色"Text1.ForeColor = RGB(0, 255, 0)End SubPrivate Sub Command3_Click(Index As Integer)Text1.Text = "蓝色"Text1.ForeColor = RGB(0, 0, 255)En...
|