Catégorie: Astuces

Bonjour à tous,

Voilà une petite source qui peut être utile à certain projets.
Cette source vous permettra de comprendre et d'utiliser deux ComboBox pour charger les polices et les couleurs présentent sur votre système.

Un petit aperçu :

Téléchargement :

1. Executable
2. Les sources

Toutes questions ou remarques sont les bienvenues ou un simple merci aussi

Voici une bref explication pour réussir à faire de l'isométrie en VB.Net

La théorie :

» Lire la suite!

1 2 Page suivante »

Voilà après un certain nombre de recherches (infructueuses) j'ai enfin trouvé comment intercepter la connexion et la déconnexion d'un périphérique USB.

Merci WMI .

Code:
 
Imports System.Management 'A ajouter aussi dans vos référence projet 
 
Dim WithEvents ManagEvent As ManagementEventWatcher 
Dim QueryEvent As WqlEventQuery 
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
  QueryEvent = New WqlEventQuery("Select * from Win32_DeviceChangeEvent") 
  ManagEvent = New ManagementEventWatcher(QueryEvent) 
  ManagEvent.Start() 
End sub 
 
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing 
  ManagEvent.Stop() 
End Sub 
 
Private Sub ManagEvent_EventArrived(ByVal sender As Object, ByVal e As System.Management.EventArrivedEventArgs) Handles ManagEvent.EventArrived 
  'Evenement lors de la détection 
End Sub 


Voici une petite astuce pour contrôler la saisie d'un utilisateur dans un textbox (par exemple)

Le code a mettre dans votre projet :

L'évènement devant être associé a ce code est le KeyPress

Private Sub Textbox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox.KeyPress 
 
  Select Case e.KeyChar 
  Case "0" To "9" 
  e.Handled = False 
  Case "a" To "z" 
  e.Handled = False 
  Case "A" To "Z" 
  e.Handled = False 
  Case " " 
  e.Handled = False 
  Case Else 
  If (Char.IsControl(e.KeyChar)) = True Then 
  e.Handled = False 
  Else 
  e.Handled = True 
  End If 
 
  End Select 
  End Sub

Ce code vous permet de ne pas autoriser la saisie auprès de l'utilisateur de tous les caratères spéciaux tel que "@", "?", "&",...