Как сделать программу не-закрываемой - VB

Формулировка задачи:

если разместить эти строки то форму трудно будет закрыть )))

                    Листинг программы
                
Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Эй! Юзер ..., только попробуй меня закрыть... ", 20, _
    "Не надо - ПЛИЗ!!!") = vbYes Then Else Cancel = 1
End Sub

после этого закрыть скомпилированную прогу можно только в диспетчере задач а вот так можно сделать

                    Листинг программы
                
Private Sub Form_Load()
    App.TaskVisible = False
End Sud

я уж не стану рассказывать как прописать программу в реестре авто-запуска...

Решение задачи: «Как сделать программу не-закрываемой»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
'или Private Sub Command1_Click( Index As Integer) 'если с индексом
    Dim o As Object
    For Each o In Me
        If TypeName(o) = "CommandButton" Then
            o.Visible = 0
        End If
    Next
End Sub

Оцени полезность:

9 голосов , оценка 4.778 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы