Нарисовать сетку в picturebox - VB

Формулировка задачи:

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

Код к задаче: «Нарисовать сетку в picturebox - VB»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.250 из 5


СДЕЛАЙТЕ РЕПОСТ