Переменная Form

[sergey-911]

Доброго времени суток уважаемые.
Есть форма frmForm, содержащая переменную

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

Public Form As Form

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

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

If Form.Name <> Empty Then <Формируем нужный интерфейс формы>

НО , если переменная не определена (Set Form = Nothing), то при выполнении условия выдаётся ошибка “Run-time error ’91’: Object variable or With block variable not set”. Как правильно осуществить данную проверку? Прикрепляю пример к сообщению.

[GSerg]

If Form.Name <> Empty

Ты в курсе, что =Empty не будет никогда?

Как правильно

Оператором IS.

[sergey-911]

Спасибо, конечно GSerg.
Но я дико извиняюсь, не догоню, как применить этот оператор...

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


Option Explicit
Public Form As Form

Private Sub Command1_Click()
    Set Form = Me
    IsForm
End Sub

Private Sub Command2_Click()
    Set Form = Nothing
    IsForm
End Sub

Private Sub IsForm()
    Dim b As Boolean
    b = Form Is Form
    If b = True Then
        Label1.Caption = "Переменная определена, значение = " & Form.Name
    Else
        'Здесь появляется ошибка
        Label1.Caption = "Переменная не определена"
    End If
End Sub


Такой вариант тоже не работает, т.к.

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

b = Form Is Form


всегда выводит

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

True

, соответственно...
MSDN читал, никак не расбирусь.
Дело в том, что я не знаю заранее, чему равна переменная Form? Поэтому мне необходимо знать, равтяется ли оно значению Nothing, или нет.

[sergey-911]

Извиняюсь, в данном примере ошибка теперь здесь

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

Label1.Caption = "Переменная определена, значение = " & Form.Name


(Form.Name)
При вызове процедуры

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

Private Sub Command2_Click()
    Set Form = Nothing
    IsForm
End Sub

[/b]

[Dmitriy2003]

енто реально в твоей программе

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

Public Form As Form

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

bFlag = (Form1 Is Nothing) - работает

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

bFlag = (Form1 Is "SomeForm") - нет работает

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

If TypeOf Form1 Is frmForm1 Then MsgBox "-1" - работает

А что хотел спросить

[sergey-911]

Спасибо Dmitriy2003 огромное.

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


Option Explicit
Public Form As Form

Private Sub Command1_Click()
    Set Form = Me
    IsForm
End Sub

Private Sub Command2_Click()
    Set Form = Nothing
    IsForm
End Sub

Private Sub IsForm()
    Dim b As Boolean
    b = (Form Is Nothing)
    If b = False Then
        Label1.Caption = "Переменная определена, значение = " & Form.Name
    Else
        'Здесь появляется ошибка
        Label1.Caption = "Переменная не определена"
    End If
End Sub


Всё прекрасно работает.

[Хакер]

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

...
    Dim b As Boolean
    b = (Form Is Nothing)
    If b = False Then
...


Ужас. Ты хоть понимаешь всю групость этого куска, да и вообще всей этой идеи?

[sergey-911]

А в чём ужас Хакер?
Я так написал для большей читаемости кода.
Если я напишу, как в программе,

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


'Настройка тулбара, в зависимости от значения Form
If (Form Is Nothing = True) Then
    Call Bar.LoadBar(Bar.MDI.SSActiveToolBars1, Me)
Else
    Call Bar.LoadBar(Bar.MDI.SSActiveToolBars1, Me, True)
End If


думаю легче не станет.

[Хакер]

Ужас продолжается...




А написать

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

If Form Is Nothing Then
    Call Bar.LoadBar(Bar.MDI.SSActiveToolBars1, Me)
Else
    Call Bar.LoadBar(Bar.MDI.SSActiveToolBars1, Me, True)
End If

Не судьба?

ADDED:
И немного подумав: А написать

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

Bar.LoadBar Bar.MDI.SSActiveToolBars1, Me, Not Form Is Nothing

вместо всех этих IF-ов не судьба?

[sergey-911]

Bar.LoadBar Bar.MDI.SSActiveToolBars1, Me, Not Form Is Nothing

Согласен! Спасибо!

[Dmitriy2003]

А поизвращатся:

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


Private Sub Command1_Click()
    '
    If IsForm(Form2) Then
        Form2.Show
        Form2.Caption = "Hallo1"
    Else
        Set Form2 = New Form2
        Form2.Show
        Form2.Caption = "Hallo"
    End If
    '
End Sub

Public Function IsForm(ByVal f As Form) As Boolean
    '
    IsForm = IIf(ObjPtr(f) > 0, True, False)
    '
End Function


[Хакер]

Фу.. бред...

[Dmitriy2003]

Фу.. бред...

Ясен пень, не дипломная работа....

Хакер а как работает "From is Nothing" ? чет любопытство одолело, правда без подвоха ну вдруг ты уже знаеш

[Amed]

Если указатель на форму нулевой, она Is Nothing...

[Dmitriy2003]

Получается, отбросив предрассудки, следующее...

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


Public Function VBIsNothing(object As Object) As Boolean
    '
    VBIsNothing = IIf(ObjPtr(object) = 0, True, False)
    '
End Function


тормозит то как аж в 3 разу! Настоящее извращение!

[Хакер]

Получается, отбросив предрассудки, следующее...

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

Public Function VBIsNothing(object As Object) As Boolean
    '
    VBIsNothing = IIf(ObjPtr(object) = 0, True, False)
    '
End Function


тормозит то как аж в 3 разу! Настоящее извращение!

Да что у вас за извращение? Сравнивать True c True и возвращать True, или True c False и возвращаться False ?


Чем тебя строка VBIsNothing = (ObjPtr(object) = 0
не устроила?
или VBIsNothing = Not CBool(ObjPtr(object)) ?

Извращенцы...

[Dmitriy2003]

Да что у вас за извращение? Сравнивать True c True и возвращать True, или True c False и возвращаться False ?

Чем тебя строка VBIsNothing = (ObjPtr(object) = 0
не устроила?
или VBIsNothing = Not CBool(ObjPtr(object)) ?
Извращенцы...

Потому-что так быстрее...

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


VBIsNothing = (ObjPtr(object) = 0
VBIsNothing = Not CBool(ObjPtr(object))


А быстрее не нужно...

[Хакер]

А как нужно? Медленнее? Ну тогда вставь Sleep 100 в каждую вторую строчку.

Или нужно "читаемее" ?

А, что, по твоему,

VBIsNothing = IIf(ObjPtr(object) = 0, True, False)

читаемее чем

VBIsNothing = (ObjPtr(object) = 0

?

[Dmitriy2003]

Ну, Хакер, я не спорю с тобой! Можно-сказать что тема изьедена на нет, я полагаю.