Тотальная неудачница и убийца жёстких дисков.
#post-id: 2828-20-09
#original-date: 23.04.2008 Wed
#original-time: 8:09 PM
#original-day: 2828
#original-host: WinXP Prof SP2 (Build 2600)
Чёрт... Всё чудесатее и чудесатее. Нашла фичу в VB о которой не догадывалсь.
Создаём форму Form1 и помещаем в неё такой код:
Создаём вторую форму, туда помещаем такой код:
Создаём модуль и помещаем такой код:
Теперь создаём ActiveX DLL, там делаем класс ASD, туда добавляем код:
Компилируем DLL и возвращаемся к нашей программе. Запускаем, появляется форма. Щёлкаем по ней - появляется модальная форма. Щёлкаем по ней - появляется окно сообщения. Но оно блокирует не обе формы, а только перву. поэтому по модальной форме можно ещё пощёлкать...
Толи это у меня у одной такой глюк, толи так и было... Чёрт...
#music: Nightwish\Over The Hills And Far Away\She Is My Sin (live)
#original-date: 23.04.2008 Wed
#original-time: 8:09 PM
#original-day: 2828
#original-host: WinXP Prof SP2 (Build 2600)
Чёрт... Всё чудесатее и чудесатее. Нашла фичу в VB о которой не догадывалсь.
Создаём форму Form1 и помещаем в неё такой код:
Option Explicit
Private Sub Form_Click()
Form2.Show vbModal
End Sub
Создаём вторую форму, туда помещаем такой код:
Option Explicit
Private Sub Form_Click()
Byaka
End Sub
Создаём модуль и помещаем такой код:
Option Explicit
Sub Byaka()
Dim ASD As New ASD
ASD.Hi
End Sub
Теперь создаём ActiveX DLL, там делаем класс ASD, туда добавляем код:
Option Explicit
Sub Hi()
MsgBox "Hi!", vbInformation
End Sub
Компилируем DLL и возвращаемся к нашей программе. Запускаем, появляется форма. Щёлкаем по ней - появляется модальная форма. Щёлкаем по ней - появляется окно сообщения. Но оно блокирует не обе формы, а только перву. поэтому по модальной форме можно ещё пощёлкать...
Толи это у меня у одной такой глюк, толи так и было... Чёрт...
#music: Nightwish\Over The Hills And Far Away\She Is My Sin (live)