📄 ba19.htm
字号:
<HTML>
<HEAD>
<TITLE>RGB调色板</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<BODY topMargin=4 vLink=#0000ff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height="52">
<DIV align=center>
<CENTER>
<table border=0 cellpadding=0 cellspacing=0 width=679 align="center">
<tbody>
<tr>
<td width=200 height="59">
</TD></TR><!--msnavigation--></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr><!--msnavigation--><td valign=top height="235">
<div align=center>
<table border=1 bordercolor=#b9d9ff cellpadding=0 cellspacing=0
class=table width=755>
<center>
<tr>
<td width="100%" height="3">
<div align="center"> <strong><big>RGB调色板</big></strong></span></div>
</td>
</tr>
<tr>
<td
width="100%" class="unnamed1" height="247">
<div align="left">
<p align="center"> </p>
<p> 红、绿、蓝为光中的三原色，通过对这三种原色的不同比例搭配产生各种颜色。Visual
Basic中的RGB函数是和以上的原理相同。函数的形式如下：RGB(r,g,b)。其中r,g,b分别表示红、绿、蓝，它们的取值范围为0～255。在编程时通过调节r,g,b的值就能得到各种颜色。<br>
但在具体编程时,取得某种颜色，r,g,b各取什么值，凭空是难以确定的。于是笔者用VB编了一个“RGB调色板”程序，较好地解决了这个问题。此程序可作为编程时，取颜色的小工具。<br>
本程序采用了三个水平滚动条控件，分别用于调节r,g,b的值，它们的Max属性设为255；三个标签控件分别用于返回r,g,b的值；一个图片框用于返回相应的颜色。具体的程序如下：<br>
当运行程序后屏幕上出现如图画面。调节三个水平滚动条就返回r,g,b的值和相应的颜色。<br>
Rem RGB调色板程序<br>
Private Sub HScroll1_Change()<br>
Picture1_Click<br>
Label1_Click<br>
End Sub<br>
Private Sub HScroll2_Change()<br>
Picture1_Click<br>
Label2_Click<br>
End Sub<br>
Private Sub HScroll3_Change()<br>
Picture1_Click<br>
Label3_Click<br>
End Sub<br>
Private Sub Label1_Click()<br>
Label1.Caption = HScroll1.Value<br>
End Sub<br>
Private Sub Label2_Click()<br>
Label2.Caption = HScroll2.Value<br>
End Sub<br>
Private Sub Label3_Click()<br>
Label3.Caption = HScroll3.Value<br>
End Sub<br>
Private Sub Picture1_Click()<br>
r = HScroll1.Value<br>
g = HScroll2.Value<br>
b = HScroll3.Value<br>
Picture1.BackColor = RGB(r, g, b)<br>
End Sub</font>
<p align="center"> </p>
</div>
</td>
</tr>
</center>
<tr>
<td width="100%" class="unnamed1">
<p align=right><a href="ba18.htm">（上一页）</a>---<a href="ba20.htm">（下一页）</a></p>
</td>
</tr>
<tr>
<td width="100%" class="unnamed1">
</div>
</td>
</tr>
<!--msnavigation--></tbody>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -