- Код: Выделить всё
Private Sub Graph(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
Как ее вызвать?
graph(sender, e) естественно вылетает с ошибкой несовместимые типы
Private Sub Graph(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
Private Sub GraphAxes(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
Dim g As Graphics = e.Graphics
Dim pen_Axes As Pen = New Pen(Color.Black, 2)
g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
g.DrawLine(pen_Axes, 10, 10, 10, 184)
g.DrawLine(pen_Axes, 10, 97, 354, 97)
g.Dispose()
End Sub
Как ее можно вызвать, допустим по изменению чэкбокса?
Private Sub GraphAxes(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles CheckBox1.CheckedChanged
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 62