LA SOURIS ET SES COORDONNÉES

Commentaire de spy166 le 31/10/2004 01:55:20

Tien je viens de télécharger ta source et là je découvre un nouveau truc (enfin pour moi c'est nouveau) : "AndAlso"
C'est quoi la différence avec le "And" classique ?

Commentaire de christoni le 01/11/2004 10:14:26

Bonjour.
« And » et « AndAlso » :
Avec « And »  VB examine toutes les expressions ou conditions.
Avec « AndAlso »  Dès qu’une condition ne correspond pas, VB court-circuite
Les autres, puisqu’elles ne sont plus déterminantes pour le résultat final.
Il paraît que ça améliore les performances.
Dans le cas présent, ce n’est peut-être pas utile.
« Une opération logique effectue un court-circuit si le code compilé peut ignorer l'évaluation d'une expression en fonction du résultat d'une autre expression. Si le résultat de la première expression évaluée détermine le résultat final de l'opération, il n'y a pas besoin d'évaluer l'autre expression, car elle ne peut pas changer le résultat final. Un court-circuit peut améliorer les performances si l'expression ignorée est complexe, ou si elle implique des appels de procédure. »
Pour « Or », on a aussi « OrElse ».

Pour colorier une zone :
Dans ce cas si la souris passe sur une zone bleue-ciel ou sur le texte en
Bleu plus foncé, alors la zone passe en rouge et le texte en blanc.

Tout d’abord j’ai déclaré la couleur qui se trouve sous le pointeur de la
Souris :
  Nom de la couleur
Dim pixelColor As Color
  Obtient la couleur du pixel spécifié dans l’image.
pixelColor = monImage.GetPixel(aBs, oRd)

Ensuite j’ai défini les coordonnées de mes différentes zones bleues :
  Si la couleur sous ma souris est bleue clair (ffc6dee5) ou
  Bleu foncé (ff4091a9) et si je suis bien dans le rectangle
  correspondant aux coordonnées indiquées alors l’opération va fonctionner.
If pixelColor.Name = "ffc6dee5" Or pixelColor.Name = "ff4091a9" Then
If (aBs > 267 AndAlso aBs < 366) AndAlso (oRd > 10 AndAlso oRd < 79) Then
    txtRegion.Text = "  NORD-PAS-DE-CALAIS  "
  Pour chaque pixel de la région définie ci-dessous,
  VB renvoie à « RegionBleue »
       For aBs = 267 To 366
          For oRd = 10 To 79
          RegionBleue()
          Next oRd
       Next aBs
       Exit Sub
End If
  Ainsi chaque pixel lu bleu clair et redéfini en rouge et le texte
  en blanc :
    Sub RegionBleue()
        ' "get" : lire et retenir (obtenir)
        ' "set" : définir et appliquer
        txtRegion.Width = txtRegion.TextLength * 8
        If monImage.GetPixel(aBs, oRd).Name = "ffc6dee5" Then
            monImage.SetPixel(aBs, oRd, Color.Red)
        End If
        If monImage.GetPixel(aBs, oRd).Name = "ff4091a9" Then
            monImage.SetPixel(aBs, oRd, Color.WhiteSmoke)
        End If
    End Sub
Il faut définir de petites zones car ça « rame » vite.
Bonne journée.

Commentaire de podan le 11/08/2007 18:53:22

bonjour
ta source est très interressante mais difficile pour un débutant. j'ai essayé de m'en servir dans un petit exemple simple, un simple picturebox colorié en noir mais ça ne marche pas:
comment sais tu le code hexadécimal (je pense) de la couleur ?
faut-il absolument donner une zone
est- ce 1 code en vb.net ou vb6
comment et avec quoi sont créées la carte et les région
bravo encore et merci
a++

Commentaire de djipai le 04/08/2010 10:11:21

Code très bien commenté et très riche.

Merci beaucoup à son auteur.