Discussion :

[étudiante_info]

Bonjour,
Je veux sélectionner toutes les zones de texte erronées en même temps c'est pourquoi j'ai utilisé le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 If IsNumeric(W_foundation_text.Text) = False Then
            W_foundation_text.SelectAll()
            W_foundation_text.Focus()
        End If
        If IsNumeric(H_foundation_text.Text) = False Then
            H_foundation_text.SelectAll()
            H_foundation_text.Focus()
        End If

Mais le résultat de ce code que je n'obtienne que la dernière zone de texte sélectionnée et non pas les deux.

Merci de m'aider

[Ehjoe]

Bonjour,
Je veux sélectionner toutes les zones de texte erronées en même temps c'est pourquoi j'ai utilisé le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 If IsNumeric(W_foundation_text.Text) = False Then
            W_foundation_text.SelectAll()
            W_foundation_text.Focus()
        End If
        If IsNumeric(H_foundation_text.Text) = False Then
            H_foundation_text.SelectAll()
            H_foundation_text.Focus()
        End If

Mais le résultat de ce code que je n'obtienne que la dernière zone de texte sélectionnée et non pas les deux.

Merci de m'aider

Bonjour,

A priori je n'y arrive pas, même dans un container, le focus sur la même form n'est donné qu'à un objet à la fois en définitive, peut être en mettant deux form côte à côte, tu peux essayer...

Voici le code de la tentative :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
' test
Option Explicit On
Public Class Form1
 
  Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    TextBox1.Text = "0123456789"
    TextBox2.Text = "9876543210"
  End Sub
 
  Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'If IsNumeric(TextBox1.Text) = False Then
    TextBox1.SelectAll()
    TextBox1.Focus()
    'End If
    'If IsNumeric(TextBox2.Text) = False Then
    TextBox2.SelectAll()
    TextBox2.Focus()
    'End If
  End Sub
 
End Class

Toutefois il y a pas mal de trucs qui ne vont pas, par exemple il refuse ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
TextBox1.text.SelectAll()
TextBox1.text.Focus()

C'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
TextBox1.SelectAll()
TextBox1.Focus()

Idem, ton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
IsNumeric

Il semble ne pas fonctionnr avec l'objet, peut être faut-il le mettre dans une variable ?

Ah, j'y pense : je pésume que tu ne surlignes pas pour faire joli, c'est sans doute pour ensuite enregistrer, car dans ce cas tu peux enregistrer ce qui est sélectionné, l'un puis l'autre dans des variables, et si jamais tu confirme par je ne sais quoi (un bouton), une queconque manipulation, tu disposes en variables des textes sélectionnés, ou encore, tu les fais l'un après l'autre, avec une manipulation de ce que tu veux faire entre les deux, exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
' Je fais de mémoire à main levée, tu excuseras s'il y a qulques fautes de code, c'est le pricnipe qui compte ici :
Sub selectionneTexte()
  dim v1 as string = ""
  dim v2 as string = ""
  TextBox1.SelectAll()
  TextBox1.Focus()
  v1 = textbox1.SelectedText
  My.Application.DoEvents() ' on rend la main qu'il ait le temps
  TextBox2.SelectAll()
  TextBox2.Focus()
  v2 = textbox2.SelectedText 
  My.Application.DoEvents() ' on rend la main qu'il ait le temps
  MsgBox("Les 2 textes sont sélectionnés, seul le 2eme est surligné...")
End Sub

En dernier, tu donnes des noms personnels à tes objets, certes, moult le font, mais quand derrière tu transmets ton code à examiner, ben ça oblige à réécrire le nom de l'objet si on garde ton code, si tu prévois de faire examiner ton code, laisse les noms d'origine suivi d'un commentaire, c'est mieux pour les autres...

[nanar21]

... Le focus sur la même form n'est donné qu'à un objet à la fois ...

Ce qui me paraît normal ...

... le résultat de ce code que je n'obtienne que la dernière zone de texte sélectionnée et non pas les deux ...

Ce qui me paraît tout à fait logique ...

Si tu veux un effet visuel, tu ne pourrais-tu pas modifier la couleur soit du texte soit du fond ? via une RichTextBox ?

Mais, l'effet visuel le plus professionnel se fait via l'ajout dans ta Form du composant ErrorProvider ( voir dans la boîte d'outils la liste des composants ).

Un petit point d'exclamation s'affichera alors à côté de la TextBox ayant un contenu inapproprié.

Tu obtiendras tous les renseignements souhaités sur ce composant, une fois que tu l'auras placé (en bas de ta Form), sélectionné, puis F1 ...

[Danyel]

Pourquoi ne pas tout simplement gerer les couleurs de fond des textbox à la place d'utiliser l'effet de selection et ainsi placer le focus sur le premier textbox qui pose probleme.