VB编程的程序

Question

3、在窗体上画4个图像框和一个文本框，在每个图像框中装入一个箭头图形，分为四个不同的方向，把文本框的Multiline属性设置为True。编写程序，当单击某个图像框时，在文本框中显示相应的信息。例如，单击向右的箭头时，在文本框中显示“单击向右箭头”。

Answer 1

Private Sub Image1_Click()

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

End Sub

Private Sub Image2_Click()

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

End Sub

Private Sub Image3_Click()

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

End Sub

Private Sub Image4_Click()

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

End Sub

Answer 2

Private Sub Form_Load()
Text1.MultiLine = True
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