Discussion :

[Estelle0611]

Bonjour tout le monde,

Dans le cadre de mon stage en entreprise, je dois faire la chose suivante :

Je suis dans un formulaire dans lequel il y a deux textBox contenant un numéro fixe et un numéro portable.
Je souhaite lancer une impression dans laquelle je dois faire apparaitre un des deux numéros.
Pour cela, mon code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        If (tbx_com_cli_fixe.Text <> "" And tbx_com_cli_gsm.Text = "") Then
            ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
 
        ElseIf (tbx_com_cli_gsm.Text <> "" And tbx_com_cli_fixe.Text = "") Then
            ev.Graphics.DrawString(tbx_com_cli_gsm.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
 
        ElseIf (tbx_com_cli_gsm.Text <> "" And tbx_com_cli_fixe.Text <> "") Then
            ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
 
        ElseIf (tbx_com_cli_gsm.Text = "" And tbx_com_cli_fixe.Text = "") Then
            ev.Graphics.DrawString("00000", special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
        End If

Cela ne fonctionne pas, donc j'ai essayé d'afficher dans un label que j'ai placé sur le formulaire et là il reste vide :

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
 
        Select Case tbx_com_cli_gsm.Text
            Case ""
                Select Case tbx_com_cli_fixe.Text
                    Case ""
                        lbl_test_tel.Text = "00000"
                        ev.Graphics.DrawString("00000", special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
                    Case Is <> ""
                        lbl_test_tel.Text = tbx_com_cli_fixe.Text
                        ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
                End Select
            Case Is <> ""
                Select Case tbx_com_cli_fixe.Text
                    Case ""
                        lbl_test_tel.Text = tbx_com_cli_gsm.Text
                        ev.Graphics.DrawString(tbx_com_cli_gsm.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
                    Case Is <> ""
                        lbl_test_tel.Text = tbx_com_cli_fixe.Text
                        ev.Graphics.DrawString(tbx_com_cli_fixe.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)
                End Select
        End Select

Et l'impression ne fonctionne pas non plus.

Voyez-vous une solution pour résoudre mon problème ?
Toute réponse sera la bienvenue

Merci à tous pour votre aide.

[Sehnsucht]

Beaucoup de complications pour pas grand chose

D'après ce que je vois tu as 3 cas distincts :

• Le numéro de fixe est donné -> on l'imprime (même si on a aussi donné un portable)
• Le fixe n'est pas donné, mais un numéro de portable l'est -> on imprime le portable
• Ni le fixe, ni le portable sont donnés -> on imprime le 00000

Et du coup suffit de juste écrire ceci en code, dans chaque cas on récupère le bon "truc" à imprimer et ensuite on l'imprime

Code :

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

1
2
3
4
5
6
7
8
9
Dim textToPrint As String = "00000" ' la valeur par défaut si ni fixe ni portable n'ont été donnés
 
If fixe.Text <> "" Then
    textToPrint = fixe.Text ' on récupère le numéro de fixe
Else If gsm.Text <> "" Then
    textToPrint = gsm.Text ' on récupère le numéro de portable
End If
' ici textToPrint contient la bonne valeur selon les cas cités
ev.Graphics.DrawString(textToPrint, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)

[Estelle0611]

Bonjour Sehnsucht,

Je vous remercie de votre réponse.

J'ai essayé votre suggestion dans le code mais je n'arrive toujours pas récupérer le portable dans le cas où il n'y a pas de fixe.

[mactwist69]

Refait voir ton nouveau code !

[Estelle0611]

J'utilise un label (lbl_test_tel) pour voir ce que je récupère.

Voici mon nouveau code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
lbl_test_tel.Text = "00000" 'Valeur par défaut dans le label
 
        If tbx_com_cli_fixe.Text <> "" Then
            lbl_test_tel.Text = tbx_com_cli_fixe.Text ' on récupère le numéro de fixe
        ElseIf tbx_com_cli_gsm.Text <> "" Then
            lbl_test_tel.Text = tbx_com_cli_gsm.Text ' on récupère le numéro de portable
        End If
 
        ev.Graphics.DrawString(lbl_test_tel.Text, special, Brushes.Black, xpos + largeurcol + 238, ypos + 342)

Mon code ne récupère que le fixe vide ou non puisque le label n'affiche pas "00000" non plus.

[mactwist69]

Sais tu faire du pas à pas ?

Ca t'aidera toute ta vie si tu développe... Et tu verras où ton code passe.