Affichage par défaut dans une inputbox (VB)

Fermé
Combo - 4 sept. 2001 à 12:19
pascal.libert Messages postés 9 Date d'inscription samedi 25 août 2001 Statut Membre Dernière intervention 15 octobre 2001 - 4 sept. 2001 à 23:09
Salut à tous!
Voici mon blème : j'aimerais afficher par défaut le début d'une adresse IP dans une inputbox de mon programme. J'ai déclaré l'inputbox et la saisie par défaut mais il subsiste une erreur que je n'arrive pas à résoudre. Voici mon code :

Private Sub Form_Load()
Dim fso, r, r1 As String
Dim fso2 As New FileSystemObject, drv As Drive, s As String
Dim Msg, Style, Title, Response, Default, MyString
Set fso = CreateObject("Scripting.FileSystemObject")
r = InputBox("Tapez le chemin de la machine et la lettre du lecteur que vous voulez examiner.")
Default = "\\10...\"
If r = "" Then
Exit Sub

L'inputbox s'affiche mais sans "\\10...\" dedans.
Les autres déclarations servent pour la suite de mon code, ne soyez donc pas surpris de les voir.
Merci de m'aider.
A voir également:

2 réponses

pascal.libert Messages postés 9 Date d'inscription samedi 25 août 2001 Statut Membre Dernière intervention 15 octobre 2001 3
4 sept. 2001 à 23:09
La définition de InputBox est
InpûtBox (Prompt, Title,Default,Xpos,Ypos, Helpfile, context)
avec Default valeur par defaut de l'input box.
Il faut l'appeler comme ça avec les espaces vides si nécessaire.
En espérant que ça aide.
A + Pascal
2
Salut,

tu peux essayer ça :

r = InputBox( "Tapez..." , "Un titre" , "\\10...\")
0