Справочник Жаркова по проектированию и программированию искусственного интеллекта. Том 4: Программирование на Visual Basic искусственного интеллекта. Валерий Алексеевич Жарков

и устанавливаем параметры DirectX:

      Public Function InitializeDirectX() As Boolean

      Try

      'renderWindow связываем с this формой (или эл-м):

      renderWindow = Me

      'Создаём и инициализируем переменные для звука:

      'Устройство DeviceOfSound класса Device из DirectSound:

      DeviceOfSound = _

      New Microsoft.DirectX.DirectSound.Device()

      'Уровень доступа к устройству – многозадачный Normal:

      DeviceOfSound.SetCooperativeLevel(renderWindow, _

      CooperativeLevel.Normal)

      'Инициализация DirectX прошла успешно:

      Return True

      Catch

      'Перехвачена ошибка инициализации DirectX:

      Return False

      End Try

      End Function 'Конец метода InitializeDirectX.

      Напомним, что именно этот универсальный код можно будет копировать и записывать в наши последующие приложения и игры (после нашего напоминания).

      Теперь в панели Properties (для формы Form1)) на вкладке Events дважды щёлкаем по имени события Load (Загрузка).

      Появляется файл Form1.vb с шаблоном метода Form1_Load, который после записи нашего кода принимает следующий вид.