用一个图片框,三个垂直滚动条来示例一下吧PrivateSubForm_Load()Picture1.Height=Me.ScaleHeightPicture1.Width=Me.ScaleWidth-600Picture1.Top=0Picture1.Left=0Picture1.BackColor=RGB(0,0,0)Fori=0To2VScroll1(i).Max=255VScroll1(i).Min=0VScroll1(i).Value=0VScroll1(i).Height=Picture1.HeightVScroll1(i).Width=200VScroll1(i).Top=0VScroll1(i).Left=Picture1.Widthi*VScroll1(i).WidthNextEndSubPrivateSubVScroll1_Change(IndexAsInteger)DimR_colorAsLongDimG_colorAsLongDimB_colorAsLongR_color=VScroll1(0).ValueG_color=VScroll1(1).ValueB_color=VScroll1(2).ValuePicture1.BackColor=RGB(R_color,G_color,B_color)EndSub追问PrivateSubForm_Load()Me.BackColor=RGB(4536,4606344,7948680)endsub为什么提示溢出呢?我把你的Picture1.BackColor=RGB(R_color,G_color,B_color)这段代码下加了一个msgboxpicture1.backcolor取出来的直
|