如何在VB中产生箭头指向

建一个Text1,Picture1,Picture2,Picture3,Picture4。

代码如下。

＝＝＝＝＝＝＝＝＝＝＝＝

Private Sub Form_Resize()

Picture1.Print "←"

Picture2.Print "→"

Picture3.Print "↑"

Picture4.Print "↓"

End Sub

Private Sub Picture1_Click()

Text1.Text = "单击向左箭头"

End Sub

Private Sub Picture2_Click()

Text1.Text = "单击向右箭头"

End Sub

Private Sub Picture3_Click()

Text1.Text = "单击向上箭头"

End Sub

Private Sub Picture4_Click()

Text1.Text = "单击向下箭头"

End Sub

Dim penLine As New Pen(Brushes.Black, 5)

penLine.EndCap = Drawing2D.LineCap.ArrowAnchor

g.DrawLine(penLine,...)

画笔pen有一个属性,始末端可以设置有无箭头或者其他形状

箭头必须自己画(就是一根直线再加两根短的直线作为箭头)

虚线可以设置PictrueBox的DrawStyle属性为2-Dot,这个属性还有其他的一些常见线型,你可以逐一测试

线宽可以通过设置DrawWidth属性来改变

修改坐标要用PictureBox的Scale方法

Scale

方法

用以定义

Form、PictureBox

或

Printer

的坐标系统。不支持命名参数。

语法

object.Scale

(x1,

y1)

-

(x2,

y2)

Scale

方法的语法包含下列部分：

部分

描述

object

可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略

object，则带有焦点的

Form

对象缺省为

object。

x1,

y1

可选的。均为单精度值，指示定义

object

左上角的水平（x-轴）和垂直（y-轴）坐标。这些值必须用括号括起。如果省略，则第二组坐标也必须省略。

x2,

y2

可选的。均为单精度值，指示定义

object

右下角的水平和垂直坐标。这些值必须用括号括起。如果省略，则第一组坐标也必须省略。

说明

Scale

方法使您能够将坐标系统重置到所选择的任意刻度。Scale

对运行时的图形语句以及控件位置的坐标系统都有影响。

如果使用不带参数的

Scale（两组坐标都省略），坐标系统将重置为缇。

比如你要设置左上角（0，0）右下角（100，100）

Picture1.Scale

(0,0)-(100,100)

这样就可以了

---