以下是引用jiashie在2010-8-20 11:43:01的发言：
'rt1是一个RichTextBox
rt1.Text = "星期日一二三四五六"
rt1.SelStart = 2
rt1.SelLength = 1
rt1.SelColor = vbRed
rt1.SelStart = 8
rt1.SelLength = 1
rt1.SelColor = vbRed
呵呵，这回行了，谢谢'rt1是一个RichTextBox
rt1.Text = "星期日一二三四五六"
rt1.SelStart = 2
rt1.SelLength = 1
rt1.SelColor = vbRed
rt1.SelStart = 8
rt1.SelLength = 1
rt1.SelColor = vbRed
Dim x As String
x = Mid("日一二三四五六", Weekday(Date), 1)
rt1.Text = Date & Space(1) & "星期" & x & Space(1) & Time
If x = "日" Or x = "六" Then
rt1.SelStart = 10
rt1.SelLength = 3
rt1.SelColor = vbRed
[ 本帖最后由 yujimin 于 2010-8-20 20:02 编辑 ]
