Как сделать программу не-закрываемой - 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

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