Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> смена картинки 
:(
    Опции темы
tyk
Дата 28.9.2003, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 28.9.2003

Репутация: нет
Всего: нет
еще вопрос
у меня есть pic1 и pic2 в bmp формате и звук waw1
мне надо чтобы при нажатии кнопки "F" (к примеру)
pic1 на форме сменялось pic2
и воспроизводился звук waw1
помогите плиз
VB 4.0 sad.gif

PM MAIL   Вверх
Alles
Дата 29.9.2003, 02:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 142
Регистрация: 26.6.2003
Где: RUSSIA

Репутация: 2
Всего: 2
Привет !!! Ну это не проблема.
Ставим в окне свойств pic1 и pic2 Visilbe=False.
А вот со звуком тут мемного по сложней . способов несколько , но самый оптимальный , это подключить функцию API. В General объявляем функцию
Код
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long



Private Sub CommandButton1_Click()
Dim x As Long
If pic1.Visible = True Then pic1.Visible = False: pic2.Visible = True Else pic1.Visible = True: pic2.Visible = False
x = PlaySound("C:\Путь_до_файла", 0, &H1 Or &H10)
End Sub
PM MAIL ICQ   Вверх
tyk
Дата 29.9.2003, 09:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 28.9.2003

Репутация: нет
Всего: нет
спасибо
еще пару вопросов мона confused.gif

1)
Код

Select Case KeyCode
 Case vbKeyW
    If mPlayer1.Top = Picture1.Top Then
  Unload Me
  End If
  mPlayer1.Top = mPlayer1.Top - 50
 Case vbKeyS
  mPlayer1.Top = mPlayer1.Top + 50
 Case vbKeyA
  mPlayer1.Left = mPlayer1.Left - 50
 Case vbKeyD
  mPlayer1.Left = mPlayer1.Left + 50
End Select

End Sub

это код на движение объекта
но при перемене направления движения он немного подтармаживает (приостанавливается)
и если держать нажатой 2 кнопки а потом одну отпустить то движение останавливается
это можно какнить исправить ?

2) как запретить объекту выезжать за границы picturebox'а
3) можноли какнить загрузить формат рисунка с прозрачностью (не БМП а ГИФ к примеру)
4)как сделать чтоб img1 менялось на img2 и обратно в течении 1 сек

VB 4.0 sad.gif
заранее спасибо

Это сообщение отредактировал(а) tyk - 29.9.2003, 10:01
PM MAIL   Вверх
Mephisto
Дата 29.9.2003, 17:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Волкъ
***


Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

Репутация: 2
Всего: 34
Цитата
если держать нажатой 2 кнопки а потом одну отпустить то движение останавливается
это можно какнить исправить ?

Можно, необходимо отлавливать нажатие клавиши в таймере.
Цитата
как запретить объекту выезжать за границы picturebox'а

mPlayer1.Width + mPlayer1.Left < PictureBox.Width
Цитата
как сделать чтоб img1 менялось на img2 и обратно в течении 1 сек

Создаешь Timer и ставишь ему Interval в 1000. А далее пишешь по аналогу:
Цитата
If pic1.Visible = True Then pic1.Visible = False: pic2.Visible = True Else pic1.Visible = True: pic2.Visible = False
PM   Вверх
tyk
Дата 29.9.2003, 20:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 28.9.2003

Репутация: нет
Всего: нет
Цитата
QUOTE 
если держать нажатой 2 кнопки а потом одну отпустить то движение останавливается
это можно какнить исправить ?

Можно, необходимо отлавливать нажатие клавиши в таймере.

обьясни плиз
VB 6.0 smile.gif
PM MAIL   Вверх
Black_Star
Дата 29.9.2003, 21:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 9.9.2003
Где: Minsk

Репутация: 4
Всего: 4
Объясняю:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyS) Then 'MooveDown
If GetAsyncKeyState(vbKeyW) Then 'MooveUp
'и т.д.
End Sub
PM ICQ   Вверх
tyk
Дата 30.9.2003, 19:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 28.9.2003

Репутация: нет
Всего: нет
ой не то sad.gif
Цитата

QUOTE 
как запретить объекту выезжать за границы picturebox'а

mPlayer1.Width + mPlayer1.Left < PictureBox.Width

вот это обьясните плиз
PM MAIL   Вверх
Mephisto
  Дата 30.9.2003, 17:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Волкъ
***


Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

Репутация: 2
Всего: 34
Цитата
вот это обьясните плиз


1)проверяешь входит ли твой mPlayer по размерам 0Х в PictureBox:
Код
mPlayer1.Width + mPlayer1.Left < PictureBox.Width

(т.е. правая граница + координаты левого верхнего угла меньше размеров канвы) confused.gif
2)проверяешь не выходит ли левая граница за пределы:
Код
mPlayer1.Left > 0

3)проверяешь не выходит ли верхняя граница за пределы:
Код
mPlayer1.Top > 0

3)проверяешь не выходит ли нижняя граница за пределы:
Код
mPlayer1.Height + mPlayer1.Top < PictureBox.Height

(т.е. верхняя граница + координаты левого верхнего угла меньше размеров канвы) confused.gif
PM   Вверх
tyk
Дата 1.10.2003, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 28.9.2003

Репутация: нет
Всего: нет
спасибо
PM MAIL   Вверх
tyk
Дата 2.10.2003, 20:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 28.9.2003

Репутация: нет
Всего: нет
Еще парочку мона ?
1) как загрузить рисунок с прозрачностью ?
2)как сделать так
чтоб в одном файле хранилось 3 картинки (все 3 в одну строчку нарисованы)
и чтоб оттуда загружалась токо одна нужная
или в 2 строки по 2 картинки но тоже тока одна загружалась
хелп плиз
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1116 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.