|
|
|
|
Bonjour,
Comme le champs de titre du message est un peu court , je le réecris en entier :
Comment récuperer des paramètres utilisateur enregistrés dans un fichier texte ?
Explication :
Mon programme est un navigateur internet, il possède deux form, la Form1 qui sert à naviguer proprement dit, et une Form2 qui sert à modifier les Options d'utilisateur...Dans cette fameuse Form2, j'ai mis des champs textes et les options que l'utilisateur doit pouvoir modifier. Exemple : La page d'accueil du navigateur.
Ces informations sont conservées dans un fichier texte à la racine de la partition "c:/".
Comme ceci :
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fso, Fichier
fso = CreateObject("Scripting.FileSystemObject")
Fichier = fso.CreatetextFile("C:\Parametres aWeb.txt", True)
Fichier.WriteLine("Page d'accueil :" & TextBox1.Text)
If RadioButton3.Checked = True Then
Fichier.WriteLine("Langue : Nederlands")
ElseIf RadioButton2.Checked = True Then
Fichier.WriteLine("Langue : English")
ElseIf RadioButton1.Checked = True Then
Fichier.WriteLine("Langue : Français")
End If
Fichier.Close()
Me.Hide()
End Sub
End Class
Vous aurez donc devinez que cette Form2 possède 3 radiobutton pour le choix de la langue et une textbox pour le choix de la page d'accueil.
Ma question :
Comment faire pour appliquer au navigateur ces options utilisateur ?
Configuration: Windows XP Internet Explorer 7.0 Microsoft Visual Basic 2008 Express Edition
Des fois on trouve:
|
C'est du VB? .Net, 6, VBA ou VBS?
Dim fso, Fichier
Dim pageaccueil, langue
fso = CreateObject("Scripting.FileSystemObject")
Fichier = fso.CreatetextFile("C:\Parametres aWeb.txt", False)
pageaccueil = Fichier.ReadLine()
langue = Fichier.ReadLine()
pageaccueil = mid(len("Page d'accueil :"), len(pageaccueil) - len("Page d'accueil :"))
langue = mid(len("Langue : "), len(langue) - len("Langue : "))
J'ai pas éssayé, mais cela doit marcher. |