求一段vb代码,望高手赐教!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Question

一个Command1和text1,按Command1后,效果显示在form2窗体上.
text1内容如下
测试/COLOR=111,测试测试测试
意思就是让前面<测试>两个字有颜色
而COLOR=****,而这里的****是GRB颜色通道的代码数值.
就是不管/COLOR=****在那的字符后面都让前面的字体(符)有颜色.

Answer 1

不理解，有两个窗体还是一个窗体，TEXT1又在哪个窗体里？
是想TEXT1的内容只有部分有颜色？
要说清楚啊。

Answer 2

用两个控件拼接显示效果，第一个显示为指定的颜色。
private sub command1_click()
dim arr() as stringarr = split(form1.text,"/COLOR")
if ubound(arr)<> 0 then
form2.text1 = arr(0)
form2.text2 = ""'后面的一部分
end ifend sub

Answer 3

不好意思,现在补充.
两个窗体的,效果在form2输出的.
意思好像网页编辑那样,form2作游览效果.text1内容:
测试/COLOR=255,255,255测试测试测试

Answer 4

在Form2上放Label和Text控件，设置Label.Caption="测试"，前景色为你需要的颜色，Text中放"COLOR=255,255,255测试测试测试".

Answer 5

在Form2上放两个Label控件，一个设置Label1.Caption="测试"，ForeColor为你需要的颜色，另一个设置Label2.Caption="/COLOR=255,255,255测试测试测试"，两个紧靠住.

Answer 6

在窗体显示,已经解决了.
现在还有一个问题,不能设置单数值,就像这样<测试/COLOR=111>,
可以这样<测试/COLOR=55,255,255>,但不可以这样<测试/COLOR=111>,

Answer 7

没看懂，Color后面的值不是你写的吗？或者你干脆用webbrowser控件直接显示成网页效果吧。

Answer 8

COLOR=55,255,255颜色值就是red,green,blue的组合，每个值都是0-255，55,255,255经过转换应该是 3576375， 怎么是 111？

Answer 9

设置哪个通道的也没说,其它两个通道的数值是多少也没说
在模块里设置一个变量,用PUBLIC声明,别用DIM,然后传递一下就是了

Answer 10

还是没懂，Form2不是为了输出吗？怎么又要设置？Color后面是要输出那个通道的值？或者将用split("55,255,255",","),那就随便取了。

Answer 11

Form2就是一个输出,核心都在form1

Answer 12

现在还有一个问题,不能设置单数值,就像这样<测试/COLOR=255>,
可以这样<测试/COLOR=255,255,255>,但不可以这样<测试/COLOR=255>,
意思就是只设置一个通道颜色的值
就是这样的,如果只填了一个数值那就顺序读,像这样<测试/COLOR=255>,那么就读R的值,
如果这样<测试/COLOR=255,255>那么就读R和G的值
Private Sub Command1_Click()
Dim Inputstr As String, Inputstrlen As Long
Dim RGBse() As String, RGBSTR As String, RGBSTRLEn As Long
Inputstrlen = InStrRev(Text1.Text, "/", -1, 2) 
Inputstr = Left(Text1.Text, Inputstrlen - 1)  
 RGBSTRLEn = Len(Text1.Text) - Val(InStrRev(Text1.Text, "=", -1, 2))  
RGBSTR = Right(Text1.Text, RGBSTRLEn)  
RGBse = Split(RGBSTR, ",") 
Form2.Show
Form2.ForeColor = RGB(RGBse(0), RGBse(1), RGBse(2)) 
Form2.Print Inputstr 
End Sub

Answer 13

Private Sub Command1_Click()
    Dim Inputstr As String, Inputstrlen As Long
    Dim RGBse() As String, RGBSTR As String, RGBSTRLEn As Long
    Dim intCount As Integer
    
    Inputstrlen = InStrRev(Text1.Text, "/", -1, 2)
    Inputstr = Left(Text1.Text, Inputstrlen - 1)
    RGBSTRLEn = Len(Text1.Text) - Val(InStrRev(Text1.Text, "=", -1, 2))
    RGBSTR = Right(Text1.Text, RGBSTRLEn)
    RGBse = Split(RGBSTR, ",")
    intCount = UBound(RGBse)
    
    If intCount < 2 Then
        ReDim Preserve RGBse(2)
        For i = intCount + 1 To 2
            RGBse(i) = 0
        Next i
    End If
    
    Form2.Show
    Form2.ForeColor = RGB(RGBse(0), RGBse(1), RGBse(2))
    Form2.Print Inputstr
End Sub

Answer 14

原来是这么回事，楼上的正确，你得判断 "," 的个数，然后决定 G 和 B 是否需要清零，就是说你设color=111时，要组合出111,0,0才能设置正确。