CONTRÔLE VITODIGITS, TYPE PICTURECLIP, POUR AFFICHAGE DU TEXTE LCD
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
4 janv. 2007 à 09:05
ludbest1 Messages postés 14 Date d'inscription dimanche 19 octobre 2003 Statut Membre Dernière intervention 13 février 2012 - 11 mai 2009 à 21:03
ludbest1 Messages postés 14 Date d'inscription dimanche 19 octobre 2003 Statut Membre Dernière intervention 13 février 2012 - 11 mai 2009 à 21:03
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/40975-controle-vitodigits-type-pictureclip-pour-affichage-du-texte-lcd
https://codes-sources.commentcamarche.net/source/40975-controle-vitodigits-type-pictureclip-pour-affichage-du-texte-lcd
11 mai 2009 à 21:03
6 janv. 2007 à 07:03
- mise en place d'd'une interface permettant zoomer dans l'image source afin de connaître précisement les points de départ aux références d'image à collectionner
- trois formats sont maintenaint disponibles: grand, petit, mini
L'image capturé a été modifié sur vbfrance
PS: Est-ce que quelqu'un peut me dire où je peux trouver des images ayant tous les caractères alphanumériques ? Merci d'avance !
5 janv. 2007 à 10:44
PS:J'ai oublié d'actualiser la capture sur cette p'tit mise à jour.
4 janv. 2007 à 16:43
PS: on dit "programmeur", pas "programateur"; un programmateur (avec 2 m), c'est pour démarrer une machine à laver...
4 janv. 2007 à 16:40
4 janv. 2007 à 16:36
Je pense que ta ligne de code est superfule dans le sense que cette propriété est modifié par le programateur, pas par l'utilisateur final.
Exemple: dans le menu 'Couleurs' du Form1, il est impossible de créer une erreur
Mais comme ça ne coûte presque rien, voici la modification faite:
Public Property Let Color(ByVal New_Color As Integer)
PropertyChanged "Color"
m_Color = Abs (New_Color)
If m_Color > 2 Then m_Color = 2
WriteString m_Text
End Property
4 janv. 2007 à 16:14
comme les autres, je trouve ce controle très sympa.
Tu devrais ajouter un controle de la valeur de Color dans
Public Property Let Color(ByVal New_Color As Integer)
If m_Color < 0 Then m_Color = 0
Sinon, il accpte par exemple -1 et ça crashe évidemment dans WriteString.
Sinon, c'est nickel!
4 janv. 2007 à 14:28
Maintenaint c'est l'heure d'adapter cette source à un contrôle ToolBar A+
4 janv. 2007 à 12:05
A+
Exploreur
4 janv. 2007 à 10:22
slts
__________________
API @ la Loupe http://xav.prog.power.free.fr
4 janv. 2007 à 09:05
j'suis pas fan de la notation % $ & co ( Dim I% )
mais bon, c'est une affaire de gouts
vires le 'VicDigit4' ^^
avec un afficheur hex, tu pourras meme accepter tous les caractères, et faire un journal lumineux :p
Mets la propriété Text de ton controle par defaut (dans ses attributs)