Простые вопросы по программированию на VB6. Помощь к диплому

[FaKk2]

В общем это программа для облегчения работы студентам по предмету "надежность ис". Она должна решать 2 ргр: вычислять некоторые параметры, строить по ним графики и тд. Соответственно меню, справка и другие заморочки. Проблема в том что я этот язык только в общих чертах знаю (vb6 4 месяца пытаюсь изучить) и некоторые предлогаемые решения ставят меня в тупик.

Если тебе надо вычислять некоторые параметры и строить по ним графики, почему бы тебе не воспользоваться Excel'ем? В нём есть все необходимые инструменты для вычисления параметров и рисования графиков. Кроме того там есть VBA, в котором ты можешь реализовать свою логику (коли стандартных ф-ций не хватит).

[Marussia]

а можно как нибудь сделать, чтобы пользователь программы не мог сам закрыть форму, а только мог ее свернуть, а в вот при нажатии на определенной форме "закрыть" закрывал и те?

[burik]

Вроде так: во всех формах, которые не должны закрываться пишешь:

Код: Выделить всё

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = 1
End Sub

А в форме, которая должна закрываться и закрывать все остальные:

Код: Выделить всё

Private Sub Form_Unload(Cancel As Integer)
    End
End Sub

[Marussia]

спасибо!!! только теперь другой вопрос. эти формы - дочерние и закрывать их должна тоже дочерняя, а вот главная форма должна оставаться открытой и продолжать работь, а так получается что не она закрывает весь проект, а MDI child.

[burik]

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

Код: Выделить всё

Public boolClose    As Boolean

Private Sub Form_Load()
    boolClose = False
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If Not boolClose Then Cancel = 1
End Sub

А в закрывающую дочернюю форму:

Код: Выделить всё

Private Sub Form_Unload(Cancel As Integer)

    If Not Form2 Is Nothing Then ' И так для каждой дочерней формы, которую нужно закрыть
        Form2.boolClose = True
        Unload Form2
    End If
   
End Sub

[Marussia]

СПАСИБО!!!