📄 11286.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>Re: 为什么要用弧线</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 为什么要用弧线</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:honey0@tcts1.seed.net.t">Honey</a> on March 23, 1999 at 18:30:11:<p>
In Reply to: <a href="11240.html">Re: 为什么要用弧线</a> posted by wesley on March 22, 1999 at 02:31:35:<p>
试试看以下的程式<br>在form上放一个command1 贴上以下程式<p>Private Declare Function PolyBezier _<br>Lib "gdi32" (ByVal hdc As Long, _<br>lppt As POINTAPI, ByVal cPoints _<br>As Long) As Long<br>Private Type POINTAPI<br>        x As Long<br>        y As Long<br>End Type<br>Option Explicit<p>Private Sub Command1_Click()<br>Dim Cn(3) As POINTAPI<br>Cn(0).x = 0<br>Cn(0).y = 0<br>'/*第一个点座标*/<p>Cn(1).x = 300<br>Cn(1).y = 100<br>'/*第一个点座标*/<p>Cn(2).x = 50<br>Cn(2).y = 150<br>'/*第一个点座标*/<p>Cn(3).x = 200<br>Cn(3).y = 200<br>'/*第一个点座标*/<p>PolyBezier Me.hdc, Cn(0), 4<br>End Sub<p>关于PolyBezier的参数hdc lppt cCount 说明如下<br>hdc<br> 传入绘图物件的hdc<br> 若画在picture1上便传入picture1.hdc <p>lppt<br> 传入点的座标 是一个阵列 须宣告成POINTAPI型态<br> 拥有X,Y座标 第一个及最后一个座标点分别代表启点及终点<br> 其余是控制曲线弯曲方向 若第二个点偏向 右下 起点终点的<br> 连线 再第二点上方的部分会偏向 右下<p>cCount<br> 传入lppt所含阵列的个数 这个值须为3的倍数加一<br> 如4,7,9,12......<br> 微软的SDK说明文件对cCount是这样说的(array翻成阵列 不是排列)<br> Specifies the number of points in the lppt array. <br> This value must be three times the number of curves <br> to be drawn, because each Bezier curve requires two <br> control points and an ending point. <br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 11286-->
</ul><!--end: 11286-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -