dotNETportal.cz

Zdravím,

kdo používáte Nero, jistě víte, že v průběhu vypalování je tlačítko pro vypnutí okna nedostupné. Zajímalo by mne, zda tato situace nastávání jen při používání hardwaru oknem, a popřípadě jak toto tlačítko deaktivovat.

Taky jsem se setkal s pár aplikacemi, které měli to tlačítko (resp. jejich dialogy) skryté úplně, to mě spíše zajímá.

Děkuji

Děkuji, jde mi o to vypnout tlačítka, ale controlbox zachovat.

Já nevím jak je to udělané v Neru, ale myslím si (jako laik), že se křížek sám deaktivuje, když program používá hardwareové části, které nelze prostě vypnout (vypalovačka) bez jakéhokoliv upozornění. Nevím jak hodně se mýlím, ale je to jen má amatérská představa.

Systémem, či programem?

zkuste toto:

   Private Sub Form1_FormClosing(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim Cancel As Boolean = eventArgs.Cancel
        eventArgs.Cancel = True
    End Sub

Jeste jsem to radsi rozepsal, doufam ze ke spokojenosti

Private Sub Form1_FormClosing(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim UnloadMode As System.Windows.Forms.CloseReason = eventArgs.CloseReason
        Dim Cancel As Boolean = eventArgs.Cancel
        Me.label1.Text = UnloadMode.ToString
        'eventArgs.Cancel = True (aplikace se nezavre)
        'Pokusy o zavreni programu z ruznych stran 
        If UnloadMode = CloseReason.ApplicationExitCall Then eventArgs.Cancel = False
        If UnloadMode = CloseReason.FormOwnerClosing Then eventArgs.Cancel = False
        If UnloadMode = CloseReason.MdiFormClosing Then eventArgs.Cancel = False
        If UnloadMode = CloseReason.None Then eventArgs.Cancel = False
        If UnloadMode = CloseReason.TaskManagerClosing Then eventArgs.Cancel = False

        'priklad dotazu po kliknuti na 'X'
        If UnloadMode = CloseReason.UserClosing Then
            Dim x As String
            x = MsgBox("Ukončit aplikaci?", vbYesNo, "Ukončení aplikace")
            If x = vbNo Then Cancel = True
            eventArgs.Cancel = Cancel
        End If

        If UnloadMode = CloseReason.WindowsShutDown Then eventArgs.Cancel = False
    End Sub