MsgBox ( icona chiudi) VB

[xit]

MsgBox "Seleziona tutti campi", vbInformation
E' possibile disabilitare l'icona chiudi?E se si come?
Grazie

[ladyBlu]

intendi la X?

[xit]

Sì intendo la X

[ladyBlu]

io ho un' API, ora te la posto, ok?

[xit]

Grazie!

[ladyBlu]

Nel modulo:
Public Declare Function MessageBox& Lib "user32" Alias "MessageBoxA" (ByVal hWnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)

Nel form:
MessageBox hWnd, "mio messaggio", "titolo", bottoni


Ciao

[xit]

cosa è il terzo parametro bottoni, non ho capèito.
L'icona chiudi non è disabilitata!!!

[ladyBlu]

allora, io ho un form con un bottone. quando clicco sul bottone CMDBottone, mi appare la msgbox. A me la x non si vede, quindi ti ho postato il codice identico al mio, magari avevo saltato qualcosa.
riprova.

Originariamente inviato da ladyBlu 
Nel modulo:
Public Declare Function MessageBox& Lib "user32" Alias "MessageBoxA" _
(ByVal hWnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)

Nel form:
Private Sub CMDBottone_Click()
        MessageBox hWnd, "mio messaggio", "titolo", VBYesNo
End Sub

Fammi sapere.

[xit]

ma l'icona chiudi rimane?Che parametro devo andare ad impostare nella
funzione

[ladyBlu]

Tu non devi settare nessun parametro.
Devi solo inserire quella riga "Public Declare..." nel modulo e scrivere la tua message box.

Ricapitolando:

Nel modulo:
'Tutto su una riga sola
Public Declare Function MessageBox& Lib "user32" Alias "MessageBoxA" _
(ByVal hWnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)

Nel form:
Private Sub CMDBottone_Click()
        MessageBox hWnd, "mio messaggio","titolo", VBYesNo
End Sub

• "mio messaggio"--> è il messaggio che vuoi visualizzare.
• "titolo"--> è il titolo che vuoi appaia sulla barra in alto della msgbox.

Comunque, se non ti è charo, postami il tuo codice che te lo modifico io, ok?