Ajoute l'application au menu "démarrer"

Télécharger le projet
Commenter

Description

Ajoute l'application au menu "Démarrer"

Source / Exemple : 


' Form

Private Sub cmdAjouter_Click()
Dim Fichier As String
Dim RetVal As Long
Dim Flag As Long
'
Fichier = (Label1)
If Fichier = "" Then Exit Sub
'
Flag = SHARD_PATH
RetVal = SHAddToRecentDocs(Flag, Fichier)
End Sub

Private Sub cmdEffacer_Click()
Flag = SHARD_PATH
RetVal = SHAddToRecentDocs(Flag, vbNullString)
End Sub

Private Sub cmdFichier_Click()
CommonDialog1.Filter = "*.txt|*.txt|*.doc|*.doc|*.htm|*.htm"
CommonDialog1.ShowOpen
Label1 = CommonDialog1.filename
End Sub

Private Sub Command1_Click()

End Sub

Private Sub Form_Load()
Label1 = ""
End Sub

' Module

Attribute VB_Name = "Module1"
'***(c)1998 DELEAU Jean-Marie
Public Declare Function SHAddToRecentDocs Lib "shell32.dll" _
   (ByVal dwFlags As Long, ByVal dwData As String) As Long
'
Public Const SHARD_PATH = &H2&
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Scooby1)