Msagent + ocx

Description

Ce petit prog vous montre un ocx, qui n'est pas de moi, en action. Cela vous montre comment gérer un "faux" assistant d'office dans votre application pour l'égayer un peu. Ce controle est entiérement paramétrable tant au niveau des couleurs et des messages que des images et du retour.

Source / Exemple :


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

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.