Всем привет, продолжаем делать игру. Сегодня сделал редактор вопросов на Visual Basic 4.0, но пока читает из файла вопросы, сохраниеие сделаю позже, вот сама форма:

А вот результат работы программы, так выглядет программа запущенная в Windows 3.11:

Если нажать файл->Открыть, то появится такое диалоговое окно:

После открытия файла, спрашивает сколько отобразить вопросов:

Вуаля! Загрузились наши вопросы, с ответами:

А вот сам код, как выше писал, что сохранение в файл сделаю позже:

Private Type DATABASE
    question As String * 255
    answ1 As String * 50
    answ2 As String * 50
    answ3 As String * 50
    answ4 As String * 50
    answer As Integer
End Type

Private strFileName As String

Private Sub add(ByVal strFileName As String, ByVal index As Integer, db As DATABASE)
  Open "questions.bin" For Random As #1 Len = Len(db)
  Put #1, index, db
  Close #1
End Sub

Private Sub read(ByVal strFileName As String, ByVal index As Integer, db As DATABASE)
  Open "questions.bin" For Random As #1 Len = Len(db)
  Get #1, index, db
  Close #1
End Sub

Private Sub Form_Load()
  Me.Left = 0
  Me.Top = 0

End Sub 

Private Sub lstQuestions_Click()
  Dim db As DATABASE
  read strFileName, Me.lstQuestions.ListIndex + 1, db
  Me.txtQuestion.Text = db.question
  Me.txtAnsw1.Text = db.answ1
  Me.txtAnsw2.Text = db.answ2
  Me.txtAnsw3.Text = db.answ3
  Me.txtAnsw4.Text = db.answ4
  Me.txtAnswRight.Text = db.answer
End Sub

Private Sub popupOpen_Click()
  Dim db As DATABASE
  Dim q As Long
  With CommonDialog1
    .DialogTitle = "Открыть файл"
    .Filter = "Все файлы (*.*)|*.*"
    .ShowOpen
    q = InputBox("Сколько вопросов?", "Загрузка вопросов", 1)
    strFileName = .filename
    For i = 1 To q
      read .filename, i, db
      Me.lstQuestions.AddItem db.question
    Next i
  End With
End Sub

Private Sub popupExit_Click()
  Unload Me
End Sub

Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Дневник тяжелобольного инвалида