求高手用VB做个特殊的文本阅读器

来源：百度知道 编辑：UC知道 时间：2024/07/03 23:23:13
先谢谢啦。。就是希望加入2个功能：
1.文字颜色会不断变化由红-蓝-黑-紫 循环变化 每秒变化2中颜色下
2。会发出嗒-嗒-嗒嗒嗒的节奏音。
急用。所谢谢啦。
这有个文本编辑器的源代码。可以以这个为基础。
http://www.hongen.com/pc/program/codtutor/code0003/code01.htm

我看看把
不过分太少了吧
不过不可能 完全能做成你的意思

Private Sub Command1_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelColor = vbRed
End Sub

----------

Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub playWAV(WAVFile As String)
Dim Flag As Integer
Dim a As Integer
wFlag = SND_ASYNC Or SND_NODEFAULT
a = sndPlaySound(WAVFile, Flag)
End Sub

Private Sub Command1_Click()
playWAV ("z:\DEMO.wav")'你想播放什么声音都可以~自己找个wav格式音乐就好
End Sub

===========以上代码就是你那2种功能~ 你想做循环的话~就放在timer事件里~