ppts.net
当前位置:首页>>关于vb怎么在picture里面画两条不同颜色的线?的资料>>

vb怎么在picture里面画两条不同颜色的线?

VB可用object.Line - (x2, y2)写法实现在对象上绘制连续折线。 Line 方法,在对象上画直线和矩形。 以下是具体实现绘制曲线的代码: Option Explicit Const PI = 3.14159265432 Private Sub Command1_Click() Picture1.Scale (-2 * PI, 1)-(2 * ...

透明度无法改变 粗细可以修改 窗体的DrawWidth属性 默认为1

Line 方法示例 这个示例用 Line 方法在窗体上画了几个同心矩形。要运行这个示例,将此代码放入窗体的 General 部分。按 F5 并单击窗体。 Sub Form_Click () Dim CX, CY, F, F1, F2, I ' 声明变量。 ScaleMode = 3 ' 设置 ScaleMode 为像素。 CX ...

绘图是系统内部操作的,不需要懂原理 方法就在那里,只有会用和不会用,你的代码告诉它绘制,它就会绘制。它(方法)究竟如何去绘制的并不是重点,反正它会绘制。 drawline(绘线)方法很简单,第一个参数是pen,它确定线条的颜色、宽度和样式。...

如果你想画出闭合的图形,数组里存储的点,必须是闭合的,即最后一个点跟第一个点一样,不知道你b,c,d,e,f参数都是什么值,没法运行试试。不过中间的线没有道理 Option ExplicitPrivate Sub Command1_Click()Dim z() As IntegerDim U As Integer...

用drawwidth来设定粗细,可设为1,2,3,4.... 用forcolor来设定颜色,可以用RGB()函数,也可以用VBRED,VBWHITE,VBGREEN等标准颜色

Picture1.Line (0, 0)-(300, 200), vbRed 后面那个参数就是颜色

Sub Form_Click() Dim CX, CY, Radius, Limit ' Declare variable. Picture1.AutoRedraw = True Picture1.ScaleMode = 3 ' 以像素为单位。 CX = Picture1.ScaleWidth / 2 ' X 位置。 CY = Picture1.ScaleHeight / 2 ' Y 位置。 If CX > CY Then ...

这种情况比较难实现,给你个解决方案 新建一个picturebox,AutoRedraw属性设为true 1、将你原来的picture的图用paintpicture方法贴在新建的picture里面相应位置 2、原来用Label的地方用print方法在相应位置打印上去 那么,此时你就可以在它们上...

网站首页 | 网站地图
All rights reserved Powered by www.ppts.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com