Message Requester beep

[Marvi]

There is any way to eliminate the noisy beep that sounds when Message Requester window appears?

I tried the code

SystemParametersInfo_(#SPI_SETBEEP,0,0,0)

but it doesn't work (My OS is Vista)

Thanks in advance

[akj]

Just add a flag of $80, thus:

Code: Select all

MessageRequester("Confirm", "Are you sure?", #PB_MessageRequester_YesNo | $80)

[Marvi]

Thanks, but it doesn't work! The beep remains.....

[Kaeru Gaman]

on XP it works.

that means on Vista (64?) it is another Flag but it should exist.

this is one of the reasons, why it is less useful to memorize some |$80 instead of the name of the bloody constant...

[Marvi]

My operative system is Vista 32.

This beep is really annoying........ Anyone else has a good idea?

[Arctic Fox]

No beep here with akj's example (also Vista 32-bit)

[Edwin Knoppert]

http://www.hellobasic.com/cgi-bin/forum ... 1252404467

[Marvi]

Ok it works now! Maybe I wrote something wrong......

THANKSSSSSS TO EVERYBODY

[akj]

I think the constant $80 has the name #MB_USERICON but I am uncertain as this name is not recognised by the PB compiler.

[+18]

oh, please convert this code for PB

Code: Select all

Function MsgBox2( ByVal sText As String, ByVal dwStyle As Dword, ByVal sTitle As String ) As Long 
 
    Local MB As MSGBOXPARAMS 
 
    MB.cbSize = SizeOf( MSGBOXPARAMS ) 
    MB.lpszText = StrPtr( sText ) 
    MB.lpszCaption = StrPtr( sTitle ) 
     
    If ( dwStyle And %MB_ICONEXCLAMATION ) Then 
   MB.lpszIcon = %IDI_EXCLAMATION 
   dwStyle = dwStyle And Not %MB_ICONEXCLAMATION 
    ElseIf ( dwStyle And %MB_ICONINFORMATION ) Then 
   MB.lpszIcon = %IDI_ASTERISK 
   dwStyle = dwStyle And Not %MB_ICONINFORMATION    
    ElseIf ( dwStyle And %MB_ICONQUESTION ) Then 
   MB.lpszIcon = %IDI_QUESTION 
   dwStyle = dwStyle And Not %MB_ICONQUESTION 
    ElseIf ( dwStyle And %MB_ICONSTOP ) Then 
   MB.lpszIcon = %IDI_HAND 
   dwStyle = dwStyle And Not %MB_ICONSTOP    
    End If 
 
    MB.dwStyle = dwStyle Or %MB_TASKMODAL Or %MB_USERICON 
 
    Function = MessageBoxIndirect( MB ) 
     
End Function

merci

[Sparkie]

Have a look at
http://www.purebasic.fr/english/viewtop ... 683#121683

[+18]

Thanks, that's good