begin process at 2012 02 09 23:37:25
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Divers

 > MSN9COLORIES2

MSN9COLORIES2


 Information sur la source

Note :
Aucune note
Catégorie :Divers Classé sous :api, msn9, texbox, color Niveau :Initié Date de création :08/02/2009 Vu / téléchargé :1 619 / 164

Auteur : LolPiratas

Ecrire un message privé
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Bonjour
Avec la participation de quelques sources qui se trouve sur ce site
Je me suis fait un petit envoi de message en couleur pour msn9. Sans référence Msn
Choix de couleur 1 et 2 écris en gras et souligné. Je continu a amélioré et peux être que j’y mettrai une mise à jour.
Je n’ai pas essayé avec les versions antérieures.



 Conclusion

N’hésiter pas sur vos commentaire merci.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture COOL CAPTURE BMP TO ICO
Source avec Zip Source avec une capture SHAPE SPOTS LINE LAZER EFFET DE LUMIERE POUR LES NULS
Source avec Zip Source avec une capture ENVOIE DE ECARTE
Source avec Zip Source avec une capture IMSEND AOL9 FR
Source avec Zip Source avec une capture ENVOYER UN EMAIL AVEC AOL8

 Sources de la même categorie

Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo
Source avec Zip Source .NET (Dotnet) PENSE BÊTE par alpha5

 Sources en rapport avec celle ci

Source avec Zip COMMUNICATION MODBUS MASTER par sergelapointe
Source avec Zip Source avec une capture COLOR PICKER par EBArtSoft
Source avec Zip Source avec une capture AFFICHEUR TYPE DIGITAL AVEC AVEC L'API SETBITMAPBITS par oeildedinde
Source avec Zip Source avec une capture [VBA] EXCEL - UNE CALCULATRICE SUR UN USERFORM par lermite222
Source avec Zip Source avec une capture [VBA] EXCEL - DÉMO - TIRER 1, 2 OU 3 DÉS + APIS par lermite222

Commentaires et avis

Commentaire de PCPT le 08/02/2009 16:08:57 administrateur CS

salut,


quelques conseils en vrac :


# Text5 = "0"
# If Text5 = "0" Then
à quoi bon tester, tu modifies la valeur toi-même...



#Image2(Index).BorderStyle = 1
préfère les constantes :
Image2(Index).BorderStyle = vbFixedSingle



#Text5 = Text5 + 1
tu additionnes un numérique à une string?
Text5.Text = CStr(Val(Text5.Text) + 1)



#If Text5 = "3" Then
#Call Image2_DblClick(Index)
#If Text5 = "1" Then
comment text5 pourrait valoir à la fois "3" et "1" ?



#If Index = "5" Then
#If text2 = "" Then
#text2 = "[c=50]"
pas "[c=5]" plutôt ?



#If Index = "0" Then
index est un integer, pourquoi tu testes sa valeur string?....



# If Index = "0" Then
# If Text2 = "" Then
# Text2 = "[c=0]"
# Else
# Text3 = "[/c=0]"
#
# End If
# End If
# If Index = "1" Then
# If Text2 = "" Then
# Text2 = "[c=1]"
# Else
# Text3 = "[/c=1]"
#
# End If
# End If
etc...

indente ton code, c'est vraiment difficile à relire

pense à SELECT CASE
ici tu testes tous les cas de figures inutilement

et même pour gagner un peu en ligne ici tu peux lire tes correspondances dans un tableau (éventuellement généré à chaque click)
plus de 400 lignes se remplacent donc ainsi :

Dim viCorresp As Variant
viCorresp = VBA.Interaction.Choose(Index + 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 39, 37, 38, 18, 19, 20, 21, 22, 23, 24, 41, 40, 36, 27, 28, 29, 30, 31, 32, 33, 55, 58, 57, 45, 46, 47, 48, 49, 50, 51, 61, 62, 63, 64, 65, 66, 67)

If LenB(text2.Text) = 0 Then
    text2.Text = "[c=" & viCorresp & "]"
Else
    text3.Text = "[/c=" & viCorresp & "]"
End If



juste survolé...
*fait surtout attention à tes types
*essaye de prendre plus de temps sur la conception avant de te lancer dans le code
*utilise les propriétés des contrôles (et non le contrôle lui-même), çà aide en lisibilité et en debugging


bon courage

Commentaire de LolPiratas le 08/02/2009 16:51:56

merci pour tes conseils. Je vais revoir tout ca!

Commentaire de LolPiratas le 08/02/2009 17:29:04

Dim viCorresp As Variant
viCorresp = VBA.Interaction.Choose(Index + 1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 39, 37, 38, 18, 19, 20, 21, 22, 23, 24, 41, 40, 36, 27, 28, 29, 30, 31, 32, 33, 55, 58, 57, 45, 46, 47, 48, 49, 50, 51, 61, 62, 63, 64, 65, 66, 67)

If LenB(text2.Text) = 0 Then
    text2.Text = "[c=" & viCorresp & "]"
Else
    text3.Text = "[/c=" & viCorresp & "]"
End If
Peu tu m'éclairer sur se code plus haut car je ne le comprends pas trop bien.
Car exemple : image2 (index)  qui est égal à 18
le code de couleur  c=37 ne correspond pas a l'index de l'image( 18) est pourtant cela fonctionne  il me prend la bonne couleur
If Index = "18" Then
If Text2 = "" Then
Text2 = "[c=37]"
Else
Text3 = "[/c=37]"

End If

Commentaire de PCPT le 08/02/2009 18:17:13 administrateur CS

si INDEX = 18, donc la valeur 19 (on commence à 0 avec les contrôles mais à 1 avec le tableau de cet exemple), tu voudrais connaître "37"
par la méthode choose on va donc récupérer la 19ème valeur (Index + 1) dans la suite indiquée, qui est bien 37

1 -> 0
2 -> 1
3 -> 2
...
17 -> 16
18 -> 39
19 -> 37

on a donc 37 en variant (dans viCorresp)
si text2 = "" (plus proprement si la taille de la propriété text de text2 = 0)
  zone_2 = "[c=" & ce_37_RéCUPéRé & "]"
sinon
  zone_3 = "[/c=" & ce_37_RéCUPéRé & "]"

Commentaire de LolPiratas le 08/02/2009 18:34:01

je te remerci j'ai vraiment apris quelque chose d'interessant. Niveau graphisme j'espere que cela vous plait ?

Commentaire de TheSin le 09/02/2009 16:58:31

Juste pour information, ce n'est pas la version 9 de msn, mais la version 2009 ou version 14 ;).

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Les APIs [ par NSUADI ] Bonsoir à tous!! Alors je me suis lancé depuis peu dans l'utilisation des API windows...mais un grand problème se pose à moi,celui des paramètres des Erreur:429 concernant l'api Messenger API Type Library [ par nostalgius ] Bonjour, j'essai d'implémenter l'api msn dans une application, voici mon code: [code=vb]Public WithEvents msn As MessengerAPI.Messenger Dim contact As Datareport [ par NSUADI ] Bonsoir à tous!! je suis en train de concevoir une petite application qui me permet d'afficher mes enregistrements à l'aide d'un datareport. Mais le p [CS]Choix Pays lors de l'inscription [ par NSUADI ] Bonsoir à tous!! Je suis Congolais de La République Démocratique Congo!!! Je voudrais juste apporter un petit correctif concernant une anomalie sur le mschart .. barre et ligne !!! [ par JeanMarcus ] Bonjour ! Je suis en vb6 et j'avoue ne pas comprendre un truc. Je ne suis qu'un amateur . En effet , j utilise mschart et avec des barres - [b]VtC problème avec datareader [ par kaoutar90 ] Bonjour !! j'ai un projet un rendre dans 3 jours et j'ai un problème que j'ai pas encore réussi à le réussir si vous m'aidez SVP !! Dim req3 As Sql S.O.S projet amateur en VB.Net [ par jamijams ] Bonjour, Je suis un stagiaire en développement dans une petite entreprise locale et je viens de recevoir un projet à faire en VB.Net. Dans ce projet Savoir si on execute dans l'ide ou pas [ par magicgus ] Bonjour, J'avais déjà fait mais je ne me rappelle plus, je développe un ocx et je ne sait plus comment savoir s'il s'exécute dans l'ide ou dans le pr invité de commande [ par le1scorpion1noir ] salut je peux ajouter l'invité de commande dans mon programme Visual basic ??? ou ajouter une textbox et quand j'écris une commande elle l'exécute pu Procedure stocké [ par bialain ] Bonjour mes amis. j'ai un problème de limiter les enregistrements et je veux qlq'un pour m'aider. En effet, j'ai créé un [b]procedurre stocké [/b]com


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,716 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales