Module mdMain Public myAppli As Appli Public ctray As NotifyIcon Public contextmenu As ContextMenuStrip Sub Main() contextmenu = New ContextMenuStrip contextmenu.Items.Add("Test") contextmenu.Items.Add("quit") ctray = New NotifyIcon ctray.Icon = My.Resources.Prix1 'Icones dans la ressource de l'appli ctray.Visible = True AddHandler ctray.MouseClick, AddressOf aff_menu End Sub Sub aff_menu() contextmenu.Show(Cursor.Position.X, Cursor.Position.Y) End Sub ... end Module
Imports MySql.Data.MySqlClient ' Importation de la classe MySQL Public Class Appli Public base As cl_mysql Public utilisateur As utilisateur Private query As String Private mvarRequetes As New Collection 'Moteur de l'application Private mtimer As New Timer Public Sub New(ByVal iduser As Integer, ByVal db As cl_mysql) base = db utilisateur = New utilisateur(Me, iduser) mtimer.Interval = 5000 mtimer.Enabled = True AddHandler mtimer.Tick, AddressOf Scruter End Sub Private Sub Scruter(ByVal sender As Object, ByVal e As System.EventArgs) ' se connecte a la BDD , vérifié les nouveau messages et les affiches End Sub
myAppli As Appliest construite lors du login utilisateur
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionWhile True : End While '' Tant que Vrai = Vrai...