Как в PictureBox загрузить картинку - VB

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

нужна помощь : Я ПользоватеЬ запускаю "эту" программу и ... 1)в picturebox вставить картинку из любого места на диске 2) На эту же картинку разместить другую (наложение) и ее перемещать по фоновой карттинке ну и потом и сохранить (это уж я сам смогу) P.S только начинаю

Код к задаче: «Как в PictureBox загрузить картинку - VB»

textual
Private Sub Form_Initialize()
   Picture1.BorderStyle = 0
   Picture1.Picture = LoadPicture(App.Path + "\back.bmp") ' Фон
   Picture3.BorderStyle = 0
   Picture3.Picture = LoadPicture(App.Path + "\plane.bmp") 'Самолёт
   Picture3.Visible = False
   Picture2.BorderStyle = 0
   Picture2.Height = Picture3.Height
   Picture2.Width = Picture3.Width
   Picture2.Left = Picture1.Left + Picture2.Width
   Randomize
   Picture2.Top = Int((500 * Rnd) + 1) + Picture2.Height
   Timer1.Interval = 20
   Timer1.Enabled = False
End Sub
Private Sub Form_Keydown(KeyCode As Integer, Shift As Integer)
   Dim dx As Integer, dy As Integer
   Dim npoint       ' цвет точки
   Picture2.Visible = False
   Picture2.PaintPicture Picture1.Picture, -Picture2.Left, -Picture2.Top
  Select Case KeyCode
       Case vbKeyRight: Picture2.Left = Picture2.Left + 25  ' двигаем картинку
       Case vbKeyLeft: Picture2.Left = Picture2.Left - 25
       Case vbKeyDown: Picture2.Top = Picture2.Top + 25
       Case vbKeyUp: Picture2.Top = Picture2.Top - 25
  End Select
 For dx = 1 To Picture3.Width Step Screen.TwipsPerPixelX
      For dy = 1 To Picture3.Height Step Screen.TwipsPerPixelY
            npoint = Picture3.Point(dx, dy)
         If npoint <> RGB(255, 255, 255) Then
           Picture2.PSet (dx, dy), npoint
         End If
      Next dy
   Next dx
   Picture2.Visible = True
End Sub
Private Sub Form_Load()
KeyPreview = True
End Sub
Эта работа вам не подошла?

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

14   голосов, оценка 3.857 из 5


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