AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 12 04:22:40
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

15 commentaire(s) de patrick sur des sources sur tout CodeS-SourceS

Le : 26/03/2008 10:23:19
Source : SYSTRAY ET PLANTAGE D'EXPLORER.EXE
Super, ce problème devenait de plus en plus génant dans les applis.

Sinon, autre petit truc au niveau du menu que l'on affiche lors du click sur l'icon dans dans le systray : par defaut, une fois affiché, il faut absolument cliquer sur un item du menu pour le faire disparaitre. Pour réglé ce problème, dans la rocedure Form_MouseMove, ajouter "SetForegroundWindow Me.Hwnd" juste avant l'appel de "Me.PopupMenu Me.MnuSysTray..."

Exemple :

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Select Case X / Screen.TwipsPerPixelX
     Case BOUTON_CLICK_DROIT:
        Call MnuHelp_Click
     Case BOUTON_CLICK_GAUCHE:
        SetForegroundWindow Me.Hwnd
        Me.PopupMenu Me.MnuSysTray, , , , Me.MnuHelp
  End Select
End Sub


A+ Patrick

Le : 07/03/2007 10:57:36
Source : SAISIR DANS UNE COMBO BOX
Petite remarque au débutant :

Dans <dim pos,x as long>, <pos> n'est pas déclaré en tant que long, mais en tant que variant ! (type par defaut dans vb)

il faut écrire soi <Dim pos&, x as long> soi <Dim pos as long, x as long> (le caractère & permet de spécifier "historiquement" le type)

A+ Patrick

Le : 07/03/2007 10:46:36
Source : SAISIR DANS UNE COMBO BOX
Salut,

Bonne astuce, et simple de surcrois... une seul remarque :

en remplacant < if ucase(left(combo1.list(x),pos))=ucase(combo1.text) then >
          par < if StrComp(Left(combo1.List(x),pos), Combo1.Text, vbTextCompare) = 0 Then>

tu gères même les carcatères spéciaux...

A+ Patrick

Le : 21/07/2006 15:22:56
Source : SUDOKU MANIA
Pas mal du tout...

Pour executer en VB5, sufit de retirer : (Avant de charger le projet, via NotePad)

    A la fin du fichier Sudoku.vbp :

      Retained=0

    Au debut du fichier Sudoku.vbp : (entre le BEGIN et le END

      Persistable = 0  'NotPersistable
      DataBindingBehavior = 0  'vbNone
      DataSourceBehavior = 0   'vbNone
      MTSTransactionMode = 0   'NotAnMTSObject

Sinon, petites améliorations possibles au niveau du jeux :

      - une fonction "mnuJeuQuitter_Click()" pour le menu "Jeu/Quitter" :-o !
      - Des "TipToolText" sous les boutons.
      - Un "Drag and Drop" des chiffres dans les cases. (facon solitaire !)
      - Un mode "brouillon" (deux couleurs de saisie, avec un bouton validé/Effacé Brouillon)
      - Un bouton AIDE qui donne un chiffre lorsque l'on est bloqué.

Bravos

Patrick MOIRE
http://jeux.cartes.free.fr

Le : 17/07/2006 16:17:38
Source : OCX POUR GÉRER LE SYSTRAY SUPER FACILEMENT !!! SI, SI JETEZ UN OEIL VOUS VERREZ
C'est ce que fait le bout de code que j'ai mis : il calcul la température CPU via "ACPI", puis "l'écrit" dans un icon. L'icon est alors "envoyé" au Systray.

Bon... la limite d'un texte dans un icon, c'est deux caractères maxi ! (16x16)

A+ Patrick

Le : 12/07/2006 23:25:11
Source : OCX POUR GÉRER LE SYSTRAY SUPER FACILEMENT !!! SI, SI JETEZ UN OEIL VOUS VERREZ
j'ai un bout de code qui affiche la température CPU dans l'icon. Tous le code n'est pas de moi...

Le principe est d'utilisé un control ImageList, et de modifier l'une des images.

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Begin VB.Form Form1
   BackColor       =   &H80000009&
   Caption         =   "Form1"
   ClientHeight    =   2610
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   3345
   LinkTopic       =   "Form1"
   ScaleHeight     =   2610
   ScaleWidth      =   3345
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Interval
      Interval        =   1000
      Left            =   1800
      Top             =   240
   End
   Begin VB.PictureBox Pictext
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   240
      ScaleHeight     =   16
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   16
      TabIndex        =   0
      Top             =   240
      Width           =   240
   End
   Begin VB.Label Label1
      Caption         =   "Label1"
      Height          =   255
      Left            =   840
      TabIndex        =   1
      Top             =   1440
      Width           =   1575
   End
   Begin ComctlLib.ImageList imgList
      Left            =   720
      Top             =   240
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      MaskColor       =   12632256
      _Version        =   327682
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Type NOTIFYICONDATA
    cbSize As Long
    hWnd As Long
    uId As Long
    uFlags As Long
    ucallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_RBUTTONUP = &H205

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Dim IconeTray As NOTIFYICONDATA
Dim wbemServices As Object

'=====================================================================================================
'  Initialisation
'=====================================================================================================

Private Sub Form_Load()
  
   '- - - Connexion a WMI
  'On Error GoTo WMI_CONNECT
      Set wbemServices = GetObject("winmgmts:" & "\\localhost\root\wmi")
    On Error GoTo 0
  
   '- - - Initialisation Icon pour Systray
    imgList.ListImages.Add , , Pictext.Image
    imgList.MaskColor = Pictext.BackColor
    imgList.UseMaskColor = True
        
   '- - - Creation du Systray
    IconeTray.cbSize = Len(IconeTray)
    IconeTray.hWnd = Me.hWnd
    IconeTray.uId = 1&
    IconeTray.uFlags = NIF_TIP Or NIF_MESSAGE
    IconeTray.ucallbackMessage = WM_LBUTTONDOWN
    IconeTray.szTip = "Essai NotifyIcon" & Chr(0)
    Shell_NotifyIcon NIM_ADD, IconeTray

   '- - - valeur implicite
    Call Interval_Timer

End Sub

Private Sub Interval_Timer()

  Dim wbemObjectSet As Object
  Dim wbemObject As Object
  
   '- - - calcul Temperature
    Interval.Enabled = False
    Set wbemObjectSet = wbemServices.InstancesOf("MSAcpi_ThermalZoneTemperature")
     For Each wbemObject In wbemObjectSet
       Me.Caption = CInt(((wbemObject.CurrentTemperature - 2732) / 10)) & Chr(176) & "C"
      'Me.caption = CInt(((wbemObject.CurrentTemperature - 2732) / 10) * (9 / 5) + 32) & Chr(176) & "F"
       Me.Label1 = wbemObject.CurrentTemperature
     Next
    Set wbemObjectSet = Nothing
    Interval.Enabled = True
  
   '- - - calcul nouvelle images
    imgList.ListImages.Remove 1
     Pictext.Cls
     Pictext.Print Val(Me.Caption)
     Pictext.Line (2, 3)-(2, 11), , B
     Pictext.Circle (2, 13), 2
    imgList.ListImages.Add , , Pictext.Image
    
   '- - - Mise a jour SysTray
    IconeTray.hIcon = imgList.ListImages(1).ExtractIcon
    IconeTray.uFlags = NIF_ICON
    Shell_NotifyIcon NIM_MODIFY, IconeTray

End Sub

'=====================================================================================================
'  Fin Programme
'=====================================================================================================

Private Sub Form_Unload(Cancel As Integer)
   Set wbemServices = Nothing
   Shell_NotifyIcon NIM_DELETE, IconeTray
   Set Form1 = Nothing
End Sub

Le : 01/03/2006 10:52:46
Source : PERSONNALISER MSGBOX (ICON PERSONNEL)
Une astuce : dans un Module, il est possible de creer une fonction : (Testé VB5)

Public Function MsgBox(Prompt, Optional Buttons As VbMsgBoxStyle = vbOKOnly,Optional Title, Optional HelpFile, Optional Context) As VbMsgBoxResult

Du coup, tout tes appels à "MsgBox" depuis ton projet passeront par cette fonction ! Plus simple qu'un Hook...

A+ Patrick
http://jeux.cartes.free.fr

Le : 01/03/2006 09:19:29
Source : OCX POUR GÉRER LE SYSTRAY SUPER FACILEMENT !!! SI, SI JETEZ UN OEIL VOUS VERREZ
p'tit truc pour que le menu du systay "disparaise" sans être obligé de cliquer obligatoirement dans l'un de ces items : rajouter un SetForegroundWindow avant l'appel du menu ! soit :

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long

Private Sub MonIcone_Click(ByVal Button As Long)
  If Button = 1 Then
   SetForegroundWindow Me.hWnd
   PopupMenu MenuPop
  End If
End Sub

A+ Patrick
http://jeux.cartes.free.fr

Le : 15/09/2005 21:38:27
Source : WEBNTCVS : CONSULTATION D'UN RÉFÉRENCIEL NT-CVS DEPUIS UN NAVIGATEUR WEB
la... ca dépasse mes compétences !

Le : 15/09/2005 20:58:37
Source : WEBNTCVS : CONSULTATION D'UN RÉFÉRENCIEL NT-CVS DEPUIS UN NAVIGATEUR WEB
A ma connaissance, les extentions CGI pour IIS ne peuvent pas être écrite en VB ! (les informations passent par le flux "standard" STDIN ou STDOUT. Bien qu'il soit possible de créer une console en VB, il n'est pas possible de récupéré "la console" qui à lancer l'application VB...)

Cela explique pourquoi de tels "extentions" doivent être ecrites en C++, Python ou Perl.

PS: Ammélioration en cours :
- Serveur HTTP intégrer (traitement des images)
- Afficahge des versions & commentaires des fichiers.


1


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


World in Conflict pour Windows
Entre 14€ et 33€


Visiter le guide achat

Photothèque Nouveau !

Photo friends at the beach.Photo femme, plage, bien être, soleil, vacances, été, détente, repos
Photo pretty girlPhoto jolie jeune femme enceinte avec sa maman

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 2,184 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.