这是书中的代码，意在创建滚动条调整颜色，总共有3个滚动条，颜色分别是控制红，绿，蓝！
不明白代码中的redtxt.Text， greentxt.Text，bluetxt.Text
编译就在这几个东西上面出错！

希望大家知道原因和解决办法的朋友，能给点指导
谢谢了！

Private Sub Form_Load()
redtxt.Text = CStr(redscr.Value)
greentxt.Text = CStr(greenscr.Value)
bluetxt.Text = CStr(bluescr.Value)
End Sub



Private Sub redscr_change()
redtxt.Text = CStr(redscr.Value)
Call dis_clr
End Sub
Private Sub greenscr_change()
greentxt.Text = CStr(greenscr.Value)
Call dis_clr
End Sub

Private Sub bluescr_change()
bluetxt.Text = CStr(bluescr.Value)
Call dis_clr
End Sub

Private Sub redtxt_change()
redscr.Value = CInt(redtxt.Text)
Call dis_clr

End Sub

Private Sub greentxt_change()
greenscr.Value = CInt(greentxt.Text)
Call dis_clr
End Sub

Private Sub bluetxt_change()
bluescr.Value = CInt(bluetxt.Text)
Call dis_clr
End Sub

Sub dis_clr()
Label1.BackColor = RGB(redscr.Value, greenscr.Value, bluescr.Value)
End Sub

[[it] 本帖最后由 cxhiou 于 2008-7-23 13:23 编辑 [/it]]

书上的窗体里面有没有摆TextBox？

好像没有,是否要建3个text?

那不怪你，但是我觉得千万不要死看书。

分析出错原因，为什么会告诉你这个什么txt有问题？为什么别的（部分）代码里没见到这个txt？

按F2，打开对象浏览器，为什么查不到这个txt？

Text是这个什么txt的属性，那么这个什么txt会是什么呢？

如果你了解常用控件，那么第一反应就是：窗体上缺少了几个TextBox。