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

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_protect)