Varovna hlaska pre (ne)zatvorenie formularu – Visual Basic – Fórum – Programujte.com

Neviem ako napisat, aby sa okno nezatvorilo pri zatvarani.

Trochu nechápu... jako když dáš křížek ukončit tak aby se nezavřelo?

To JMM : Presne ...

Musíš upraviť procedúru hlavného okna tak, aby nespracovávala správu WM_CLOSE
Napriklad v C# to spravis takto:

public partial class Form1 : Form

    {

        const int WM_CLOSE = 0x10;



        public Form1()

        {

            InitializeComponent();

        }



        protected override void WndProc(ref Message m)

        {

            if (m.Msg != WM_CLOSE)

                base.WndProc(ref m);

        }

    }

Skus priklad vo VisualBasic :D

Nechápem prečo nefunguje Exit Sub ...

Private Sub MenuForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim msg As Byte

        msg = MsgBox("Skutočne si želáte program ukončiť ?", MsgBoxStyle.YesNo)

        If msg = 6 Then

            End

        Else



            'Kód pre zrušenie udalosti



        End If

    End Sub

Tu to je urobene vo VB:

Public Class Form1

    Const WM_CLOSE As Integer = 16



    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

        If m.Msg <> WM_CLOSE Then

            MyBase.WndProc(m)

        End If

    End Sub



End Class

Používam VisualStudio2005

2 ERRORS:

- 'WndProc' is not a member of 'Object'.
- sub 'WndProc' cannot be declared 'Overrides' because it does not override a sub in a base class.

Chyby ti môže vyhadzovať kvôli tomu, že si procedúru okna nezapísal do triedy okna

OK teraz sa to neda zatvorit... pretoze ta procedura bezi stale. Nedari sa mi to spravit.

jeste musis pridat podminku co se ma stat kdyz okno dostane spravu : WM_CLOSE

If m.Msg == WM_CLOSE Then



            CODE



        End If

Neda sa to upravit tak, aby sa to dalo zapisat do procedury FormClosing?

Private Sub Form_Unload(Cancel As Integer)
a = MsgBox("zavrit formular", vbYesNo, "blabla")
If a = 7 Then Cancel = True
End Sub