Вроде ничего сложного :
- Код: Выделить всё
X1min = 1
X1max = 100
Y1min = 50
Y1max = 5
Form3.Picture3.Cls
Form3.Picture3.Scale (X1min, Y1min)-(X1max, Y1max)
Form3.Picture3.DrawWidth = Hplot1
Form3.Picture3.Line (X1min, Y1min)-(X1min, Y1max)
Form3.Picture3.Line (X1min, Y1min)-(X1max, Y1min)
Form3.Picture3.DrawWidth = Hplot2
Form3.Picture3.Line (X1max, Y1min)-(X1max, Y1max)
Form3.Picture3.Line (X1min, Y1max)-(X1max, Y1max)
For i = 1 To 10
Form3.Picture3.Circle (i * 9, i * 4), Form3.Picture4.ScaleWidth / RCirclDKID, QBColor(ColCirclDKID)
Next i
И событие мыши:
- Код: Выделить всё
Private Sub Picture3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1).Text = "Значение " & Y
End Sub
Что получается: при движении мышью по графику значение отображается, вроде все нормально, НО когда я дохожу мышью до нижней границы графика, должно показывать значение 5, а у меня показывает 5,12....... А когда дохожу до верхней границы графика - все нормально, показывает 50
Почему внизу 5,1.... а не ровно 5 Я идиот! Убейте меня, кто-нибудь!