| View previous topic :: View next topic |
| Author |
Message |
Golden Wing
Grandmaster Cheater
![]() Reputation: 0
Joined: 29 Aug 2007
Posts: 905
|
 Posted: Sat Feb 23, 2008 2:54 pm Post subject: Help in 2 thing |
 |
|
in vb6
1.how do i make message box like when i click the command"exit" it will pop up saying "are you sure you want to quit?"
2.how do i make custom "rezize and close" button?
_________________
|
|
| Back to top |
|
 |
hcavolsdsadgadsg
I'm a spammer
![]() Reputation: 26
Joined: 11 Jun 2007
Posts: 5801
|
| Posted: Sat Feb 23, 2008 4:51 pm Post subject: |
|
|
1. Yes / No MessageBox
2. Taking a guess here, ControlName.Height/Width
|
|
| Back to top |
|
|
AtheistCrusader
Grandmaster Cheater
![]() Reputation: 6
Joined: 23 Sep 2006
Posts: 681
|
| Posted: Sat Feb 23, 2008 5:08 pm Post subject: |
|
|
1. | Code: |
dim msgboxresult as vbmsgboxresult
msgboxresult = msgbox "Are you sure you want to exit?", yesno
if msgboxresult = true then
unload me
end if
|
|
|
| Back to top |
|
|
XxOsirisxX
Grandmaster Cheater Supreme
 Reputation: 0
Joined: 30 Oct 2006
Posts: 1597
|
| Posted: Sat Feb 23, 2008 6:59 pm Post subject: |
|
|
| Code: | If MsgBox("Message", vbYesNo, "Tittle") = vbYes Then
End
Else
MsgBox ("kewl")
End If |
_________________
|
|
| Back to top |
|
|
Pseudo Xero
I post too much
![]() Reputation: 0
Joined: 16 Feb 2007
Posts: 2607
|
| Posted: Sat Feb 23, 2008 7:09 pm Post subject: |
|
|
| masterkert3 wrote: | 1. | Code: |
dim msgboxresult as vbmsgboxresult
msgboxresult = msgbox "Are you sure you want to exit?", yesno
if msgboxresult = true then
unload me
end if
|
|
You don't need to use a variable for getting the messagebox result.
|
|
| Back to top |
|
|
sponge
I'm a spammer
 Reputation: 1
Joined: 07 Nov 2006
Posts: 6009
|
| Posted: Sat Feb 23, 2008 9:00 pm Post subject: |
|
|
I think he means custom graphic for the buttons. I can't tell from the top of my head... but it's widely documented on the net.
_________________
|
|
| Back to top |
|
|
XxOsirisxX
Grandmaster Cheater Supreme
Reputation: 0
Joined: 30 Oct 2006
Posts: 1597
|
| Posted: Sat Feb 23, 2008 9:05 pm Post subject: |
|
|
I get it now, thanks Sponge.
He means, custom Minimize, Maximize, and Close buttons from the form. 
It changes depeding of the style that you got on you computer. If you wants an standard one, then make it with no borders, and make one with pictures and make a mouse grab thing
Is so far what i could think.
_________________
|
|
| Back to top |
|
|
AndrewMan
Grandmaster Cheater Supreme
![]() Reputation: 0
Joined: 01 Aug 2007
Posts: 1257
|
| Posted: Sat Feb 23, 2008 9:24 pm Post subject: |
|
|
| XxOsirisxX wrote: | | Code: | If MsgBox("Message", vbYesNo, "Tittle") =vbYes Then
End
Else
MsgBox ("kewl")
End If |
|
I dont think you need to include vb. What does that mean?
_________________
|
|
| Back to top |
|
|
XxOsirisxX
Grandmaster Cheater Supreme
Reputation: 0
Joined: 30 Oct 2006
Posts: 1597
|
| Posted: Sat Feb 23, 2008 9:27 pm Post subject: |
|
|
| AndrewMan wrote: | | XxOsirisxX wrote: | | Code: | If MsgBox("Message", vbYesNo, "Tittle") =vbYes Then
End
Else
MsgBox ("kewl")
End If |
|
I dont think you need to include vb. What does that mean? |
Yes, you have to.
And, it means Visual Basic 
_________________
|
|
| Back to top |
|
|
atom0s
Moderator
 Reputation: 205
Joined: 25 Jan 2006
Posts: 8588
Location: 127.0.0.1
|
| Posted: Sun Feb 24, 2008 3:35 am Post subject: |
|
|
A little more control over the selection and what happens can be done with:
| Code: | Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim dwMsgRet As Long
dwMsgRet = MsgBox("Are you sure you want to exit?", vbYesNoCancel, "Really Exit?")
Select Case dwMsgRet
Case vbYes
'// User Wants To Exit
'// Unload all objects before letting this return!
Cancel = 0
Case vbNo
'// User does not want to exit, raise cancel and exit.
Cancel = 1
Case vbCancel
'// User was unsure and canceled.
Cancel = 1
End Select
End Sub |
_________________
- Retired. |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
