- POUR APPELER UN ASSISTANT :
- MsgAssistant1.RoundColor = vbBlue ' couleur du contour
- MsgAssistant1.ButtonsBackColor1 = vbBlack 'couleur de l'arriére plan
- MsgAssistant1.ButtonsForColor1 = vbWhite 'Couleur du remplissage du bouton 1
- MsgAssistant1.MessagesText = "Text" 'la parole est à l'assistant
- MsgAssistant1.MessagesBackColor = vbWhite 'couleur arriére plan du message
- MsgAssistant1.MessagesForColor = vbRed
- MsgAssistant1.DarkLineColor = vbGreen
- MsgAssistant1.MessageSignal = True
- MsgAssistant1.IconTyp = Informations ' choix entre criticals,informations et questions
-
- MsgAssistant1.OpenDirectionMsgBox TreeButtonBox, TopCenter 'BtmRight, MidRight, MousePointer...
-
- 'Choix de présentation de réponse
- 'MsgAssistant1.OpenObjectMsgBox TreeButtonBox, Me
- 'MsgAssistant1.OpenParentFormMsgBox TwoButtonBox, Me
- 'MsgAssistant1.OpenTrayMsgBox TwoButtonBox
-
-
- MsgBox MsgAssistant1.ReturnValue ' aprés faire un test pour savoir la réponse
POUR APPELER UN ASSISTANT :
MsgAssistant1.RoundColor = vbBlue ' couleur du contour
MsgAssistant1.ButtonsBackColor1 = vbBlack 'couleur de l'arriére plan
MsgAssistant1.ButtonsForColor1 = vbWhite 'Couleur du remplissage du bouton 1
MsgAssistant1.MessagesText = "Text" 'la parole est à l'assistant
MsgAssistant1.MessagesBackColor = vbWhite 'couleur arriére plan du message
MsgAssistant1.MessagesForColor = vbRed
MsgAssistant1.DarkLineColor = vbGreen
MsgAssistant1.MessageSignal = True
MsgAssistant1.IconTyp = Informations ' choix entre criticals,informations et questions
MsgAssistant1.OpenDirectionMsgBox TreeButtonBox, TopCenter 'BtmRight, MidRight, MousePointer...
'Choix de présentation de réponse
'MsgAssistant1.OpenObjectMsgBox TreeButtonBox, Me
'MsgAssistant1.OpenParentFormMsgBox TwoButtonBox, Me
'MsgAssistant1.OpenTrayMsgBox TwoButtonBox
MsgBox MsgAssistant1.ReturnValue ' aprés faire un test pour savoir la réponse