Платные хостинги     Раскрутка сайта     Книги по программированию

Работа с графикой, взаимодействие компонентов...

- Здравствуйте!Есть два Image, один из них в роле стены, другой в роле машины.Как зделать чтоб когда машина приблизится к стенке она не могла ехать дельше?Ещо нужно учитывать что стенок много и они с разными названиями!

- Сравнивать координаты сторон стены и машины + направление движения машины.В событии вызывающем движение (нажатие курсора) машини в том или ином направлении, проверяеш, не будут ли следующие координаты машини "налазит" на координаты стены.

- А можно примерчик?

- Ок.Создаеш новый проект. В форме ScaleMode = 3.Кладеш на форму PictureBox. Его ScaleMode тоже равно 3.В PictureBox кладеш Image, переименовываеш его в imgCar. Загружаеш в него нужный рисунок.В PictureBox кладеш еще Image, делаеш из него массив (в свойство Index устанавливаеш 0), переименовываеш в imgWall. Загружаеш в него нужный рисунок. Копируеш imgWall и вставкой, создаеш несколько его копий. Размещаеш их как тебе угодно.Тут нужно учитывать, что пример расчитан на изобращения размерами 32х32 пиксела. Размещай ImgWall только с шагом в 32, иначе будет некрасиво, неверно и непонятно. Это можно изменить если немного доработать код.А вот и код формы:Код Option ExplicitPrivate Const ImgSize As Integer = 32Dim X As LongDim Y As LongDim MaxX As LongDim MaxY As LongPrivate Function CanMove(ToX As Long, ToY As Long) As Boolean    Dim i As Integer        If (ToX < 0) Or (ToY < 0) Then Exit Function    If (ToX > MaxX) Or (ToY > MaxY) Then Exit Function        CanMove = True    For i = 0 To Me.imgWall.Count - 1        If (ToX = Me.imgWall(i).Left) And (ToY = Me.imgWall(i).Top) Then            CanMove = False            Exit For        End If    Next iEnd FunctionPrivate Sub MoveLeft()    Dim nX As Long    Dim nY As Long        nY = Y    nX = X - ImgSize    If Not CanMove(nX, nY) Then Exit Sub        Me.imgCar.Move nX, nY    X = nX    Y = nYEnd SubPrivate Sub MoveUp()    Dim nX As Long    Dim nY As Long        nY = Y - ImgSize    nX = X    If Not CanMove(nX, nY) Then Exit Sub        Me.imgCar.Move nX, nY    X = nX    Y = nYEnd SubPrivate Sub MoveRight()    Dim nX As Long    Dim nY As Long        nY = Y    nX = X + ImgSize    If Not CanMove(nX, nY) Then Exit Sub        Me.imgCar.Move nX, nY    X = nX    Y = nYEnd SubPrivate Sub MoveDown()    Dim nX As Long    Dim nY As Long        nY = Y + ImgSize    nX = X    If Not CanMove(nX, nY) Then Exit Sub        Me.imgCar.Move nX, nY    X = nX    Y = nYEnd SubPrivate Sub Form_Load()    MaxX = CLng(Fix(Me.Picture1.ScaleWidth / ImgSize) - 1) * ImgSize    MaxY = CLng(Fix(Me.Picture1.ScaleHeight / ImgSize) - 1) * ImgSizeEnd SubPrivate Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)    Select Case KeyCode        Case 37            MoveLeft        Case 38            MoveUp        Case 39            MoveRight        Case 40            MoveDown    End SelectEnd SubhighlightSyntax('vbjJjOWN','vb');

- большое вам спасибо!

- Подскажите пожалуйста как со спрайтами лутьше работать?Точнее как использовать маски, ато без маски картинка мигает!

- это же не Direct Draw графика работающая в форме всегда вот так "глючит"

- Вот в этом ты не прав. Это графика которая имиджами и пикчербоксами рисуется - та да. А вот если правильно использовать API ты и не увидиш разницу (ну в простом варианте конечно).

- Naghual Это я и имел ввиду

- Ну а тут ты, Naghual, не прав Вот тутhttp://forum.vingrad.ru/index.php?showtopic=22956было дело, так Vach неплохую ссылку дал. В проекте используются имиджи и ничего не мигает.Советую взглянуть. Неплохой пример.

- cardinal. Это не совсем верно.Пример Вача рулит как псевдо анимация.А если взять рисунок и положить на него Image с другим рисунком и этот самый Image двигать - вот это как раз то о чем я говорил. Фликить будет. Особливо если рисунок в Image не соответствует размеру контейнера. Добавлено @ 14:44 А о прозрачности я уже и не говорю.

- ? Анимация она и в Африке анимация, а как ты ее реализуешь - это уже другой вопрос.Цитата Это графика которая имиджами и пикчербоксами рисуется - та да.Ну а если ты это имел в виду не так, как я понял, то значит фраза была несколько неоднозначная .Вот нашел еще один пример анимации (в нем правда мигает ): Присоединённый файл ( Кол-во скачиваний: 3 ) ss.zip

- "Мигает" и есть тот самый эфект флика. Пусть каждый останется при своем мнении.

- Да пусть будет так. Мы здесь не только для того, чтобы спорить все таки...

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD