message d'erreur La valeur ne peut pas être null. Nom du paramètre : text

**firenze** · 20/10/2013, 13h25

Bonjour mon code marchais tres bien hier et aujourd’hui il me marque ce message que je ne comprend pas

Merci d’avance

**DeWaRs** · 20/10/2013, 16h30

Hello,

Ta textbox1 est vide du coup cela genere une exeption.

Cordialement.

DeWaRs

**firenze** · 20/10/2013, 17h07

merci dewars comment je peut régler se probléme?

**rv26t** · 20/10/2013, 17h58

Bonjour,

Il suffit de tester TextBox1

Code :

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

        If Not String.IsNullOrEmpty(TextBox1.Text) Then My.Computer.Clipboard.SetText(TextBox1.Text)

**firenze** · 20/10/2013, 21h33

merci beaucoup de votre aide je vais essayer

**firenze** · 21/10/2013, 11h49

j'ai essayer le code mes sa ne marche toujours pas a moins que je l'utilise mal se qui et fort possible

**rv26t** · 21/10/2013, 12h39

Suivez en pas à pas et regardez la valeur de pass et textbox1.text
Poster le code tel que vous l'avez écrit.

**firenze** · 21/10/2013, 16h37

voici le code que j'ai fait

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Option Strict Off
Option Explicit On
Friend Class Form1
    Inherits System.Windows.Forms.Form
    Dim a As Short
    Dim pass As String
    Dim charactere(35) As String
 
    Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
   charactere(0) = "acantho"
        charactere(1) = "actino"
        charactere(2) = "chromat"
        charactere(3) = "crypt"
        charactere(4) = "arque"
        charactere(5) = "tomie"
        charactere(6) = "pède"
        charactere(7) = "vore"
        charactere(8) = "fique"
        charactere(9) = "xylo"
        charactere(10) = "ad"
        charactere(11) = "mo"
        charactere(12) = "dactyle"
        charactere(13) = "èdre"
        charactere(14) = "orme"
        charactere(15) = "feuille"
        charactere(16) = "gland"
        charactere(17) = "saule"
        charactere(18) = "jeune"
        charactere(19) = "myst"
        charactere(20) = "celt"
        charactere(21) = "thèque"
        charactere(22) = "philo"
        charactere(23) = "herb"
        charactere(24) = "carni"
        charactere(25) = "proto"
        charactere(26) = "mop"
        charactere(27) = "hu"
        charactere(28) = "hemi"
        charactere(29) = "artério"
        charactere(30) = "leuco"
        charactere(31) = ""
        charactere(32) = "mythe"
        charactere(33) = "phén"
        charactere(34) = "plouto"
        charactere(35) = "sphéno"
 
    End Sub
 
    Private Sub generate_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles button1.Click
        Randomize()
        pass = ""
        a = 0
        While (a <= 8)
            pass = pass & charactere(CShort(Rnd() * 35))
            a = a+ 1
        End While
        textbox1.Text = pass
        My.Computer.Clipboard.Clear()
        My.Computer.Clipboard.SetText(textbox1.Text)
    End Sub
End Class

**callo** · 21/10/2013, 16h44

En suivant les recommandations de rv26t, tu devrais avoir un code comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub generate_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles button1.Click
        Randomize()
        pass = ""
        a = 0
        While (a <= 8)
            pass = pass & charactere(CShort(Rnd() * 35))
            a = a+ 1
        End While
        textbox1.Text = pass
        My.Computer.Clipboard.Clear()
        If Not String.IsNullOrEmpty(TextBox1.Text) Then My.Computer.Clipboard.SetText(TextBox1.Text)
    End Sub