Как создать перемещаемый график? - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы