Discussion :

[makia42]

Bonjour tout le monde,

Je dévellope une interface graphique pour gérer des capteurs à distance, j'ai donc créer un répertoire contenant tous mes capteurs que je peut ensuite séléctionner dans une fenêtre dont voici le 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
36
37
38
39
40
41
42
43
Private Type EnrCapteur
  cType As String * 1
  cUser As String * 5
  cAlive As String * 1
  cStatus As String * 1
  X As String * 5
  Y As String * 5
  TStamp As String * 15
End Type
 
Public capteurdir As String
 
Private Sub Créer_Click()
frmNewCapt.Show
End Sub
 
Private Sub Form_Load()
Dim captdata As EnrCapteur
Dim capteurName As String
Dim capteurpath As String
 
' Display the available capteur names
capteurName = Dir(capteurdir, vbDirectory)   ' Retrieve the first entry.
Do While capteurName <> ""   ' Start the loop.
      ' Use bitwise comparison to make sure MyName is a directory.
      'If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
         ' Display entry only if it's a directory.
       '  MsgBox (MyName)
      'End If
   If (Left$(capteurName, 1) <> ".") Then
       capteurpath = capteurdir + capteurName
       Open capteurpath For Random Access Read As #7 Len = Len(captdata)
       Get #7, 1, captdata
       Close #7
'       If (Trim(captdata.cUser) = "") Then
              ListCapt.AddItem (capteurName)
       'End If
 
 
   End If
   capteurName = Dir()   ' Get next entry.
Loop
End Sub

L'affichage da ma liste de capteur s'effectue bien, seulement je voudrais ajouter une saisie automatique dans des textbox (Type, User, Mode, Status, XY ..) , comment doit je procéder pour lire les données du fichier séléctionner dans une textbox et les afficher ensuite automatiquement dans d'autres textbox??

Je vous remercie pour toutes réponses !

[iclic]

Bonjour,

Code :

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

1
2
3
4
 
Textbox.Text = Données_du_fichier
 
'idem pour d'autres Textbox

A+