NOTIFYICON

Public Class Form1

    Public url(100) As String
    Public texte(100) As String
    Public categorie(100) As Integer
    Public p As Integer
    Public numchaine As Integer
    

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'on empêche le formulaire principal d'aller dans la barre de tâche
        Me.Hide()
        NotifyIcon1.Visible = True
        NotifyIcon1.Icon = My.Resources.Notify
        NotifyIcon1.Text = "Clic Droit"
        'Afficher les URL
        Dim fichier As String
        Dim champs(3) As String
        Dim SubItem As ToolStripMenuItem
        fichier = My.Application.Info.DirectoryPath & "\Favoris.txt"
        Dim monStreamReader As New IO.StreamReader(fichier) 'Stream pour la lecture
        Dim ligne As String ' Variable contenant le texte de la ligne
        p = 0
        Do
            ligne = monStreamReader.ReadLine
            If (ligne > "") Then
                champs = ligne.Split(",")
                texte(p) = champs(0)
                url(p) = champs(1)
                categorie(p) = champs(2)
                Select Case categorie(p)
                    Case 0 ' URL
                        SubItem = New ToolStripMenuItem(champs(0), Nothing, Nothing, "M" & p)
                        AdresseToolStripMenuItem.DropDownItems.Add(SubItem)
                        AddHandler SubItem.Click, AddressOf AdresseToolStripMenuItem_subitem_Click
                    Case 1 ' Fichiers
                        SubItem = New ToolStripMenuItem(champs(0), Nothing, Nothing, "M" & p)
                        FichierToolStripMenuItem.DropDownItems.Add(SubItem)
                        AddHandler SubItem.Click, AddressOf FichierToolStripMenuItem_subitem_Click
                End Select
                p += 1
            End If
        Loop Until ligne Is Nothing
        monStreamReader.Close()
        'on enlève le formulaire principal de la barre de tâche
        Me.Hide()

    End Sub

    Private Sub OuvrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirToolStripMenuItem.Click
        ' On ouvre le formulaire Ajoutadresse
        Ajoutadresses.ShowDialog()
    End Sub
    Private Sub AdresseToolStripMenuItem_subitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AdresseToolStripMenuItem.Click
        'On ouvre l'adresse URL
        Call cliquersurmenu(sender.text)
        Me.AdresseToolStripMenuItem.Enabled = True
        'on enlève le formulaire principal de la barre de tâche
        Me.Hide()
    End Sub
    Public Sub cliquersurmenu(ByVal sender)
        Dim o As Integer
        For o = 0 To p - 1
            If texte(o) = sender Then
                numchaine = o ' On enregistre le numéro de chaine pour le mettre en favoris
                System.Diagnostics.Process.Start(url(o)) 'ouvre le chemin de l'url
            End If
        Next

    End Sub
    Private Sub FichierToolStripMenuItem_subitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FichierToolStripMenuItem.Click
        'On ouvre l'adresse fichiers
        Call clicksurmenu(sender.text)
        Me.FichierToolStripMenuItem.Enabled = True
        'on enlève le formulaire principal de la barre de tâche
        Me.Hide()
    End Sub

    Public Sub clicksurmenu(ByVal sender)
        Dim o As Integer
        For o = 0 To p - 1
            If texte(o) = sender Then
                numchaine = o ' On enregistre le numéro de chaine pour le mettre en favoris
                OpenWith(url(o)) 'ouvre le chemin du fichier
            End If
        Next

    End Sub
    Private Sub LancerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LancerToolStripMenuItem.Click
        'On met l'exe dans la clé du registre
        Demarrage.IsRunningOnStartup("NotifyIcon")
        Call Demarrage.RunAtStartUp("NotifyIcon", My.Application.Info.DirectoryPath & "\NotifyIcon.exe")
        MsgBox("Sera opérationnel au prochain démarrage de Windows")
    End Sub

    Private Sub DeletToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeletToolStripMenuItem.Click
        On Error Resume Next
        'On enlève l'exe de la clé du registre
        Demarrage.IsRunningOnStartup("NotifyIcon")
        Call Demarrage.StopRunningStartUp("NotifyIcon")
        MsgBox("Supprimé des applications lancées au démarrage de Windows")
    End Sub

    Private Sub QuitterToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem1.Click
        'On ferme le programme en demandant une réponse
        Dim answer As MsgBoxResult
        answer = MsgBox("Avez-vous terminé?", MsgBoxStyle.YesNo)
        If answer = MsgBoxResult.Yes Then
            MsgBox(" à Bientôt")
            ' on enlève l'icône de la zone de notification
            NotifyIcon1.Visible = False
            End
        End If

    End Sub


End Class

Télécharger le zip

26 octobre 2007 16:50:48 :

J'ai supprimé une répétition qui ne servait à rien et j'ajoute le code

27 octobre 2007 15:16:48 :

J'ai ajouté un carnet d'adresse avec possibilité d'ouvrir et d'enregistrer les adresses.Pour enregistrer, le formulaire se met dans la barre de tâche, il suffit de cliquer pour l'ouvrir et faire un copier coller vers l'icône, dès que l'on est sur le net il disparaît.

28 octobre 2007 07:38:54 :

Amélioration:On ouvre la page web directement du Carnet d'adresse, plus de copier-coller pour ouvrir. L'enregistrement est inchangé. On utilise "NotifyIcon" comme les Favoris de Google sauf qu'il se trouve dans la zone de notification.J'ai mis une notice dans le zip

28 octobre 2007 07:43:02 :

J'ai mis la nouvelle source

07 novembre 2007 07:53:09 :

Orthographe et capture

04 février 2008 12:17:38 :

Modification de la source pour la simplifier

25 février 2008 15:11:42 :

Ajout de la suppression d'un favori en ouvrant le fichier txt, grâce au snippet "Ouvrir avec" de "sebmafate" que je remercie.

25 février 2008 15:11:50 :

Ajout de la suppression d'un favori en ouvrant le fichier txt, grâce au snippet "Ouvrir avec" de "sebmafate" que je remercie.

14 avril 2008 17:16:55 :

Ajout du code en VBA Excel