Closing the MDI CHILD Form by pressing CTRL+F4 Keys

Printable View

May 6th, 2003, 04:54 AM
aks_1610

Closing the MDI CHILD Form by pressing CTRL+F4 Keys

Hi all,

I want to Close AMD CHILD Form by pressing CTRL+F4 keys. Any idea how to do that. I've used Form_KeyPress event but its not working bcoz i have different controls on my form and those controls grabs the focus, so Form_KeyPress never executes...
May 6th, 2003, 04:59 AM
VB IT

Get IT
Set CHILD's Form KeyPreview = True
And Then Add the following Code In Child's Forms KeyDown Event
VB Code:
```
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 115 And Shift = 2 Then Unload Me
End Sub
```
May 6th, 2003, 05:05 AM
swatty

Make sure it is an MDI child.
Set its keypreview property to true, and it should work wihtout any coding.
May 6th, 2003, 05:11 AM
aks_1610

not working...:(
i've set its keypreview property to true. Still....
May 6th, 2003, 05:27 AM
swatty

I opened a new project , added a MDI form.
Changed form1 to MDI child , Keypreview = true
Added form2, set to MDI child; Keypreview = true

They are closing when they are active and Ctrl + F4 is pressed.
May 6th, 2003, 05:30 AM
aks_1610

Thanks SWATTY for replying,

i did the same thing, on one proj. the forms are Closing but on another ther are not... :confused:
May 6th, 2003, 05:57 AM
swatty

So you got a proj where it does work.

Check the properties for the MDI form in both .

As well for the MDI Child forms.

There should be something different.
May 6th, 2003, 06:01 AM
aks_1610

i've checked the properties,

i m able to close/Unload the form when i press F4 but not CTRL+F4 thr. coding..

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF4 Then Unload Me
End Sub
May 6th, 2003, 06:16 AM
swatty

You have to check the value of Shift in there , it should be 2 for the Ctrl key

Chage your Code

VB Code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 
If KeyCode = vbKeyF4 And Shift = 2 Then Unload Me 
End Sub

May 6th, 2003, 06:43 AM
techyspecy

Re: Closing the MDI CHILD Form by pressing CTRL+F4 Keys

Quote:

Originally posted by aks_1610
Hi all,

I want to Close AMD CHILD Form by pressing CTRL+F4 keys. Any idea how to do that. I've used Form_KeyPress event but its not working bcoz i have different controls on my form and those controls grabs the focus, so Form_KeyPress never executes...

I do not know what you are talking about pal, but you do not have to code for that. Pressing Ctrl + F4 automatically closes the active MDI child form.
May 6th, 2003, 06:59 AM
aks_1610
i have done every thing. Removed the code but it did not Unload.

At last i tried unloading the form thr. coding that did work but CTRL+F4 is not working even if i use this code.
VB Code:
```
'Closing the form if user presses F4 Key
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF4 And Shift = 2 Then Unload Me
End Sub
```
May 6th, 2003, 07:02 AM
swatty

check the events on the form.

There isn't any code in the unload event which prevents it from unloading ??

Check Form_QueryUnload also.
May 6th, 2003, 07:04 AM
techyspecy
Quote:
Originally posted by aks_1610
i have done every thing. Removed the code but it did not Unload.

At last i tried unloading the form thr. coding that did work but CTRL+F4 is not working even if i use this code.

VB Code:

'Closing the form if user presses F4 Key
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF4 And Shift = 2 Then Unload Me
End Sub
What are you guys doing ????

You do not need no code for this. Just open MDI open some child form and press Ctrl + F4, it will close the child form. It closes on my machine. I am running win 2K.
May 6th, 2003, 07:22 AM
aks_1610

hi swatty,
there is no Form_QueryUnload event on my form.

techyspecy:

i m also confused why the hell it is not working. i m also running win 2k .
:mad:
May 6th, 2003, 07:24 AM
techyspecy

Quote:

Originally posted by aks_1610
hi swatty,
there is no Form_QueryUnload event on my form.

techyspecy:

i m also confused why the hell it is not working. i m also running win 2k .
:mad:

Post your project if you want us to help you.
May 6th, 2003, 07:52 AM
swatty

Quote:

Originally posted by aks_1610
hi swatty,
there is no Form_QueryUnload event on my form.

techyspecy:

i m also confused why the hell it is not working. i m also running win 2k .
:mad:

I think you must have something different then we got in mind.

Can you load the project up, so we could look into it. :cool:
May 6th, 2003, 08:19 AM
aks_1610

1 Attachment(s)

Please see the attached file:
May 6th, 2003, 08:25 AM
techyspecy

Quote:

Originally posted by aks_1610
Please see the attached file:

Got the problem !
Its not closing the form because you have set its borderstyle property to 0-None. You cannot close forms with Ctrl + F4 if there's borderstyle is 0. Change it to 1 or 2 and it will close the form on Ctrl + F4.
May 6th, 2003, 08:29 AM
techyspecy

BTW - Very colourful application. :D
May 6th, 2003, 09:04 AM
aks_1610

Thanks techyspecy,

its the client's requirement.(Can' help it). I can't change it to 1 or 2. Is there any other method to do it.

Thanks again for the reply....

I've thrown following code in the code pane of frmMain and it unloaded.

Don't know why it won't work on your side of the screen.
VB Code:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 115 Then
      If Shift = 2 Then
         Unload Me
      End If
   End If
End Sub

May 6th, 2003, 09:13 AM
swatty

Quote:

Originally posted by aks_1610
hi swatty,
there is no Form_QueryUnload event on my form.

techyspecy:

i m also confused why the hell it is not working. i m also running win 2k .
:mad:

In the project u provided i did find a QueryUnload event in frmMain ?
:confused: :confused: :confused:
May 6th, 2003, 09:25 AM
aks_1610

where is it swatty.

i m not getting which QueryUnload event u r taking about.
May 6th, 2003, 09:30 AM
swatty

1 Attachment(s)

Don't bother the QueryUnload event , it isn't relevant in your code.

The KeyDown event did work over here.
May 6th, 2003, 09:38 AM
aks_1610

hi swatty,

it worked there bcoz Command Buttons at the top are disabled. Try enabling all those Command Buttons..

Thanks for the reply...
May 6th, 2003, 09:49 AM
swatty

For some reason when a button has the focus the combination of two keystrokes isn't coming through.

I've changed it if F4 is pressed it unloads , it works.

Depends if it is necesary the combination is used.
If so you should set the focus on the grid after a button is clicked to let it work properly.
May 6th, 2003, 09:51 AM
techyspecy

What are you two nutty kids doing with this easy thing. Why do you not put a command button on the form, set its cancel property to true and hide it behind any other control. Do it on every form. On this command_click event unload me. That way user can just press ESC and unload the form.
May 6th, 2003, 09:56 AM
aks_1610

thanks swatty,

after setting the focus on the Grid i m able to unload the form.

sometimes such little things do matters a lot...

anyways thanks ....
May 6th, 2003, 10:19 AM
McGenius

Re: Closing the MDI CHILD Form by pressing CTRL+F4 Keys
Quote:

Originally posted by aks_1610
Hi all,

I want to Close AMD CHILD Form by pressing CTRL+F4 keys. Any idea how to do that. I've used Form_KeyPress event but its not working bcoz i have different controls on my form and those controls grabs the focus, so Form_KeyPress never executes...

MDI form doesn'r respond to any key event and since your child form is borderless you'd need to use a Timer (on the MDI form, Interval = 100) and some Windows API:
VB Code:
```
Option Explicit
 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Private Const VK_CONTROL = &H11
Private Const VK_F4 = &H73
 
Private Sub Timer1_Timer()
 
    GetAsyncKeyState(VK_F4) Then
        If GetAsyncKeyState(VK_CONTROL) Then
            Unload Form1 'assuming that Form1 is that child you need to unload
        End If
    End If
 
End Sub
```
Note: in order for this sample to work your borderless form will have to be the topmost at the moment.
May 6th, 2003, 10:20 AM
McGenius

Quote:

Originally posted by techyspecy
What are you two nutty kids doing with this easy thing. Why do you not put a command button on the form, set its cancel property to true and hide it behind any other control. Do it on every form. On this command_click event unload me. That way user can just press ESC and unload the form.

Are you always this cocky?
May 6th, 2003, 10:34 AM
techyspecy

Quote:

Originally posted by McGenius
Are you always this cocky?

:p I am not cocky, i'm a fun guy. I do not mind cracking jokes/sarcasm on others and always open for someone cracking joke/sarcasm on me.

Anyway forget about me, was just looking at your previous post, how can you even suggest such a pathetic and lousy solution .. :p, i'm still wondering about it. *burnt* :confused:
May 6th, 2003, 10:41 AM
McGenius

And it's "a pathetic and lousy" because ... Do you mind to provide more argumented reply or otherwise don't bother. I belive I've mentioned that to you once before.
May 6th, 2003, 10:44 AM
techyspecy

Quote:

Originally posted by McGenius
And it's "a pathetic and lousy" because ... Do you mind to provide more argumented reply or otherwise don't bother. I belive I've mentioned that to you once before.

:D
because for the sake of one damn key, you're gonna make him put a timer on the MDI which is gonna fire every 100 milliseconds for no good reason .... ( system resources after all are expensive, specially on users machines ) :p

BTW - you never mentioned that before - I'll note it down somewhere now .. hmm .. * looking for notepad *

Yours - McMoronic Techy ....
May 6th, 2003, 10:54 AM
McGenius

Yep, that's what I thought you'd say. Let me guess techy: you must be 15-16, may be 18 yo - at least your brain isn't any older. I have no intension to discuss anything with you any farther what-so-ever.
Also, go find that Notepad and make a note: learn some manners - you'll need'm time to time.
May 6th, 2003, 10:56 AM
techyspecy

Quote:

Originally posted by McGenius
Yep, that's what I thought you'd say. Let me guess techy: you must be 15-16, may be 18 yo - at least your brain isn't any older. I have no intension to discuss anything with you any farther what-so-ever.
Also, go find that Notepad and make a note: learn some manners - you'll need'm time to time.

Is this Argumentative ????? :p Looking at this .. you need manners more than i do .. ;)
Make a note for yourself:

Only say what you mean, and always do what you say. :D

Yours ... McMoronic Techy .... :p
May 6th, 2003, 10:59 AM
techyspecy

I think you are ticked off :p with my signature. Is that bothering you .... if yes, i'll never remove it. :D :D :D

All times are GMT -5. The time now is 08:04 PM.