Как создать перемещаемый график? - VB
Формулировка задачи:
Было время увлекался графикой в QB4.5.
(Пример во вложении)
Возник вопрос, каким образом в современных приложениях делают так, чтобы график внутри перемещался, когда его зацепляешь мышью или от клавиш? Каким образом это реализуется?Решение задачи: «Как создать перемещаемый график?»
textual
Листинг программы
Option Explicit Dim WithEvents pb As PictureBox Dim w&, h&, ww& Private Sub Form_Load() ChDir App.Path Set pb = Controls.Add("vb.PictureBox", "pb"): With pb .AutoSize = 1 .AutoRedraw = 1 .BorderStyle = 0 .Picture = LoadPicture("0.jpeg") .Visible = 1 End With h = pb.Height + (Height - ScaleHeight) w = (pb.Width + (Width - ScaleWidth)) / 2 ww = -w End Sub Private Sub Form_Resize() WindowState = 0 Move Left, Top, w, h End Sub Private Sub pb_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Static l&, ll& If Button Then ll = pb.Left + (X - l) If ll <= 0 And ll >= ww Then _ pb.Left = ll Else l = X End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д