Как в PictureBox загрузить картинку - VB
Формулировка задачи:
нужна помощь :
Я ПользоватеЬ запускаю "эту" программу и ...
1)в picturebox вставить картинку из любого места на диске
2) На эту же картинку разместить другую (наложение) и ее перемещать по фоновой карттинке
ну и потом и сохранить (это уж я сам смогу)
P.S только начинаю
Решение задачи: «Как в PictureBox загрузить картинку»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д