Blocage msgbox

Résolu
gouzou44 Messages postés 33 Date d'inscription jeudi 28 décembre 2006 Statut Membre Dernière intervention 5 février 2009 - 9 déc. 2008 à 18:26
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 10 déc. 2008 à 14:56
Bonjour,

Je créer une macro pour catia. Je voulais savoir si l'on pouvait débloquer catia lors de l'apparition d'une msgbox pour tourner la vue de la pièce afficher. Lorsque le msgbox est apparent, je n'ai pas la possibilité de tourner la pièce et je voulais savoir si cela était possible. Merci

3 réponses

PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
9 déc. 2008 à 18:36
salut,

la msgbox... c'est ton code qui la déclenche?

si oui tu peux passer par l'API MessageBox en passant comme handle 0&

<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp 
0
gouzou44 Messages postés 33 Date d'inscription jeudi 28 décembre 2006 Statut Membre Dernière intervention 5 février 2009
10 déc. 2008 à 13:55
Oui je demande à mon code d'afficher le msgbox. Je ne connais pas l'api messagebox en passant pas un hadle. Pourrai-tu e fournir des détails merci
0
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
10 déc. 2008 à 14:56
tu as tapé API MESSAGEBOX dans google pour voir?....






Const 
MB_DEFBUTTON1 =  
&H0&


Const 
MB_DEFBUTTON2 = 
&H100&


Const 
MB_DEFBUTTON3 = 
&H200&


Const 
MB_ICONASTERISK = 
&H40&


Const 
MB_ICONEXCLAMATION = 
&H30&


Const 
MB_ICONHAND = 
&H10&


Const 
MB_ICONINFORMATION = MB_ICONASTERISK


Const 
MB_ICONQUESTION = 
&H20&


Const 
MB_ICONSTOP = MB_ICONHAND


Const 
MB_OK = 
&H0&


Const 
MB_OKCANCEL = 
&H1&


Const 
MB_YESNO = 
&H4&


Const 
MB_YESNOCANCEL = 
&H3&


Const 
MB_ABORTRETRYIGNORE = 
&H2&


Const 
MB_RETRYCANCEL = 
&H5&


Private Declare Function 
MessageBox 
Lib 
"user32" 
Alias 
"MessageBoxA" 
(
ByVal 
hwnd 
As Long

ByVal 
lpText 
As String
,
ByVal
lpCaption
As String
,
ByVal
wType
As Long
)
As
Long


Private Sub 
Form_Load()


    'KPD-Team
1998


    'URL:
http://www.allapi.net/


    'E-Mail:
KPDTeam@Allapi.net


    'Show a
messagebox

    MessageBox  0& , "KPD-Team 1998", App.Title, MB_OK
End Sub






<small>
[../code.aspx?ID =39466 Coloration VB6, VBA,
VBS]
</small>










<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp 
0
Rejoignez-nous