发布网友 发布时间:2022-04-22 09:50
共3个回答
热心网友 时间:2022-07-14 05:20
建一个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
热心网友 时间:2022-07-14 05:20
朋友,你在网上找一幅箭头图片就可以了,代码如下:
Private Sub Picture1_Click()
Text1.Text = "单击向右箭头"
End Sub
热心网友 时间:2022-07-14 05:21
用photoshop做4个箭头,然后加载在picture中,再在picture1_click()中写相关的语句!
还有一种方法使用vb画图,画出4个箭头!