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

VBA Discussion :

probleme textbox VB


Sujet :

VBA

  1. #1
    Membre à l'essai
    Inscrit en
    Octobre 2010
    Messages
    23
    Détails du profil
    Informations forums :
    Inscription : Octobre 2010
    Messages : 23
    Points : 14
    Points
    14
    Par défaut probleme textbox VB
    bonjour,
    je suis entrain de faire un programme en VBA;le role de ce programme est de lire un fichier log et d'afficher le contenu dans un textbox d'une fenetre.
    le programme tourne mais il n'affiche pas tout le contenu de fichier log .
    donc ma question est: est ce qu'il y a une longeur maximun que le textbox supporte?? si oui est ce que je peux faire une rusé
    s'il vous plais aider moi
    merci d'avance

  2. #2
    Membre à l'essai
    Inscrit en
    Octobre 2010
    Messages
    23
    Détails du profil
    Informations forums :
    Inscription : Octobre 2010
    Messages : 23
    Points : 14
    Points
    14
    Par défaut
    ceci est mon code
    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
    Private Sub CommandButton1_Click()
     
     
        Dim sFileName As String
        Dim iFileNum As Integer
        Dim sBuf As String
        Dim temp1 As String
        Dim temp2 As String
        temp1 = " "
     
     
        ' edit this:
        sFileName = "C:\testFile.log"
     
        ' does the file exist?  simpleminded test:
        If Len(Dir$(sFileName)) = 0 Then
            Exit Sub
        End If
     
        iFileNum = FreeFile()
        Open sFileName For Input As iFileNum
     
        Do While Not EOF(iFileNum)
            Line Input #iFileNum, sBuf
             temp2 = temp1
            temp1 = temp2 & sBuf
            ' now you have the next line of the file in sBuf
            ' do something useful:
            Debug.Print sBuf
        Loop
    TextBox1.Text = temp1
        ' close the file
        Close iFileNum
     
    End Sub

Discussions similaires

  1. gros probleme textbox
    Par lilsou dans le forum C#
    Réponses: 4
    Dernier message: 06/04/2009, 12h46
  2. probleme textbox vide.
    Par zakaroh dans le forum C#
    Réponses: 20
    Dernier message: 11/08/2008, 11h57
  3. probleme textbox dans un updatepanel
    Par akli2008 dans le forum ASP.NET
    Réponses: 1
    Dernier message: 02/06/2008, 03h04
  4. probleme textbox date
    Par lesafir dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 25/07/2007, 11h38

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