IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Windows Forms Discussion :

Charger une valeur lors de l'ouverture de l'interface [Débutant]


Sujet :

Windows Forms

  1. #1
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2018
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 24
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Février 2018
    Messages : 34
    Points : 24
    Points
    24
    Par défaut Charger une valeur lors de l'ouverture de l'interface
    Bonjour,

    Désolé d'avance si je ne suis pas au bonne endroit mais j'ai un problème lors du chargement de mon interface. J'aimerais qu'elle charge des valeurs stocké dans un fichier texte dans mes textbox mais cela ne fonctionne pas. J'ai sans doute fait une erreur quelque part mais je n'arrive pas à la trouvé.
    A titre d'indication, TBZT1 à TBZT20 et TBZTS1 à TBZTS10 sont le Name de mes textbox
    Merci de votre aide

    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
    62
    63
    64
    65
    66
    67
    68
    69
     
     Private Sub BizerbaTestEti_Load(sender As Object, e As EventArgs) Handles Me.Load
            Dim Tableau() As String = GetZoneTexte("D:\User\Admin\Zone texte.txt")
     
            Z1 = Tableau(1)
            Z2 = Tableau(4)
            Z3 = Tableau(7)
            Z4 = Tableau(10)
            Z5 = Tableau(13)
            Z6 = Tableau(16)
            Z7 = Tableau(19)
            Z8 = Tableau(22)
            Z9 = Tableau(25)
            Z10 = Tableau(28)
            Z11 = Tableau(31)
            Z12 = Tableau(34)
            Z13 = Tableau(37)
            Z14 = Tableau(40)
            Z15 = Tableau(43)
            Z16 = Tableau(46)
            Z17 = Tableau(49)
            Z18 = Tableau(52)
            Z19 = Tableau(55)
            Z20 = Tableau(58)
     
            Zs1 = Tableau(61)
            Zs2 = Tableau(64)
            Zs3 = Tableau(67)
            Zs4 = Tableau(70)
            Zs5 = Tableau(73)
            Zs6 = Tableau(76)
            Zs7 = Tableau(79)
            Zs8 = Tableau(82)
            Zs9 = Tableau(85)
            Zs10 = Tableau(88)
     
            Me.TBZT1.Text = Z1
            Me.TBZT2.Text = Z2
            Me.TBZT3.Text = Z3
            Me.TBZT4.Text = Z4
            Me.TBZT5.Text = Z5
            Me.TBZT6.Text = Z6
            Me.TBZT7.Text = Z7
            Me.TBZT8.Text = Z8
            Me.TBZT9.Text = Z9
            Me.TBZT10.Text = Z10
            Me.TBZT11.Text = Z11
            Me.TBZT12.Text = Z12
            Me.TBZT13.Text = Z13
            Me.TBZT14.Text = Z13
            Me.TBZT15.Text = Z15
            Me.TBZT16.Text = Z16
            Me.TBZT17.Text = Z17
            Me.TBZT18.Text = Z18
            Me.TBZT19.Text = Z19
            Me.TBZT20.Text = Z20
     
            Me.TBZTS1.Text = Zs1
            Me.TBZTS2.Text = Zs2
            Me.TBZTS3.Text = Zs3
            Me.TBZTS4.Text = Zs4
            Me.TBZTS5.Text = Zs5
            Me.TBZTS6.Text = Zs6
            Me.TBZTS7.Text = Zs7
            Me.TBZTS8.Text = Zs8
            Me.TBZTS9.Text = Zs9
            Me.TBZTS10.Text = Zs10
     
        End Sub
    Pour la fonction GetZoneTexte():
    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
     
    Public Function GetZoneTexte(ByVal Fichier As String)
     
     
            Dim LecteurFichier As New System.IO.StreamReader(Fichier)
            Dim Tableau(90) As String
            Dim i As Integer = 0
     
            While i < 90
     
                Tableau(i) = LecteurFichier.ReadLine.ToString
                i = i + 1
     
            End While
     
     
     
     
            LecteurFichier.Close()
     
            Return Tableau
     
        End Function

  2. #2
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2018
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 24
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Février 2018
    Messages : 34
    Points : 24
    Points
    24
    Par défaut
    En faite tout fonctionne bien. C'est juste que je visualisais l'interface sur Visual Studio et aucune case ne se remplissait ducoup. Je devais passé par le .exe de mon projet. (Pardon d'avoir créer une discussion pour rien )

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Fixer une valeur lors de son affectation
    Par d-Rek dans le forum Général JavaScript
    Réponses: 9
    Dernier message: 18/08/2008, 20h42
  2. SQL*LOADER : Charger une valeur négative
    Par coraziari_l dans le forum SQL
    Réponses: 1
    Dernier message: 24/01/2008, 12h22
  3. Remplacer une valeur lors d'un Insert . . . Select
    Par yobogs dans le forum Requêtes
    Réponses: 2
    Dernier message: 15/11/2007, 16h30
  4. Réponses: 2
    Dernier message: 01/12/2005, 11h19
  5. Réponses: 9
    Dernier message: 31/05/2005, 11h05

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo