Accueil > Forum > > > > COMBOBOX | Récupération des infos d'un .ini
 COMBOBOX | Récupération des infos d'un .ini
mardi 30 août 2005 à 22:43:48 |
COMBOBOX | Récupération des infos d'un .ini
Richard92
|
SALUT à TOUS, Je fais un app où l'user doit enregistrer des infos dans un ini. Voilà un exemple de ini [Vol] Date = 30.08.2005 Heure = 22.40 [Agression] Date = 20.08.2005 Heure = 02.15 Je voudrais avoir une combobox avec comme choix : - Vol - Agression Et quand un choix est fait les variantes vont dans txt1 et txt2 Un code est bienvenu. Merci  |
|
mardi 30 août 2005 à 23:06:06 |
Re : COMBOBOX | Récupération des infos d'un .ini
Zlub
|
Salut,
voici Form1.frm
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 3 'Fixed Dialog
Caption = "Form1"
ClientHeight = 3180
ClientLeft = 45
ClientTop = 375
ClientWidth = 2850
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3180
ScaleWidth = 2850
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.TextBox txtAffiche
Height = 1485
Left = 368
MultiLine = -1 'True
TabIndex = 1
Top = 1155
Width = 2115
End
Begin VB.ComboBox cboTypeAffichage
Height = 315
Left = 368
Style = 2 'Dropdown List
TabIndex = 0
Top = 525
Width = 2115
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
cboTypeAffichage.AddItem ""
cboTypeAffichage.AddItem "Vol"
cboTypeAffichage.AddItem "Agression"
End Sub
Private Sub cboTypeAffichage_Click()
If cboTypeAffichage.ListIndex < 1 Then Exit Sub
txtAffiche.Text = "date : " & LireINI(cboTypeAffichage.Text, "Date")
txtAffiche.Text = txtAffiche.Text & vbCrLf & _
"Heure : " & LireINI(cboTypeAffichage.Text, "Heure")
End Sub
et ici le moduleINI.bas
Attribute VB_Name = "FichierINI"
Option Explicit
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Function LireINI(Entete As String, Variable As String) As String
Dim Retour As String
Dim fichier As String
fichier = App.Path & "\fichier.ini"
Retour = String(255, Chr(0))
LireINI = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable, "", Retour, Len(Retour), fichier))
End Function
Function EcrireINI(Entete As String, Variable As String, valeur As String) As String
Dim fichier As String
fichier = App.Path & "\fichier.ini"
EcrireINI = WritePrivateProfileString(Entete, Variable, valeur, fichier)
End Function
et enfin fichier.ini
[Vol]
Date = 30.08.2005
Heure = 22.40
[Agression]
Date = 20.08.2005
Heure = 02.15
Tu enregistres chacun dans un fichier texte que tu renommes avec le nom en gras et tu fais un projet avec ...
++
Zlub
|
|
mardi 30 août 2005 à 23:13:16 |
Re : COMBOBOX | Récupération des infos d'un .ini
Zlub
|
Salut,
zut tu voulais deux textbox ... bon b'hein tu remplaces Form1.frm par ceci :
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 3 'Fixed Dialog
Caption = "Form1"
ClientHeight = 3180
ClientLeft = 45
ClientTop = 375
ClientWidth = 5220
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3180
ScaleWidth = 5220
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.TextBox txt
Height = 1485
Index = 1
Left = 2625
MultiLine = -1 'True
TabIndex = 2
Top = 1155
Width = 2115
End
Begin VB.TextBox txt
Height = 1485
Index = 0
Left = 368
MultiLine = -1 'True
TabIndex = 1
Top = 1155
Width = 2115
End
Begin VB.ComboBox cboTypeAffichage
Height = 315
Left = 368
Style = 2 'Dropdown List
TabIndex = 0
Top = 525
Width = 2115
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
cboTypeAffichage.AddItem ""
cboTypeAffichage.AddItem "Vol"
cboTypeAffichage.AddItem "Agression"
End Sub
Private Sub cboTypeAffichage_Click()
Dim index As Integer
index = cboTypeAffichage.ListIndex
If index < 1 Then Exit Sub
txt(index - 1).Text = "date : " & LireINI(cboTypeAffichage.Text, "Date")
txt(index - 1).Text = txt(index - 1).Text & vbCrLf & _
"Heure : " & LireINI(cboTypeAffichage.Text, "Heure")
End Sub
++
Zlub
|
|
mercredi 31 août 2005 à 10:32:47 |
Re : COMBOBOX | Récupération des infos d'un .ini
Richard92
|
Non c pas ça lool. Ce que je veux : c que les options de la combo soit défini par lecture du .ini.
|
|
jeudi 1 septembre 2005 à 06:52:35 |
Re : COMBOBOX | Récupération des infos d'un .ini
Zlub
|
Réponse acceptée !
Salut,
Ah oki, j'avais pas capté ... Bon alors, j'espere que c'est ça cette fois ...
Private Sub Form_Load()
Dim F As Integer
F = FreeFile
Dim tmp As String
cboTypeAffichage.AddItem ""
Open App.Path & "\fichier.ini" For Input As #F
Do While Not EOF(F)
Input #F, tmp
If InStr(1, tmp, "[") = 1 Then cboTypeAffichage.AddItem Mid(tmp, 2, Len(tmp) - 2)
Loop
Close #F
End Sub
Private Sub cboTypeAffichage_Click()
Dim index As Integer
index = cboTypeAffichage.ListIndex
If index < 1 Then Exit Sub
txt(index - 1).Text = "date : " & LireINI(cboTypeAffichage.Text, "Date")
txt(index - 1).Text = txt(index - 1).Text & vbCrLf & _
"Heure : " & LireINI(cboTypeAffichage.Text, "Heure")
End Sub
++
Zlub
|
|
jeudi 1 septembre 2005 à 10:46:58 |
Re : COMBOBOX | Récupération des infos d'un .ini
Richard92
|
ben je pense que ça va allez. Réponse acceptée
|
|
Cette discussion est classée dans : combobox, ini, récupération, infos, vol
 Répondre à ce message
 Sujets en rapport avec ce message
Combobox & Fichier ini [ par chalmi ]
Voila mon probleme, je ne suis pas encore un grand developpeur VB, mais je voudrais afficher dans une premiere combobox les valeurs des sections de mo
Récupération d'infos dans des fichiers HTML ? [ par Mitch ]
J'aimerais connaître la meilleure méthode pour récupérer des informations dans des fichiers HTML. Entre balises et après des Meta.Merci d'avance pour
Taille d'un fichier INI !!! [ par gge ]
Coucou !!J'utilise un fichier ini pour stocker des infos... le pb c'est que j'ai bcp d'infos !!!Le fichier ne peut pas dépasser 64 ko.j'utilise WriteP
Récupération infos saisies dans un exécutable [ par zombapsa ]
J'ai une appli (exécutable mais pas les sources) ou il y a plein de zones de texte et de cases à cocher.Le but du jeu est de récupérer les infos de ce
Afficher infos dans une combobox selon un choix dans une autre... [ par crashtoy ]
Je suis un pire débutant en VB et je suis chargé pour mon stage de réaliser une petite appli sur pocket PC (grâce à eVB) pour le conseil général de la
Réactualisation des données [ par scoubidou79 ]
bonjour à tous,J'ai réussi a afficher dans une combobox des infos venant d'une base de données, mais lorsque j'enregistre des infos dans ma base, ma l
Récupération d'un .txt dans un comboBox [ par kulls ]
bonjour,j'espère qu'une bonne ame pourras m'aiderj'aimerais pouvoir avoir dans un listbox, le contenu d'un fichier texte. je m'expliquej'aimerais affi
utiliser un variant pour remplir un combobox multicolonnes [ par hcadieu ]
Bonjour a tous :J'ai un ptit soucis: je recois un variant DatavarInt d'une fonction qui contient des infos classées en séquences de neuf infos comme
recuperer des infos depuis un fichier ini [ par audrey08 ]
Bonjour à tous et à toutes. J'ai bien cherché sur le site mais je ne vois pas de solution à mon problème. Tout d'abord j'ai créé un fichier INI qui es
 Livres en rapport
|
Derniers Blogs
 PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc [HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Très bonne après-midi passée lors cette conférence avec le W3C, organisée par L' Inria sur les nouveaux standards, ce Mardi 14 Février, on sent vraiment que çà bosse au W3C, et l'avenir est très très prometteur pour le HTML5, notamment ...
Cliquez pour lire la suite de l'article par Gio GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|