求助vb刚学问题－－快～等

提问者：浮云罢了灬  |  浏览 次  |  提问时间：2017-03-02  |  回答数量：3

在框架上设计了单选数组按纽Private Sub optBlue_click(Index As Integer) If optBlue.Value Then RichTextBox1.SelColor = &HFF0000End SubPrivate Sub opgreen_click(Index As Integer) If optGreen.Value Then RichTextBox1.SelColor = &HFF00&End SubPrivate Sub optHt_click(Index As Integer) If optHt.Value Then RichTextBox1.SelColor = \"黑体\"End SubPrivate Sub optKt_click(Index As Integer) If optKt.Value Then RichTextBox1.SelColor = \"楷体_GB2312\"End SubPrivate Sub optRed_Click(Index As Integer)If optRed.Value T