CamerNet - Visual Basic

Des astuces utiles pour prendre des bonnes habitudes lorsque vous programmez en vb !

DIVERS

[Astuce: Faire Clignoter Une Fenêtre]

Faire clignoter le titre d'une fenêtre dans la barre des tâches permet souvent de rappeler l'utilisateur que votre prog est entrain d'effectuer une tâche à laquelle il doit intervenir [Le clignotement est utilisé par de nombreuses applications Microsoft]

Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private Declare Function GetCaretBlinkTime Lib "user32" () As Long

'L'API GetCaretBlinkTime retourne l'interval du flash.
'Ajoutez ensuite un Timer dans votre feuille.

Private Sub Form_Load()
'Délai du Timer = Délai du Flash
Timer1.Interval = GetCaretBlinkTime
End Sub

Private Sub Timer1_Timer()
Static bClig As Boolean
bClig = Not bClig
FlashWindow Form1.hwnd, bClig
End Sub

Si vous souhaitez personnaliser le flash (nombre de flash, titre seulement, icone,...), alors utilisez l'API FlashWindowEx.

INTERNET/RESEAUX

[Astuce: Déconnecter le PC d'Internet]

Déconnecter votre PC d'Internet: insérez l'API suivante dans le code:

Private Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long

Ensuite, quelque part mettez ceci:

If InternetAutodialHangup(0&) then
MsgBox "La Déconnection a réussi !"
End If

ASTUCES WINDOWS [Inutile de Vous fatiguer avec les API !!]

COMMANDE	DESCRIPTION
Shell "rundll32 user,wnetconnectdialog", vbNormalFocus	Se connecter à un lecteur réseau
Shell "rundll32 user,wnetdisconnectdialog", vbNormalFocusnetdisctdialog	Se déconnecter d'un lecteur réseau
Shell "rundll32 rnaui.dll,RnaWizard", vbNormalFocusnetdis	Connection au réseau
Shell "rundll32 shell32,Control_RunDLL", vbNormalFocusnetdis	Ouvre le Panneau de Configuration
Shell "rundll32 sysdm.cpl,InstallDevice_Rundll", vbNormalFocusnetdis	Installer un logiciel non Plug & Play
Shell "rundll32 shell32,Control_RunDLL desk.cpl", vbNormalFocus	Ouvre le Module Affichage du P.C.
Shell "rundll32 msprint2.dll,RUNDLL_PrintTestPage", vbNormalFocus	Page de Test d'impression
Shell "rundll32 shell,shellexecute", vbNormalFocus	Ouvre l'explorateur
Shell "rundll32 shell32,SHExitWindowsEx -1", vbNormalFocus	Redémarrer l'Explorer de Windows 98
Shell "rundll32 shell32,OpenAs_RunDLL", vbNormalFocus	Ouvrir avec...
Shell "rundll32 shell32,ShellAboutA [Ecrire ici]", vbNormalFocus	Enregistrer/ressources
Shell "rundll32 shell32,SHFormatDrive", vbNormalFocus	Formater une disquette
Shell "rundll32 diskcopy,DiskCopyRunDll", vbNormalFocus	Copier une disquette
Shell "rundll32 user,setcursorpos", vbNormalFocus	Place le curseur en haut à gauche
Shell "rundll32 user,repaintscreen", vbNormalFocus	Actualise l'affichage
Shell "rundll32 user,cascadechildwindows", vbNormalFocus	Bureau en Cascade
Shell "rundll32 user,tilechildwindows", vbNormalFocus	Bureau en Mosaic
Shell "rundll32 shell32,SHExitWindowsEx 2", vbNormalFocus	Démarre Windows 98
Shell "rundll32 shell32,SHExitWindowsEx 0", vbNormalFocus	Redémarre Windows 98
Shell "rundll32 shell32,SHExitWindowsEx 1", vbNormalFocus	Quitter Windows 98
Shell "rundll32 user,exitwindows", vbNormalFocus	Quitter Windows
Shell "rundll32 krnl386.exe,exitkernel", vbNormalFocus	Quitter Windows (Radical)
Shell "rundll32 user,disableoemlayer", vbNormalFocus	Arrête le Pc

Page 1/2 - PAGE SUIVANTE >>

[Home] [Actualités] [Trucs & Astuces] [Astuces Windows] [ActiveX-Ocx/Dll] [Articles] [Codes Sources] [VB Games] [Fichiers Sons] [Fichiers Icônes] [Programmes & Sources] [Mailing-List] [Divers] [A Propos]