Нарисовать сетку в picturebox - VB
Формулировка задачи:
Подскажите пожалуйста, есть два picturebox. У первого размер 2000x2000 твипов, у второго 10000x10000. На обоих нужно нарисовать сетки, у второго шаг сетки должен быть в 40 раз больше чем у первого.
На первом picturebox'е она прекрасно рисуется, а на втором только две линии по краям. Здесь что то элементарное, но не пойму в чем дело.
Решение задачи: «Нарисовать сетку в picturebox»
textual
Листинг программы
Private Sub Command1_Click() Dim j As Integer For j = 0 To 49 Picture1.Line (0, j)-(50, j) Picture1.Line (j, 0)-(j, 50) Picture2.Line (0, j)-(50, j) Picture2.Line (j, 0)-(j, 50) Next j End Sub Private Sub Form_Activate() Picture1.Scale (0, 50)-(50, 0) Picture2.Scale (0, 50)-(50, 0) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д