VB写的图片浏览怎么实现鼠标托动看图片
现在我加的滚动条来调整看超过大小的图片.想加个鼠标直接托动就可以看图片任意位置的功能.不知道应该怎么加
我的代码
Private Sub Command21_Click()
On Error GoTo ErrExit
Form3.Caption = Label29.Caption
Form3.Picture2.Left = 0
Form3.Picture2.Top = 0
Form3.Picture2.Width = Form3.Picture1.Width
Form3.Picture2.Height = Form3.Picture1.Height
Form3.VScroll1.Min = 0
Form3.HScroll1.Min = 0
Form3.HScroll1.Min = 0
Form3.VScroll1.Max = Form3.Picture2.Height - Form3.Picture1.Height
Form3.HScroll1.Max = Form3.Picture2.Width - Form3.Picture1.Width
If Form3.HScroll1.Max < 0 Then Form3.HScroll1.Enabled = False
If Form3.VScroll1.Max < 0 Then Form3.VScroll1.Enabled = False
Form3.Picture2.Picture = LoadPicture(App.Path + "\Map\" + Label29.Caption + ".jpg")
Form3.VScroll1.Min = 0
Form3.HScroll1.Min = 0
Form3.VScroll1.Max = Form3.Picture2.Height - Form3.Picture1.Height
Form3.HScroll1.Max = Form3.Picture2.Width - Form3.Picture1.Width
If Form3.HScroll1.Max < 0 Then Form3.HScroll1.Enabled = False
If Form3.VScroll1.Max < 0 Then Form3.VScroll1.Enabled = False
ErrExit:
End Sub
form 3 中 加一个picbox1 ,一个picbox2 auto属性为true!
Private Sub HScroll1_Change()
Picture2.Left = -HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub