如何在VB中产生箭头指向

来源：百度知道 编辑：UC知道 时间：2024/06/03 13:22:07
在窗体上画4个图像框和一个文本框，在每个图像框中装入一个箭头图形，分为4个不同的方向，把文本框的Multiline属性设置为true.编写程序，当单击某个图象框时，在文本框中显示相应的信息。例如，单击向右的箭头时，在文本框中显示“单击向右箭头”。
……………………………………………………………………………………
那个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

朋友，你在网上找一幅箭头图片就可以了，代码如下：
Private Sub Picture1_Click()
Text1.Text = "单击向右箭头"
End Sub

用photoshop做4个箭头，然后加载在picture中，再在picture1_click()中写相关的语句！
还有一种方法使用vb画图，画出4个箭头！