Проблемы с переводом

[Лit}{Ъ]

Я вроде сказал. Перевожу программу с VB 6.0 на VB 2010.
Я что то не понял смысла второго прндложения, можно на чуть более руском?

[Dream]

что не понятно? для того чтобы сделать Read|Write, если такого файла нет, прога попытается его создать, что, если у юзера нету прав на создание этого файла, в этом месте, повлечёт за собой обвал программы, или вылет до ближайшего обработчика.

[Лit}{Ъ]

Я вообшето спрашивал про второе предложение а не про вторую строчку! Сажу подругому - что значит:" Узать костыль совместимости со старым VB это верх идиотизма при наличии прекрасного BinaryReader."

Что за BinaryReader и костыль совместимости?

[pax]

Костыль совместимости это Microsoft.VisualBasic.*
BinaryReader - это средство бинарного чтения из потоков данных, например из файловых потоков, в структуре Net Framework.

Для операций ввода/вывода в Net обычно используются классы пространства имен System.IO

[Лit}{Ъ]

Кто нибудь знает как в 2010 называются константы с кодами клавиш? В 6.0 были vbKeyLeft, vbKeyUp, vbKeyW а здесь как? (Подскажите пудь до класса содержащего оные)

[pax]

Ну если использовать события Windows.Forms, то тебе нужно перечисление System.Windows.Forms.Keys

[Лit}{Ъ]

Спс...
Подскажите пожалуйста как в ВБ 2010 ведётся отладка! Я исправил все ошибки компиляции выставляю Solution Configurations на Debug жму F5 - результат чёрный экран, курсор часиками, загрузка цп сначала поднимается до 100 потом падает до нуля и ничего не происходит! Открываю диспетчер - процес проекта (который уже запущенная форма) не отвечает (просто свернуть не получается) - завершаю - у окошка Vb на секунду появляется сообщение об ошибке с решениями и сразу проподает... Что я не так делаю?

[pax]

Черный экран? В смысле консоль? Приложение Windows.Forms или консольное?

[Лit}{Ъ]

Windows Forms. С Директ Х в фул скрине.

[pax]

Код главного цикла посмотреть можно? Как он реализован?

[Лit}{Ъ]

А что считать главным циклом? У меня там всё через таймеры (приложение должно неприрывно реиндинговать и отображать картинку).

Вопрос вообще в том как настроить ВБ в режим отладки. 6.0 при таких случаях после завершения работы выделял строчку на которой стопорнулся и объяснял суть ошибки - как добится этого от 2010?

[pax]

Таймерами никто не делает, главный цикл - это цикл отрисовки. Мне кажется в Managed.DirectX должен быть каркас приложения, вызывающий функции отрисовки во время простоя приложения, когда нет оконных сообщений.

[Лit}{Ъ]

??? Жуть! Я думал циклы используются только в ДОС приложениях или конечных программмах. Все исходники что я видел были с таймерами. Вот я ими и пользуюсь раз в N милисекунд обновляю картинку на экране и радуюсь!

А почему не делают то?

[Лit}{Ъ]

Я раз в 30 милли секунд обращаюсь к

Private Shared Sub Reinder_Timer()
  Dim A As String, I1 As Long, Re As RECT, B As Long
  Re.Bottom = 1000
  Re.Right = 1000
  If UP2D.DirectDraw = True Then
   For I = 1 To UP2D.NDisp Step 1
    UP2D.Display(I).XCam = UpPhiz.Body(I).Dat.Znach(1) - UP2D.Kartinka(I).RECT(0, 0).Right / 2
    UP2D.Display(I).YCam = UpPhiz.Body(I).Dat.Znach(2) - UP2D.Kartinka(I).RECT(0, 0).Bottom / 2
   Next I
   For I = 1 To UpPhiz.NPhB Step 1
    A = A + " " + CStr(UpPhiz.Body(I).Active)
   Next I
   Call UpSo.Zvuchi()
   Call UP2D.StartDraw()
   For I = 1 To UpGP.Nn Step 1
    Call UpGP.See(I)
    Call UpSo.Lissen(I)
   Next I
   For I1 = 1 To UP2D.NDisp Step 1
    With UpSo.Ears(UpPhiz.Body(I1).Dat.Znach(13))
     For I = 1 To .Ind(0) Step 1
      If UpSo.Zvuk(.Ind(I)).Taim = 1 Then
       Call UpSo.Play(UpSo.Zvuk(.Ind(I)).Tip)
      End If
     Next I
    End With
    With UpGP.Glaza(UpPhiz.Body(I1).Dat.Znach(13))
     For I = 1 To .Ind(0) Step 1
      B = .Ind(I)
      With UpPhiz.Body(B).Dat
       Call UP2D.Draw(UpPhiz.Body(B).Tip, I1, CLng(.Znach(1)), CLng(.Znach(2)), UP2D.Pha(.Znach(3)), CLng(.Znach(10)), UpPhiz.Body(B).Phase)  'Risovanie kartinki
      End With
     Next I
    End With
   Next I1
   Call UP2D.EndDraw()
  End If
 End Sub

[pax]

Потому что между значений с таймерами может случиться перерисовка формы, которая не предусмотрена.

Самый простой способ отрисовки в цикле, это в перегруженной функции OnPaint формы в конце написать Invalidate(), что приведет к новой перерисовке снова и снова.