Affichage par défaut dans une inputbox (VB)

Combo -  
pascal.libert Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   3
 
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
Miguel
 
Salut,

tu peux essayer ça :

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