Перемещение картинки клавишами - VB

  1. Нужно перемещать image1 по picturebox(image лежит внутри picturebox) вот этот код вроде но он не перемещает , может его куда вставить надо , я вставлял в форму


textual

Код к задаче: «Перемещение картинки клавишами - VB»

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'определяем какая клавиша нажата
  Select Case KeyCode
       Case vbKeyRight: Image1.Left = Image1.Left + 25  ' двигаем картинку
       Case vbKeyLeft: Image1.Left = Image1.Left - 25
       Case vbKeyDown: Image1.Top = Image1.Top + 25
       Case vbKeyUp: Image1.Top = Image1.Top - 25
  End Select
 
   KeyCode = 0
End Sub

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

9   голосов, оценка 4.444 из 5



Похожие ответы
  1. На форме timer1 и command1, command2 После того как кликаешь мышкой по форме кнопка command1 двигается в эту точку. Помогите исправить код чтобы перемещалось не в точку куда кликнешь а к координатам другого объекта например при нажатии на command2 чтобы command1 переместилась в положение к command2 Или кто может реализовать этот код проще по моей задаче потому что какой то код мудреный не разберусь никак с координатами тут их еще конвертировать надо фиг поймешь как

  1. Здравствуйте! Встретил интересный сайт, много непонятного. Прошу помощи. Какой язык и что надо делать, предполагаю VB.NET Кликните здесь для просмотра всего текста vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 Public r, w1, w2, scal, ss, xmax, v, m As Integer Private Sub Command1_Click() Randomize (Timer) ss = 1 xmax = 500 v = 140 w1 = -0.2561797 w2 = -1# x0 = 0 scal = 1950 For x = ss To xmax + 100 Step ss    For y = ss To xmax Step ss     re = (x - xmax / 2 + 1200) / scal     im = (y - xmax / 2 + 1050) / scal     For j = 1 To v           rere = re           re = Exp(re) * Sin(im) + w1           im = Exp(rere) * Cos(im) + w2           k = j           If re > 40 Then j = v           'If r > 450 Then j = v      Next j    ' Debug.Print re, im     im = Abs(im)     re = Abs(re)         red = (42 * k) Mod 255         green = (50 * k) Mod 255         blue = (68 * k) Mod 255      Col = RGB(red, green, blue)     If ss > 1 Then Line (x + 0, y - 0)-Step(ss, ss), Col, BF     If ss = 1 Then PSet (x, y), Col    Next y Next x End Sub Private Sub Command2_Click() End End Sub Private Sub Form_KeyPress(keyascii As Integer)     If keyascii = 32 Then End End Sub Должна получиться картинка ниже.

  1. Добрый день всем. Подскажите пример угасающей анимации форма с картинкой плавно появляется и плавно затухает. Нашел вот это, но с привязкой к osenxpsuite2010.ocx. Минус в том, что он платный..

  1. Как ограничить перемещение курсора по круговой ттраектории с определенным радиусом в определенной позиции формы ? Знаю что lock курсор но не знаю как

  1. У меня есть картинки 1.jpg и 2.jpg. На форме есть Image1 с картинкой по умолчания 1.jpg. При наведении на эту картинку курсором надо что бы она стала 2.jpg. Это я сделал с помощью MouseMove. Но мне надо чтобы при отведении курсора в другое место картинка становилась вновь 1.jpg. Я пытался сделать это с помощью таймера, но таймер совсем не выход. Из-за него лагает. Да и дико это как то.

  1. Есть таблица в Access 2003 с полем объекта OLE, в котором хранятся картинки jpg. И есть форма с OLE куда картинка загружается из базы. Я не могу понять как сделать связь в обратную сторону, чтобы через форму в таблицу загружать картинку, при добавлении новой записи или изменении существующей. Заранее благодарен за помощь. P.S. мои знания vb равны 6 часам, так что сильно не бейте.

  1. ребят пожалуйста помогите есть этот код как его поменять чтобы картинка с низу вверх, в лево и в низ шла как указана на фото, при этом коде картинка по деиаганили идет в лево потом в право и вниз а мне наоборот надо

  1. Нахожусь в поиске информации о том, как исходную картинку , скажем "new.jpg" перекодировать в файл тхт ,состоящий из 1 и 0 , а впоследствии другой программой раскодировать его и вывести на Image1.Image.Зарание признателен.

  1. Это либо PictureBox, либо Image, не так важно. Как в компоненте контролировать положение картинки? Именно загруженной картинки, а не самого компонента.

  1. Вся суть в том что нужно при нажатии клавиши на клавиатуре чтобы мышка перемещалась на определенные координаты совершала щелчок левой кнопкой мыши ну а потом еще и нажималась клавиша вверх. Подскажите как указать мышке куда перемещаться.