画图问题.

Question

Line 方法
      在对象上画直线和矩形。语法object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]Line 方法的语法有以下对象限定符和部分：部分 描述 
object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。 
Step 可选的。关键字，指定起点坐标，它们相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置。 
(x1, y1) 可选的。Single （单精度浮点数），直线或矩形的起点坐标。ScaleMode 属性决定了使用的度量单位。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。 
Step 可选的。关键字，指定相对于线的起点的终点坐标。  
(x2, y2) 必需的。Single （单精度浮点数），直线或矩形的终点坐标。 
color 可选的。Long （长整型数），画线时用的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。 
B 可选的。如果包括，则利用对角坐标画出矩形。 
F 可选的。如果使用了 B 选项，则 F 选项规定矩形以矩形边框的颜色填充。不能不用 B 而用 F。如果不用 F 光用 B，则矩形用当前的 FillColor 和 FillStyle 填充。FillStyle 的缺省值为 transparent。 
说明画联结的线时，前一条线的终点就是后一条线的起点。线的宽度取决于 DrawWidth 属性值。在背景上画线和矩形的方法取决于 DrawMode 和 DrawStyle 属性值。执行 Line 方法时， CurrentX 和 CurrentY 属性被参数设置为终点。这个方法不能用于With...End With 语句块。

Answer 1

我有一个例程，给你要的应该差不多，你看看：VB中如何绘制一幅本来只有在Photoshop等绘图软件中才能完成的网格图像呢？现在就让我们用VB编程来实现它。 
　　首先：做准备工作：在FORM1上新建一个PICTURE1（并装载一幅你喜爱的图像）和两 
个COMMAND命令按钮在PICTURE1下面（即COMMAND1和COMMAND2），其他属性不变，然后输 
入以下代码： 
　　Private Sub Form_Load()//初始化设置 
　　Picture1.AutoSize = True 
　　Command1.Caption = ″显示网格″ 
　　Command2.Caption = ″取消网格″ 
　　Form1.Caption = ″显示网格图像演示程序″ 
　　End Sub 
　　－－－－－－－－－－－－－－－－ 
　　Private Sub Form_Activate()//设置网格颜色 
　　Picture1.ForeColor = vbWhite 
　　Picture1.Move 0, 0 
　　End Sub 
　　End Sub 
　　－－－－－－－－－－－－－－－－ 
　　Private Sub Command1_Click()//显示网格 
　　Dim HLINESNUM As Integer 
　　Dim WLINESNUM As Integer 
　　Dim XX As Integer 
　　Dim I As Integer 
　　Dim J As Integer 
　　Dim YY As Integer 
　　HLINESNUM = 15 //设置网格为15＊15显示 
　　WLINESNUM = 15 
　　Picture1.Refresh 
　　Picture1.AutoRedraw = False 
　　XX = Int(Picture1.ScaleWidth / WLINESNUM) 
　　YY = Int(Picture1.ScaleHeight / HLINESNUM) 
　　For I = 1 To HLINESNUM ＋ 1 
　　Picture1.Line (XX ＊ I, 0)－(XX ＊ I, Picture1.Height － 1) 
　　Picture1.Line (0, YY ＊ I)－(Picture1.Width － 1, YY ＊ I) 
　　Next 
　　End Sub 
　　－－－－－－－－－－－－ 
　　Private Sub Command2_Click()//取消网格 
　　Picture1.AutoRedraw = False 
　　Picture1.Refresh 
　　End Sub 
　　－－－－－－－－－－－－ 
　　Private Sub Form_Unload(Cancel As Integer) 
　　Unload Me //结束程序 
　　End 
　　End Sub 
　　好了，请按F5运行一下吧，效果如何？ 

Answer 2

大哥你好，最近颇困惑：）
请问大哥可否赐教关于用VB画图的技巧！尤其是菱形！
显示在敞口的一个图形匡里显示个菱形
拜托了！很急的！
我的QQ4081531
邮箱[email protected]