vb怎么实现彩虹文字 今天给大家带来vb彩虹文字教程
界面的控件组成:
一个RichTextBox控件(需要经过“部件”增加),一HScrol个111控件
程序运行时,需要先输入满足文字。
Option Explicit
Dim k As Integer
Dim m As Integer
Dim Color As Long
以下是完成功能的
Private Function getcolor (icolor As Long, ByVal i As Long, ByVal j As
Long)As Long
Dim mei As Single
If j Mod 6>0 Then=(j 6)*6
=icolor +i
i=i Mod j
Select Case i
Case To/6: getcolor=rgb(255,mei*i,0)
Case j/6 To j/3: getcolor =RGB(255-mei* (i-j/ 6), 255, 0)
Case j/3 To j/2: getcolor RGB(0, 255, mei*(i-j/3))
Case j/2 To 2*/ 3: getcolor RGB(0, 255-mei* (i-j/2),
255)
Case 2* j/ 3 To 5* j/ 6: getcolor RGB(mei *(i-2 j/ 3), 0,
255)
Case5*j/6toj: getcolor=rgB(255,0,255-(i-5*j/6))
End Select
End Function
Private Sub Form_load()
HScrol11.max=len(RichTextBox1.text)
k=10
End Sub
Private Sub HScroll1_Change
k=k+5
Color=RGB(255,255,255)
RichTextBox1. SelStart =k
RichTextBox 1. SelLength =50
RichTextBox 1. SelColor getcolorColor, RichTextBox1. SelStart,
RichTextBox 1. SelLength)
广州软件开发公司业务咨询卢先生 手机18998818351 售后服务热线：020-22076940