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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Непонятка в иниациализации DirectX 
:(
    Опции темы
Igor Graf
Дата 15.10.2005, 10:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Привет народ!

есть код:
Код

Option Explicit
Dim dx As New DirectX7
Dim dd As DirectDraw7
Dim Primary As DirectDrawSurface7
Dim Back As DirectDrawSurface7
Dim Intro As DirectDrawSurface7
Dim Sprites As DirectDrawSurface7
Dim ddsd1 As DDSURFACEDESC2
Dim ddsd2 As DDSURFACEDESC2

Sub Init()
On Local Error GoTo errOut
Set dd = dx.DirectDrawCreate("")
Form1.Show
Call dd.SetCooperativeLevel(Me.hWnd, DDSCL_FULLSCREEN Or DDSCL_EXCLUSIVE)
Call dd.SetDisplayMode(640, 480, 16, 0, DDSDM_DEFAULT)
errOut:
MsgBox ("error")
End Sub

Private Sub Form_Load()
Call Init
End Sub


при запуске формы разрешение экрана меняется, но почему-то выводится моя ошибка Error, по моему проблема в строке:

Код

Set dd = dx.DirectDrawCreate("")

что делаю не так не пойму, подскажите пожалуйста, кто в курсе!


С уважением Graf
PM MAIL   Вверх
Exception
Дата 15.10.2005, 10:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 7
Всего: 186
директ хреновый видно. реинсталль dx 7 sdk
PM   Вверх
Igor Graf
Дата 15.10.2005, 10:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Попробую , а так все нормально?
PM MAIL   Вверх
Exception
Дата 15.10.2005, 14:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 7
Всего: 186
Цитата(Igor @ 15.10.2005, 11:21)
а так все нормально?

точно не уверен, но кажется должно работать... все зависит от компа
PM   Вверх
Igor Graf
Дата 16.10.2005, 21:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Вот блин не хочет работать, народ, кто занимался directx подскажите в чем беда пожалуйста!:exclamation
PM MAIL   Вверх
cardinal
Дата 16.10.2005, 21:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Ну а что примеров похожих в инете нет? Попробуй один из них откомпильнуть, если не пойдет, то дело не в коде...


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Igor Graf
Дата 17.10.2005, 08:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Побовал, даже пару движков компилил, вроде работает, мне просто интересно узнать что за проблемма, вроде библиотеку подключил, код тоже из статьи, но работает на половину! smile
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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