Bonjour,

un simple contrôle WebBrowser règle le problème !  

  Me.WebBrowser.Navigate "C:\TOTO.PDF"

bien vu : il manquait un simple InitCommonControls()

salut,

- TimerCalendar = False / True en début et fin de procédure sont des sécurités que je met systématiquement sur mais Timer.

- Mon code permet un fonctionnement dans les 2 sens : tu peux soit cliquer dans le calendrier, soit modifier la date dans la TextBox et faire SET pour fixé la date sur le calendier...

...Par contre j'ai détecté un problème : LE CODE NE FONCTIONNE QUE DANS L'ENVIRONNEMENT VB !

une fois compilé, CreateWindowEx retourne 0 et rien ne s'affiche (VB5 Pro) !

Je cherche.... mais je ne comprend pas pourquoi... (compile en natif ou p-code)

A+ Patrick

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

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

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

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

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

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

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