Сдвинуть нарисованные объекты - VB

  1. Я нарисовал в VB рисунок в через Приват Саб (Line, Circle). Мне нужно этот рисунок запихать в цикл таким образом, что бы он появился рядом такой же сдвинутый по оси Х. После, нужно что бы вот эти 2 рисунка появились сдвинутые по оси У вниз, тоже с помощью цикла. То есть должен быть цикл в цикле. и в итоги из одного должно получится 4 рисунка. Заранее благодарю.


textual

Код к задаче: «Сдвинуть нарисованные объекты - VB»

Line (1 + i, 1 + x)-(3 + i, 1 + x), vbBlack
Line (1 + i, 1 + x)-(1 + i, 3 + x), vbBlack
Line (1 + i, 3 + x)-(3 + i, 3 + x), vbBlack
Line (3 + i, 3 + x)-(3 + i, 5 + x), vbBlack
Line (3 + i, 5 + x)-(1 + i, 5 + x), vbBlack

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

13   голосов, оценка 3.769 из 5



Похожие ответы
  1. PureBasic1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub LastLab() Dim A(11) As Integer, B, i As Integer, s As String Randomize s = "ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў:" & vbCrLf For i = 1 To 10 A(i) = Int(Rnd * 99 + 1) s = s & "A(" & i & ")=" & A(i) & "  " Next i B = A s = s & vbCrLf & vbCrLf & "ÐåçóëüòГ*ГІ:" & vbCrLf For i = 10 To 1 Step -2 A(i) = B(i / 2) A(i + 1) = B(10 - (i / 2)) Next i For i = 1 To 10 s = s & "A(" & i & ")=" & A(i) & "  " Next i MsgBox s End SubМне надо сдвинуть исходный массив на 2 элемента (чтоб А9-10 встали на А1-2), а получается вообще нечто. Можете исправить?

  1. Помогите пожалуйста! Как сделать так, чтобы пользователь мышкой на PictureBox поставил несколько точек, а потом нажал на кнопку и все точки соединились прямыми?