[VBasic] --> Faire entrer au lieu de cliquer sur ok --> problème

--> Faire entrer au lieu de cliquer sur ok --> problème [VBasic] - Programmation

Marsh Posté le 31-05-2002 à 20:30:35    

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 ??

Reply

Marsh Posté le 31-05-2002 à 20:30:35   

Reply

Marsh Posté le 31-05-2002 à 20:40:51    

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+


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 31-05-2002 à 21:10:46    

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

Reply

Marsh Posté le 31-05-2002 à 21:24:58    

:sol:  
 
 :hello:


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 31-05-2002 à 21:38:40    

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

Reply

Marsh Posté le 31-05-2002 à 21:48:41    

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

Reply

Marsh Posté le 31-05-2002 à 23:12:40    

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

Reply

Marsh Posté le 01-06-2002 à 13:03:11    

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.


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed