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

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


textual

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

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

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

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



Похожие ответы
  1. Подскажите пожалуйста, есть два picturebox. У первого размер 2000x2000 твипов, у второго 10000x10000. На обоих нужно нарисовать сетки, у второго шаг сетки должен быть в 40 раз больше чем у первого. На первом picturebox'е она прекрасно рисуется, а на втором только две линии по краям. Здесь что то элементарное, но не пойму в чем дело.PureBasic1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 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

  1. Всем привет, помогите разобраться с кодом. Постоянно выдает ошибку overflow. Заранее спасибо!

  1. Имеется программа состоящая из нескольких форм. При открытии одной из форм в TextBox загружается и отображается содержимое блокнота:

  1. Всем привет! Пишу программку-чат и подумал, что проще всего будет сделать окно сообщений используя WebBrowser.. но вот не задача обнаружил что невозможно загрузить через метод Navigate страницу большого объема. Сначало думал, что допускаю ошибки в разметке страницы.. нооо нет это оказался какой-то глюк. Вот конкретный пример:

  1. Итак, товарищи! Подскажите пожалуйста как вывести палитру на форму так, чтобы можно было менять цвет объектов, нарисованных в PictureBox

  1. Исправте, что не правильно, пожалуйста. Задание изображений. В режиме проектирования для задания изображений используется свойство Picture и диалоговое окно Load Picture, где задается требуемый файл. В режиме выполнения программы существуют следующие возможности для задания изображения объекта : •загрузить изображение при помощи функции LoadPicture с указанием файла изображения:

  1. может кто помочь заставить двигаться эту картинку с лева на права через Picturebox.

  1. Что мне в код добавить чтобы он еще искал черный пиксел и если он найден выдавалось сообщени! Не пойму как и куда впихнуть проверки IF DIB_EGB_COLOR =0