Center recherche v2!!!!!!!!!

Soyez le premier à donner votre avis sur cette source.

Vue 3 793 fois - Téléchargée 373 fois

Description

Voila c'est la v2 de center recherche mais avec les bugs corriges et une options en +
1)Exemple: Quan dvous tappez le mot "sexe" le programme reagis et stop la recherche!
2)La fenetre ce ferme lentement avec un petite effet...

Source / Exemple :


Option Explicit
Dim i
Private Sub Command1_Click()
If (Text1.Text) = "sexe" Then
MsgBox "RECHERCHE INTERDIT AVEC CE MOT! ", vbCritical
Else
Shell "C:\Program Files\Internet Explorer\Iexplore.exe http://telecharger.01net.com/cgi-bin/Total.pl?searchstring=" + (Text1.Text) + "&system=" + (List1)
End If
End Sub

Private Sub Command2_Click()
frmSplash.Show
End Sub

Private Sub Command3_Click()
If (Text2.Text) = "sexe" Then
MsgBox "RECHERCHE INTERDIT AVEC CE MOT! ", vbCritical
Else
Shell "C:\Program Files\Internet Explorer\Iexplore.exe http://www.vbfrance.com/recherche.aspx?rech=" + (Text2.Text) + "&tr=" + (List2) + "&lng=1"
End If
End Sub

Private Sub Command4_Click()
If (Text3.Text) = "sexe" Then
MsgBox "RECHERCHE INTERDIT AVEC CE MOT! ", vbCritical
Else
If OP1 = True Then Shell "C:\Program Files\Internet Explorer\Iexplore.exe http://www.google.fr/search?q=" + (Text3.Text) + "&ie=UTF-8&oe=UTF-8&hl=fr&btnG=Recherche+Google&meta="
If OP1 = False Then Command4.Enabled = True
If OP2 = True Then Shell "C:\Program Files\Internet Explorer\Iexplore.exe http://www.google.fr/search?q=" + (Text3.Text) + "&ie=UTF-8&oe=UTF-8&hl=fr&btnG=Recherche+Google&meta=lr%3Dlang_fr"
If OP2 = False Then Command4.Enabled = True
If OP3 = True Then Shell "C:\Program Files\Internet Explorer\Iexplore.exe http://www.google.fr/search?q=" + (Text3.Text) + "&ie=UTF-8&oe=UTF-8&hl=fr&btnG=Recherche+Google&meta=cr%3DcountryFR"
If OP3 = False Then Command4.Enabled = True
If Text3.Text = "" Then MsgBox "Merci de précisez votre champ de recherche!"
End If
End Sub

Private Sub Form_Load()
List1.AddItem "windows"
List1.AddItem "Mac"
List1.AddItem "Palm"
List1.AddItem "Linux"
List1.AddItem "pocket-pc"
List1.Refresh
List2.AddItem "Tout"
List2.AddItem "Source"
List2.AddItem "Forum"
List2.AddItem "Livre"
List2.AddItem "rfc"
List2.AddItem "news"
List2.AddItem "faq"
List2.AddItem "dico"
List2.Refresh
End Sub

Private Sub HELP_Click()
MsgBox "En premier vous devez choisir votre site ou vous voulez cherche une chose...     2)Vous selectionner dans la list une des options seulons vos choix  3)Vous cliquez sur le bouton RECHERCHER,Puis là une fenetre s'ouvre..."
End Sub

Private Sub Form_Unload(Cancel As Integer)
    For i = 1 To 10000      'debut de boucle
    If Form1.Width = Form1.Width - 5 Then End
        Form1.Width = Form1.Width - 5        'diminusion de la largeur de la fenetre ici -5
        Form1.Height = Form1.Height - 5  'diminusion de la longeur de la fenetre ici -5
            If Form1.Height = "1000" Then        'je teste si la longeur est = a 1000 alors
                Exit Sub        'je quitte la procedure
            End If      'fin de la condition
    Next i      'fin de la boucle
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

stef2004
Messages postés
105
Date d'inscription
mercredi 4 février 2004
Statut
Membre
Dernière intervention
29 décembre 2005
-
j'ai fait un programme semblable. regardez-le ici:
http://membres.lycos.fr/stefcho2/vb/web finder/1.1/
kimmelf2
Messages postés
267
Date d'inscription
lundi 22 septembre 2003
Statut
Membre
Dernière intervention
27 novembre 2005
-
Pour ecrire dans un .ini :

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

WritePrivateProfileString "Sujet", "Clef", "Valeur", "c:mon_fic.ini"

Ca va ecrire dans c:mon_fic.ini :
[Sujet]
Clef=Valeur

De la meme maniere, tu as ReadPrivateProfileString mais j'ai pas ca syntaxe exacte.


Pour ecrire dans le registre :
SaveSetting "Application", "Clef", "Variable", "Valeur"
et evidemment GetSetting

Pour voire "mieux" ces fonctions, cree un nouveau projet VB avec l'assistant et normallement, tu trouvera des GetSetting dans un form_load et des SaveSetting dans un form_unload je crois

sinon tu as aussi
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
wsh.regwrite "HKEY_CURRENT_USER...Ce_Que_Tu_Veux_Comme_Nom_De_Clef...","valeur"r, "REG_SZ"
"REG_SZ", c'est un forat string
"REG_DWORD" pour un DWORD
"REG_BINARY" pour une valeur binaire

et toujours la fonction complementaire : wsh.regread
voila ....
cs_protect
Messages postés
87
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
15 mai 2011
2 -
c pas bete ce que tu dit j'ves essayer mais utiliser les registres ou les fichier ini je suis po trés fort pr sa alors j'ves voir
merci de ton commentaire..
kimmelf2
Messages postés
267
Date d'inscription
lundi 22 septembre 2003
Statut
Membre
Dernière intervention
27 novembre 2005
-
pourquoi tu ne presente pas qu'une seule zone de saisie qui irai faire les requetes dans lesmoteurs et presenterai un melange des resultats ?

sinon, a par la couleur (j'aime bien le bleu mais la .....) c'est pas mal.
resterais plus qu'a mettre des listes des precedentes recherches. c'est que de la combobox a la place des textbox.

tu peux sauver tes listes dans la base de registre ou dans des fichiers .ini
cs_protect
Messages postés
87
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
15 mai 2011
2 -
oui c mes gout et je trouve pas que c illisible!
(merci pr ton commentaire:d)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.