INCRUSTED BUTTON :-) DONNE DU STYLE A VOTRE PROG

cs_Koiu Messages postés 269 Date d'inscription jeudi 26 septembre 2002 Statut Membre Dernière intervention 19 février 2015 - 4 nov. 2002 à 18:58
KaViDee Messages postés 262 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 18 juin 2008 - 7 nov. 2002 à 18:33
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4975-incrusted-button-donne-du-style-a-votre-prog

KaViDee Messages postés 262 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 18 juin 2008
7 nov. 2002 à 18:33
Je te donne entierement raison yoman64 :-)
@+

KaViDee
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 2
7 nov. 2002 à 18:09
Ya pas une source ou Koiu a pas dit de conneries...
Mais améliore sa et continu tes longues secondes de labeur pour pouvoir ajouter des belle couleur a tes bouton et fait en un ocx :D
KaViDee Messages postés 262 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 18 juin 2008
6 nov. 2002 à 14:52
Ouais merci akhenathon pour ces quelques infos mais là en ce moment je le prépare l'ocx mais ya juste un truc que j'aimerais savoir c comment on fait pour l'évenement Click() et comment on fait mettre la propriété caption dans le controle ?

Merci
@+
cs_aKheNathOn Messages postés 575 Date d'inscription dimanche 23 décembre 2001 Statut Membre Dernière intervention 23 octobre 2012
6 nov. 2002 à 08:54
oui tu peux faire ça ... et par exemple dans ton evenement Tex1_OnChange tu mettras

Pos = Text1.selStart
Text1.text = format(Text1.text, "<")
Text1.selstart = Pos

Mais cette methode même si je l'ait pas éssayée me semble trop 'rustre' et ça devrais clignoter comme pas possible , car en touchant au texte , le textbox se vide puis se remplit .
T'as une autre methode sinon :
Pos = Text1.selStart
For i = 1 to len(Text1.text)
text1.selStart = i
Text1.SelLength = 1
Text1.SelText = format(Text1.SelText, "<")
next i

Cette methode aura le bénéfice de moins clignoter mais son effet sur des textes déroulant sera pas beau .

T'as d'autre methode pour faire un effet instantané dans une grandeur de texte varaiable .

Celle que je te conséillerais c'est de filtrer les lettres tappées dés que le mec les tappe, avec keydown et keypress , mais dans ce cas , tu dois rendre enabled le texte et faire des artifices avec des picture box ... mais là ça risque d'etre chiant .

T'as une derniére possibilitée , c'est de faire un roulement avec deux textbox , une cachée ou tu fais les changements , donc on ne voit pas les manips , et que tu rend visible quand c'est finit . Ce serais le plus simple et le plus esthétique , car le clignotement du textbox lorsque on le passera en visible devrais pas être trop génant ... tout dépend de la vitesse de frappe

Mais dans le principe tu peux facilement en faire une ocx , et même si tu le souhaites , tu peux la publier sur ta page web comme champ de texte ;)

PS : Iubito tu sait ce que ça veut dire en roumain ? (j'epére pour toi que t'es une meuf ;)
cs_blabla Messages postés 112 Date d'inscription mercredi 28 août 2002 Statut Membre Dernière intervention 13 mars 2004
5 nov. 2002 à 15:51
j'm'attendais aussi a mieu met jtrouve ca cool .... merci
cs_blabla Messages postés 112 Date d'inscription mercredi 28 août 2002 Statut Membre Dernière intervention 13 mars 2004
5 nov. 2002 à 15:51
j'm'attendais aussi a mieu met jtrouve ca cool .... merci
cs_iubito Messages postés 629 Date d'inscription mercredi 3 juillet 2002 Statut Membre Dernière intervention 9 octobre 2006
5 nov. 2002 à 14:40
mouais j'm'attendais à mieux mais c pas vilain kan même
aKheNathOn > merci pr les explication d ocx, j'veux m'en faire. Esk'on peut faire par exemple un textbox et controler ce qui est tapé avec les événements (ex je veux que tout se mette en MAJuscule kan je tape du txt)
cs_aKheNathOn Messages postés 575 Date d'inscription dimanche 23 décembre 2001 Statut Membre Dernière intervention 23 octobre 2012
5 nov. 2002 à 12:20
Y'à pas besoin de pages d'explications pour savoir programmer un ocx ... y'à que 3 ou 4 trucs à savoir .

Déjà faut faire un projet ActiveX, puis en le compilant ça donne un ocx .

Pour ce qui est de sa creation , c'est casiment paréil que du VB ... pour lui faire des fonctions c'est Public Function Nom(Vars) as Vars

Pour lui Faire des propriétées , c'est aussi simple :
Property Let Propriétée() as Vars
Propriétée = Valeur Par Défault
End Property

et pour le traitement du changement c'est :

Property Get/Set Propriétée(byval NouvelleValeur as Vars)
Commandes à effectuer avec les nouvelles valeurs
End Property

J'ai un peu simplifié le traitement , car il faudrais parler aussi des propertybags ... et là c'est une gestion de la mémoire des paramétres en mode Design ... un peu lourd à faire ...

Pour les evenements c'est Public Event Nom(Vars)

Et pour les appeller : RaisenEvent Nom(Vars)

Voilà , j'ai practiquement tout dit en quelques lignes . Si vous voulez des exemples concrets , sur vbfrance y'en à des tonnes .

Bonne prog à tous
WhiteDwarf Messages postés 510 Date d'inscription samedi 29 décembre 2001 Statut Membre Dernière intervention 23 mai 2008
5 nov. 2002 à 10:34
Ouais c pas mal, moi je trouve ca joli...et pas tro comliké, c sympas... par contre pour aKheNathOn, si tu connais un site ou u ntruc qui explike comment fr des ocx merci
cs_aKheNathOn Messages postés 575 Date d'inscription dimanche 23 décembre 2001 Statut Membre Dernière intervention 23 octobre 2012
4 nov. 2002 à 23:38
Au fait ... si tu veux vraiment faire un truc practique ... refait ton boutton en ocx ... au moins des personnes l'utiliseront aussi facilement qu'un simple boutton ...!

Si tu vois pas ce que je veux dire ... je me ferais une joie de t'expliquer ce que c'est qu'un user control ;) ...

Et oui , ça alourdit moins vos codes , et c'est aussi rapide en execution ... voire plus des fois ... selon le code de départ ... et ça vous permet de mieux ordonner de gros projets ... alors n'oubliez pas ce truc !
KaViDee Messages postés 262 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 18 juin 2008
4 nov. 2002 à 21:02
Vous savez j'ai pas dit que c révolutionnaire! loin de la mais c juste pour faire un new style de boutons ! perso, je préfere ceux la que les normaux !
enfin bon chacun chez gouts !
@+
cs_Koiu Messages postés 269 Date d'inscription jeudi 26 septembre 2002 Statut Membre Dernière intervention 19 février 2015
4 nov. 2002 à 20:36
bein personnellement jaime pas!!!
Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 juin 2004
4 nov. 2002 à 19:27
C vré ki sont pas térrible....
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
4 nov. 2002 à 19:25
Ouai, ca donne un nouveau style, mais ce n'est pas révolutionnaire.

DARK SIDIOUS
cs_Koiu Messages postés 269 Date d'inscription jeudi 26 septembre 2002 Statut Membre Dernière intervention 19 février 2015
4 nov. 2002 à 19:06
...No comments
KaViDee Messages postés 262 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 18 juin 2008
4 nov. 2002 à 19:02
L'interet c de faire joli je sais pas si t'as vu la différence entre les boutons :-)
Peut etre que tu commence a perdre le vue ! lol
cs_Koiu Messages postés 269 Date d'inscription jeudi 26 septembre 2002 Statut Membre Dernière intervention 19 février 2015
4 nov. 2002 à 19:00
Je ne vois pas trop l'interert de ton prog ni ce qu'il fait d'ailleurs!!!
cs_Koiu Messages postés 269 Date d'inscription jeudi 26 septembre 2002 Statut Membre Dernière intervention 19 février 2015
4 nov. 2002 à 18:58
voyons voir!!!
Rejoignez-nous