020201.htm

来自「提供一个VB学习教程,入门级。来源于网上」· HTM 代码 · 共 75 行

HTM
75 行
字号 
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>vb study</title><style>
<!--
td {font-size: 9pt}
A:link {text-decoration: none; color: #0033cc;font-size: 9pt}
A:visited {text-decoration: none; color: #0066CC;font-size: 9pt}
A:active {text-decoration: none; color: #ff0000; font-size: 9pt}
A:hover {text-decoration: underline; color: #000000;font-size: 9pt}
-->
</style>
</head>

<body>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="98%">
    <tr>
      <td width="100%"><a href="#">你的位置</a>：<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="#">VB学习</a>--<a href="#">ActiveX控件</a></td>
    </tr>
    <tr>
      <td width="100%">
        <p align="center"><font size="2">图形</font></td>
    </tr>
    <tr>
      <td width="100%"><br>
        VB的图形控制能力：一，色彩的渐变：可在FORM或picturebox上进行，基本思路是用line方法依次画许多许多直线，而每一条直线的颜色都比前一条有一点点改变，从而达到渐变效果。颜色值的变化可通过RGB函数来进行，渐变总在两种颜色间变化，一种作为起点颜色，一种作为终点颜色，用变化范围除以总共直线数，得到每条直线的颜色改变量，就可以画出来了。如下例：<br>
        Private Sub Command2_Click() 黑白颜色的渐变例子<br>
        endred = 255 终点色的RGB值<br>
        endgreen = 255<br>
        endblue = 255<br>
        startred = 0 起点色的RGB值<br>
        startgreen = 0<br>
        startblue = 0<br>
        pwidth = Picture1.ScaleWidth 对象宽度值<br>
        pheight = Picture1.Height 以对象的高度值决定画多少条直线<br>
        redlnc = (endred - startred) / pheight 每条直线颜色渐变率<br>
        greenlnc = (endgreen - startgreen) / pheight<br>
        bluelnc = (endblue - startblue) / pheight<br>
        For lxn = 0 To (pheight - 1) 在对象内画出很多很多条直线<br>
        newcolor = RGB(startred + redlnc * lxn, startgreen + greenlnc * lxn, 
        startblue + bluelnc * lxn) 当前直线颜色<br>
        Picture1.Line (0, lxn)-(Picture1.Width - 1, lxn), newcolor LINE出这条直线<br>
        Next lxn<br>
        End Sub<br>
        VB的图形控制能力：二，图形的翻转及重新绘图。在FORM或picturebox中，用paintpicture方法按源图形剪贴区重绘图形（要有源图形，此方法只是将存在的图形重绘到目标对象中。格式：<br>
        目标对象.paintpicture 源图形，目标坐标X1，Y1，目标宽度，目标高度，&nbsp;<br>
        源图形剪贴区坐标X2，Y2，源图形剪贴区宽，源图形剪贴区高，对源图形的位操作。<br>
        如：1：4缩小重绘图形：<br>
        Picture2.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth / 2, _<br>
        Picture1.ScaleHeight / 2, 0, 0, Picture1.ScaleWidth, _<br>
        Picture1.ScaleHeight, &amp;HCC0020<br>
        要水平翻转图形，只要将源图形剪贴区宽设为负数，改动剪贴区首坐标，要垂直翻转图形，只要在源图形剪贴区高度前加上个负号，并改动坐标，如下例水平翻转图形：<br>
        Picture2.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth, _<br>
        Picture1.ScaleHeight, Picture1.ScaleWidth, 0, -Picture1.ScaleWidth, _<br>
        Picture1.ScaleHeight, &amp;HCC0020
        <p align="center">
        <br>
        &lt; <a href="020116.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="020202.htm">下一页</a>    
        &gt;<br>
      </td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>

020201.htm - 源码说明

本页面展示了「提供一个VB学习教程,入门级。来源于网上」中的 020201.htm 源码文件，采用 HTM 编程语言编写，共 75 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与教程相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?