RECHERCHER SUR INTERNET LE CONTENU TEXTUEL DU CONTROL AYANT LE FOCUS DANS VOTRE FORM

Option Explicit

'FORM de test pour ce programme
'PERMET de rechercher le texte contenu dans le contrôle sélectionné
'sur différents moteur du Web


'//APIs
'API permettant de lancer le navigateur par défaut
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


'//VARIABLES
Private sURLrecherche As String    'contient l'URL du moteur perso
Private engineSearchEngine As SearchEngine 'contient le navigateur sélectionné


'//ENUMs
'contient les différents moteur possibles
Private Enum SearchEngine
    Google = 1
    Altavista = 2
    Live = 3
    Personnel = 4
End Enum

     
Private Sub Form_Load()
'définit les variables par défaut
Dim x As Long

    'par défaut, le moteur perso est google.fr
    sURLrecherche = "http://www.google.fr/search?hl=fr&q=%22[PROCESS]%22&btnG=Recherche+Google&meta="
    
    'par défaut, le moteur de recherche est google.com
    engineSearchEngine = Google
    
    'ajout des élements du ListView
    With ListView1.ListItems
        For x = 1 To 30
            .Add Text:="Element" & CStr(x) & " Listview"
        Next x
    End With
    
    'ajout des éléments du Treeview
    With TreeView1
        .Nodes.Add , tvwChild, "Root", "Tree1"
        .Nodes.Add , tvwChild, "Root2", "Tree2"
        .Nodes.Add "Root2", tvwChild, "n1", "Tree3"
        .Nodes.Add "Root2", tvwChild, "n2", "Tree4"
        .Nodes.Add "n2", tvwChild, "n21", "Tree5"
        .Nodes.Add "n2", tvwChild, "n22", "Tree6"
        .Nodes.Add "n22", tvwChild, "n221", "Tree7"
        .Nodes.Add "n221", tvwChild, "n2211", "Tree8"
        .Nodes.Add "n22", tvwChild, "n222", "Tree9"
        .Nodes.Add "n2", tvwChild, "n31", "Tree10"
        .Nodes.Add "Root2", tvwChild, "n3", "Tree11"
    End With
    'expand les éléments du treeview
    For x = 1 To 11
        TreeView1.Nodes(x).Expanded = True
    Next x

End Sub

Private Sub mnu_altavista_Click()
'change les checkboxes
    Me.mnu_google.Checked = False
    Me.mnu_altavista.Checked = True
    Me.mnu_define.Checked = False
    Me.mnu_live.Checked = False
    
    engineSearchEngine = Altavista
End Sub

Private Sub mnu_define_Click()
Dim s As String

    'change les checkboxes
    Me.mnu_google.Checked = False
    Me.mnu_altavista.Checked = False
    Me.mnu_define.Checked = True
    Me.mnu_live.Checked = False
    
    'définit le moteur de recherche
    s = "Définissez l'URL par défaut de votre moteur personnalisé" & _
    vbNewLine & "Mettez [TEXT] à la place de la zone de la string" & _
    vbNewLine & "réservée au mot à rechercher" & _
    vbNewLine & "Exemple : http://www.google.fr/search=%22[TEXT]%22"
    
    sURLrecherche = InputBox(s, "Définir un site de recherche personnalisé")
    
    engineSearchEngine = Personnel
End Sub

Private Sub mnu_end_Click()
    Unload Me
    End
End Sub

Private Sub mnu_go_for_search_Click()

'lance la recherche

Dim sURL As String  'contient l'URL finale de recherche
Dim sText As String 'texte à rechercher


    'recherche de l'item sélectionné
    'récupère son texte en fonction de la nature du contrôle
    
    If TypeOf Me.ActiveControl Is TextBox Then
        sText = Me.ActiveControl.Text
    ElseIf TypeOf Me.ActiveControl Is ListView Then
        sText = Me.ActiveControl.SelectedItem.Text
    ElseIf TypeOf Me.ActiveControl Is TreeView Then
        sText = Me.ActiveControl.SelectedItem.Text
    ElseIf TypeOf Me.ActiveControl Is CommandButton Then
        sText = Me.ActiveControl.Caption
    ElseIf TypeOf Me.ActiveControl Is CheckBox Then
        sText = Me.ActiveControl.Caption
    ElseIf TypeOf Me.ActiveControl Is OptionButton Then
        sText = Me.ActiveControl.Caption
    ElseIf TypeOf Me.ActiveControl Is ComboBox Then
        sText = Me.ActiveControl.Text
    ElseIf TypeOf Me.ActiveControl Is DriveListBox Then
        sText = Me.ActiveControl.Drive
    ElseIf TypeOf Me.ActiveControl Is ListBox Then
        sText = Me.ActiveControl.Text
    ElseIf TypeOf Me.ActiveControl Is DirListBox Then
        sText = Me.ActiveControl.Path
    ElseIf TypeOf Me.ActiveControl Is FileListBox Then
        sText = Me.ActiveControl.FileName
    ElseIf TypeOf Me.ActiveControl Is TabStrip Then
        sText = Me.ActiveControl.SelectedItem.Caption
    End If



    
    If engineSearchEngine = Personnel Then
    
        'alors c'est un navigateur perso
        sURL = Replace(sURLrecherche, "[TEXT]", sText)
        
    Else
    
        'un des navigateurs prédéfinis
        Select Case engineSearchEngine
            Case Google
                'google.com
                sURL = "http://www.google.com/search?hl=en&q=%22" & sText & "%22"
            Case Altavista
                'altavista.com
                sURL = "http://www.altavista.com/web/results?itag=ody&q=%22" & sText & "%22&kgs=0&kls=0"
            Case Live
                'live.com
                sURL = "http://beta.search.live.com/results.aspx?q=%22" & sText & "%22&mkt=fr-fr&FORM=LVSP&go.x=0&go.y=0"
        End Select
        
    End If
    
    'lance le navigateur internet par défaut
    ShellExecute Me.hwnd, "open", sURL, ByVal 0&, 0&, 1
    
End Sub

Private Sub mnu_google_Click()
'change les checkboxes
    Me.mnu_google.Checked = True
    Me.mnu_altavista.Checked = False
    Me.mnu_define.Checked = False
    Me.mnu_live.Checked = False
    
    engineSearchEngine = Google
End Sub

Private Sub mnu_live_Click()
'change les checkboxes
    Me.mnu_google.Checked = False
    Me.mnu_altavista.Checked = False
    Me.mnu_define.Checked = False
    Me.mnu_live.Checked = True
    
    engineSearchEngine = Live
End Sub

Télécharger le zip