Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Проблемы с картинкой Добавлено: 18.05.05 20:00  

Автор вопроса:  smeladon
При движении картинка( *.jpg ) "рябит"

Ответить

  Ответы Всего ответов: 7  

Номер ответа: 1
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
  Профиль | | #1 Добавлено: 18.05.05 20:13
Может то в глазах? Пойди поспи. :))))) Если уверен что с глазами всё норм - давай код, пускай и у нас порябит...

Ответить

Номер ответа: 2
Автор ответа:
 smeladon



Вопросов: 10
Ответов: 8
  Профиль | | #2 Добавлено: 18.05.05 20:33
Я двигаю картинку изменением параметра Left
Option Explicit
Dim x As Byte
' peremennaya dla schetchika vremeni

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then
TimerMoveLeft.Enabled = True
ElseIf KeyCode = vbKeyRight Then
TimerMoveRight.Enabled = True
ElseIf KeyCode = vbKeyUp Then
TimerMoveUp.Enabled = True
ElseIf KeyCode = vbKeyDown Then
TimerMoveDown.Enabled = True
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
TimerMoveLeft.Enabled = False
TimerMoveRight.Enabled = False
TimerMoveUp.Enabled = False
TimerMoveDown.Enabled = False
ImageMain.Height = 4500
ImageMain.Top = 3000
End Sub

Private Sub Form_Load()
x = 60
End Sub



Private Sub TimerMoveLeft_Timer()
ImageMain.Left = ImageMain.Left - 45
End Sub

Private Sub TimerMoveRight_Timer()
ImageMain.Left = ImageMain.Left + 45
End Sub

Private Sub TimerMoveDown_Timer()
ImageMain.Height = ImageMain.Height - 10
End Sub

Private Sub TimerMoveUp_Timer()
ImageMain.Top = ImageMain.Top - 10
End Sub

Private Sub TimerTimeCount_Timer()
x = x - 1
LabelTimeCount.Caption = x
End Sub
' schetchik vremeni

нужно 5 таймеров, 2картинки( 1 фон и1 движущаяся)

Ответить

Номер ответа: 3
Автор ответа:
 someone



Вопросов: 215
Ответов: 1596
  Web-сайт: 123
 Профиль | | #3 		Добавлено: 18.05.05 20:57
ого... почему так сложно? :))

Ответить

Номер ответа: 4
Автор ответа:
 someone



Вопросов: 215
Ответов: 1596
  Web-сайт: 123
 Профиль | | #4 		Добавлено: 18.05.05 20:58
мог бы и попроще код следать . хотя кому как.
у меня тот же эффект :((
и вообще еще например у меня animatewindow не пашет :((

Ответить

Номер ответа: 5
Автор ответа:
 Страшный Сон



Вопросов: 46
Ответов: 848
  Профиль | | #5 Добавлено: 18.05.05 22:24
Нужно юзать хотя бы BitBlt.

Ответить

Номер ответа: 6
Автор ответа:
 sne



Разработчик Offline Client

ICQ: 233286456 

Вопросов: 34
Ответов: 5445
  Web-сайт: hw.t-k.ru
 Профиль | | #6 		Добавлено: 18.05.05 23:58
Самая частенькая ошибка - выключенный Autoredraw у формы...

Ответить

Номер ответа: 7
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
  Профиль | | #7 Добавлено: 19.05.05 21:19
нахр стойо таймеров? там всё в один собрать можно (да и нужно)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам