problème

Recherche :

Dernière réponse
Sujet : [VBasic] --> Faire entrer au lieu de cliquer sur ok --> problème
Harkonnen	Dans ton Command1_Click(), tu n'initialises nulle part la variable "url", donc tu refiles un paramètre bidon à Navigate. Si tu veux que ça marche, tu dois d'abord initialiser "url" avec une chaine par défaut.

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

Harkonnen

Dans ton Command1_Click(), tu n'initialises nulle part la variable "url", donc tu refiles un paramètre bidon à Navigate.
Si tu veux que ça marche, tu dois d'abord initialiser "url" avec une chaine par défaut.

william10

c'est bon j'ai trouvé son érreur @

sonocorsu

harkonnen ca serait simpa que tu m'expliques meme si tu vois le message demain je voulais savoir parce william et moi on voudrait ce faire un navigateur simpa
Merci d'avance

sonocorsu

petit prob a signaler a mister le boss de visual basic
il y a un truc que je capte pas
tout marchait bien et depuis que j'ai defini mon bouton ok comme t'as dit ca valide le lien mais ca me met impossible d'afficher la page alors que la page de demarage il la charge et je suis connecté voila mon prog:

Private Sub Form_Load()
Web.Navigate ("www.telecharger.com" )
Command1.Default = True
Text2.Visible = False
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Visible = False
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Visible = False
Text2.Visible = True
End Sub

Private Sub Text2_Change()
Dim url As String
url = Text2.Text
End Sub

Private Sub Command1_Click()
Web.Navigate (url)
End Sub

Harkonnen

:sol:

:hello:

william10

toujours présent, toujours aussi efficace, comment te remercier... :)

Harkonnen

william10 a écrit a écrit :

Private Sub Form_Load()

web.Navigate ("www.free.fr" )
boutonOK.Default = True

End Sub

boutonOK = ID de ton bouton

A+

william10

Voilà j'ai fait un soft qui se connecte a un site ken on rentre une adresse dans une boite de text. Le problème est que ça marche comme ça.

1) on tape une adresse dans la case appropriée et ensuit pour aller a cette adresse il faut faire OK

moi j'aimerait que l'on puisse faire entrer au lieu de cliquer sur ok.
En fait le fait de taper entrer quand je suis dans la zone de text valideré le bouton ok.

J'ai esayer dans la fonction zone de texte de metre keypress mais j'arrive pas a spécifier que ça dois etre le bouton ok..

Kelkun pourrait m'aider ??

Merci

pour l'istant le programme est construit comme ceci:

---------------------------------------------------

Private Sub Command1_Click()

Dim adresse As String
adresse = Text1.Text
web.Navigate (adresse)

End Sub
----------------------------------------------------
Private Sub Form_Load()

web.Navigate ("www.free.fr" )

End Sub

que faut-il rajouter ??