phym.net
当前位置:首页 >> vB piCturEBox linE >>

vB piCturEBox linE

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

设置PictureBox的DrawWidth属性,再画就行了... Picture1.DrawWidth = 10 '这个自己设定粗细了 Picture1.Line (0, 0)-(1000, 1000)

Dim PtStart As Point '记录绘制直线的起始点 Dim PtEnd As Point '记录绘制直线的终点 Dim ShouldDrawLine As Boolean '是否绘制直线 '记录鼠标左键点击的位置,第二次点击后开始绘制直线 Private Sub Pic1_MouseDown()Sub Pic1_MouseDown(ByVa...

可以啊~ 是不是被你刷新掉了或者是在Form_Load里画的? 如果是的那么你把Picture1的AutoRedraw设置成True即可

Private Sub Form_Click() w = Picture1.Width / 2: h = Picture1.Height / 2 Picture1.Scale (-w, h)-(w, -h) Picture1.Line (-w, 0)-(w, 0), vbBlue Picture1.Line (w, 0)-(w - 100, 100), vbBlue Picture1.Line (w, 0)-(w - 100, -100), vbBl...

一、实现原理 采用一个完整的图片来作为进度条,每次当进度条改变时,采用先贴图再用背景色擦去不需显示的一段进度的方法来实现进度条的变化,可实现制作任何复杂美观的进度条。 二、准备工作 首先需准备一个如下图样式的进度条图片(当然你可以...

你确定你拖进去的那个 PictureBox 控件的名字就叫 Picture 而不是叫 Picture1 什么的?

Image、Shape 和 Line 控件都被认为是轻量图形控件,也就是说,它们只支持 PictureBox 的属性、方法和事件的一个子集。因此,它们需要较少的系统资源而且加载也比 PictureBox 控件更快。 用 Image 控件代替 PictureBox Image 控件与 PictureBox ...

Dim b As New Bitmap(PictureBox1.Width, PictureBox1.Height) Dim g As Graphics = Graphics.FromImage(b) g.Clear(Color.White) Dim p As New Pen(Color.Black) p.EndCap = Drawing2D.LineCap.ArrowAnchor g.DrawLine(p, 30, PictureBox1.Heig...

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 ...

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