Помогите, пожалуйста, нужна помощь новичку

[gaidar]

Re: Извеняюсь.
Да, я не обротил внимание на время

Извеняюсь еще раз (за токое замечание)
Ну не женский какой-то у тебя Ник.
Я понимаю Krasavica, ну вот это точно не парень.

Хватит флудить! Чего стоит огрызаться на такие мелочи. Подумаешь... Не то подумал... Бывает.

[Vetaliy13]

Я глубоко извеняюсь что ввел в заблуждения. Я действительно просто исправил свой пост и упоминул об этом в следуещем.

Спасибо Oxygen за совет, сделал немного по другому но по её примеру.

У меня осталось несколько вопросов.

1. мне необходтмо чтобы одни и теже переменные использовались сразу в нескольких формах. мне посоветовали функцию но я так и непонял куда её писать ( в форму или модуль...).

2. У меня возникла потребность чтобы поменять формы местами, тобиш я сделал форму которая является самой програмой, потом я сделал вторую форму которая является меню, как сделать чтобы грузилось меню.

[EvilCoder]

<DELETE>

[Vetaliy13]

Подскажите как написать команду которая закрывает конкретную форму, я пробую так:

1. Private Sub Закрыть_Click()
End
End Sub

2. Private Sub Закрыть_Click()
form1.End
End Sub

Подскажите пожалуста.

[EvilCoder]

<DELETE>

[Vetaliy13]

Да и еще вопрос. Как писать адрес картинки которая лижит в тойже папку что и прога, при этом не используя номер диска?

[Oxygen]

Просто имя без пути. Ну или если более прилично, то app.path+"\имя рисунка". Только смотри, что бы не в корневике, а то будет глюк, т.к. тогда app.path возвращает уже со слешем, в таком случае ставь дополнительную проверку.

[Vetaliy13]

Помогите, пожалуйста!!!
Никак не выходит работать с переменными в нескольких формах сразу.

Создаю две формы. В одной пишу



Public p
Private Sub Command1_Click()

p = 10
Form2.Show

End Sub

Private Sub Command2_Click()
Print p
End Sub



В первой форме цифра выводится
Во второй пишу


Public p


Private Sub Command1_Click()
If p = 10 Then
Print XXX
End If

End Sub

Ничего не выводит, просто игнор.

Скажите, что надо делать.

[skiperski]

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

If Form1.p = 10 Then
    Print XXX
End If

Или тебе нужна одна переменная на обе формы? Тогда объяви переменную в модуле .bas