' VB 代码:在窗体添加Image1,并设置Picture 属性为目标图片
Private Sub Form_Click()
Form1.PaintPicture Image1.Picture, 0, 0
End Sub
Private Sub Form_DblClick()
Dim i, l As Integer, x1, y1 As Integer
x1 = Form1.Width \ Image1.Width
y1 = Form1.Height \ Image1.Height
For i = 0 To x1
For l = 0 To y1
Form1.PaintPicture Image1.Picture, Image1.Width * i, Image1.Height * l
Next
Next
End Sub
在窗口的一个属性中可以设置提示信息,当鼠标停留的时候就会出现,不知道是不是你所要表达的意思