`
chenlong_1988
  • 浏览: 183095 次
  • 性别: Icon_minigender_2
社区版块
存档分类

vb line的用法及PICTURE LINE 用法

    博客分类:
  • vb
阅读更多

出自:http://wuchuang8114994.blog.163.com/blog/static/129342693200910109615148/

vb line的用法及PICTURE LINE 用法  

2009-11-10 21:06:15|  分类: vb 控件程序|字号 订阅

 
 

可使用 Line 方法绘制并填充方框。下列示例画出一个方框,其左上角为 (500, 500),每边长为 1,000 缇:

Line (500, 500)–Step(1000, 0)
Line -Step(0, 1000)
Line -Step(–1000, 0)
Line -Step(0, –1000)

然而,Visual Basic 提供了一个更简单的画方框的方法。当在 Line 方法中使用 B 选项时,Visual Basic 把指定点作为矩形的对角点,可画出一个矩形。所以,可用下列语句,代替上例中的四个语句:

Line (500, 500)–Step(1000, 1000), , B

注意,在 B 之前要有两个逗点,以表示色彩参数被省略了。Line 方法的语法包括在本章稍前的“画各种直线和形状”一节中。

FillStyle 和 FillColor
只要不改变 FillStyle 属性的设置值,所画的方框将是空的。(该方框使用缺省的 FillStyle 和设置值来进行填充,不过 FillStyle 的缺省值是 1-透明。)可将 FillStyle 属性改变为下表列出的任意设置值。

设置值 描述 
0 实心的。可用 FillColor 属性设置的颜色填充方框。 
1 透明(缺省值)。无论使用何种色彩,图形对象表现为空。 
2 水平线。 
3 垂直线。 
4 向上的对角线。 
5 向下的对角线。 
6 十字交叉线。 
7 对角交叉线。 


所以,将 FillStyle 设置为 0,就可以用 FillColor 属性的颜色设置,将方框填充为实心。

另一种填充方框的方法,是在 B 之后指定 F。(注意,没有 B 就不能用 F。)当使用 F 选项时,Line 方法将忽略 FillColor 和 FillStyle 属性。使用 F 选项时,方框总是被填充为实心。下述语句使用具有 ForeColor 属性的一种实心图样,对方框进行填充。

 

关于PictureBox   中的line   用法   msdn   上的说明为如下所示   
  object.Line   [Step]   (x1,   y1)   [Step]   -   (x2,   y2),   [color],   [B][F]  

分享到:
评论

相关推荐

    VB中Line的移动及重绘

    窗体放大缩小时,line也随着改变比例,保持原来窗体的位置及大小比例

    VB 控件数组画图.rar

    VB 控件数组画图,每次输出新图形,前面的清除,可以画直线、矩形、圆。具体的代码操作,请看如下:  Private Sub Form_Load()  Picture1.Scale (0, 0)-(10, 10) '设置坐标系  End Sub  Private Sub Command1_...

    心脏线程序(VB6.0源代码编写)

    'Scale方法设定用户坐标系,坐标原点在Picture1中心 Picture1.ScaleMode = 0 Picture1.ScaleMode = 3 Picture1.Scale (-20, 20)-(20, -20) '设置绘线宽度 Picture1.DrawWidth = 1 '绘制坐标系的X轴及箭头线 ...

    如何使用VB实现打印预览

    Line Input #27, A If A = "#startpage" Then NumPag = NumPag + 1 ElseIf A = "#endpage" Then PrnPrv.ePag.AddItem Format(NumPag) End If Wend Close #27 If PrnPrv.ePag.ListCount > 0 Then PrnPrv....

    心脏线程序(VB6.0代码编写)

    心脏线程序(VB6.0代码编写) \'注释:画抛物线 \'清除picture1内的图形 Picture1.Cls \'Scale方法设定用户坐标系,坐标原点在Picture1中心 Picture1.ScaleMode = 0 Picture1.ScaleMode = 3...

    VB程序设计绘制机械图

    Picture1.Line (2, 2)-(145, 115), , B Picture1.Line (105, 105)-(145, 115), , B Picture1.DrawWidth = 1 Picture1.Line (105, 110)-(145, 110) Picture1.Line (125, 105)-(125, 115) Picture1.Line (105, ...

    用PictureBox.Line写的动态进度曲线

    类似于“Windows任务管理器”中CPU或内存的使用记录的动态显示。

    vb 沙丘图案 图片框中显示

    vb 沙丘图案 ...Dim xx, yy, px, py, al, l, a Dim dx Picture1.Scale (0, 0)-(640, 200) dx = 640 For py = 0 To dx Step 5 al = 2 * PI * (py - 20)... Picture1.Line -(xx, yy / 2), QBColor(6) Next a Next py

    一劳永逸让VB自动改变控件大小

    一劳永逸让VB自动改变控件大小 Private Sub Form_Load()//初始化设置  Picture1.AutoSize = True  Command1.Caption = ″显示网格″  Command2.Caption = ″取消网格″  Form1.Caption = ″显示网格图像演示程序...

    VB函数画图形

    VB函数画图形的源码示例,生成图形的VB绘图实例,设置Picture1控件使其中心点坐标为(0,0),Picture1.Cls清除其他图形,以下三行VB代码实现在Picture1中绘制黑色的水平坐标轴和垂直坐标轴。  Picture1.ForeColor = &...

    VB6.0初学者的10个编程小技巧

    关于vb初学者的忠告 信息来源:邪恶八进制信息安全团队(www.eviloctal.com) 1、如果一行程序太长,能不能换行? VB的程序代码是允许换行书写的,只要在每次换行的最后一个字符加上换行字符“_”就可以了。例如...

    汽车动力性计算 VB源代码

    汽车动力性计算 VB源代码 部分代码 Private Sub Command2_Click() '加速度曲线 Label17.Caption = "" Picture1.Cls Picture1.Scale (-12, 3)-(125, -0.3) Picture1.Line (0, 0)-(0, 2.8) Picture1.Line (0, 0)-...

    用vb做一个简单的射击游戏

    用vb做一个简单的射击游戏 Option Explicit Dim RandX As Single Dim RandY As Single Dim Score As Single Dim Thisscore As Single Dim Average As Single Dim Shot As Integer Dim Appear As Boolean Dim ...

    VB模拟洗衣机自动加水抽水功能.rar

    VB模拟洗衣机,哈哈,还没听说过吧,可模拟出洗衣机自动加水抽水的功能,还有动画演示效果,符合VB结构化程序的特点,简单易懂,同时采用了通用的小游戏循环方式。代码片段:  Dim WarterHeight As Single '水高度...

    用vb编写的函数作图软件

    用vb编写的函数作图软件的代码: Const Pi = 3.1415926535 '定义圆周率 Dim a, wor '定义用于在Picture1上的一个位置打印字符函数 Private Function PrintWord(X, Y, Word As String) With Picture1 .CurrentX = X ....

    Using DIB Sections in VB

    Using DIB Sections in VB An Easy to Use ... PaintPicture Similar to the VB paint picture method, this copies all or part of the DIB section to another device context using the specified Raster ...

    ASP.NET 4.5入门经典:涵盖C#和VB.NET(第7版) 源码

    This edition retains the highly accessible approach to building the Planet Wrox website example, an online community site featuring product reviews, picture sharing, bonus content for registered ...

    [ASP.NET] ASP.NET 4.5 入门经典 (C# & VB 语言实现) (英文版)

    This edition retains the highly accessible approach to building the Planet Wrox website example, an online community site featuring product reviews, picture sharing, bonus content for registered ...

    vb设计的 绘图 直线,可清除,工具

    Print "X ="; X, "Y ="; Y If Button = vbLeftButton Then Picture1.ForeColor = vbRed Picture1.DrawWidth = 3 Picture1.Line (x0, y0)-(X, Y) End If

    VB游戏好玩

    简单VB游戏.Picture1.AutoRedraw = True Picture1.DrawWidth = 1 Picture1.DrawStyle = 0 For i = 10 To 50 Step 10 Picture1.Circle (RandX, RandY), i, RGB(0, 0, 255) Next i Picture1.Line (RandX - 60, ...

Global site tag (gtag.js) - Google Analytics