Bonjour,
Je souhaite mettre un raccourci Freecell sur un UserForm. Je n'y arrive pas
car je vais le chercher en tant qu' image. Qu'elle est la solution? Mettre
un CommandButton et écrire la procédure d'ouverture de Freecell ou bien
l'insertion du raccourci, si elle est possible, suffit-elle?
Merci et bonne journée.
Cordialement.
RV
Bonjour AnonymousA, C'est un jeux de cartes sur Windows. J'en profite pour demander pourquoi je n'ai aucun affichage dans mes TextBox. Je tourne en rond depuis ce matin. Aurais-je oublié de modifier certains paramètres dans la fenêtre des propriétés, mais je ne vois pas lesquels. Merci de ton aide.
Private Sub ComboBox1_Change() a = "Parties" b = "Etats" c = "Difficultés" d = "Dates" On Error Resume Next With FrmJeux.Frame3.Frame1 .Controls("TextBox1") = Range(b).Item(Application.Match(FrmJeux.Frame3.Frame1.ComboBox1.Value, Range(a), 0)) .Controls("TextBox4") = Range(c).Item(Application.Match(FrmJeux.Frame3.Frame1.ComboBox1.Value, Range(a), 0)) .Controls("TextBox5") = Range(d).Item(Application.Match(FrmJeux.Frame3.Frame1.ComboBox1.Value, Range(a), 0)) End With End Sub
RV
"anonymousA" a écrit dans le message de news:
Bonjour,
Qu'est ce que Freecell ?
A+
Bonjour AnonymousA,
C'est un jeux de cartes sur Windows.
J'en profite pour demander pourquoi je n'ai aucun affichage dans mes
TextBox. Je tourne en rond depuis ce matin. Aurais-je oublié de modifier
certains paramètres dans la fenêtre des propriétés, mais je ne vois pas
lesquels.
Merci de ton aide.
Private Sub ComboBox1_Change()
a = "Parties"
b = "Etats"
c = "Difficultés"
d = "Dates"
On Error Resume Next
With FrmJeux.Frame3.Frame1
.Controls("TextBox1") =
Range(b).Item(Application.Match(FrmJeux.Frame3.Frame1.ComboBox1.Value,
Range(a), 0))
.Controls("TextBox4") =
Range(c).Item(Application.Match(FrmJeux.Frame3.Frame1.ComboBox1.Value,
Range(a), 0))
.Controls("TextBox5") =
Range(d).Item(Application.Match(FrmJeux.Frame3.Frame1.ComboBox1.Value,
Range(a), 0))
End With
End Sub
RV
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
1130756291.814048.221470@o13g2000cwo.googlegroups.com...
Bonjour AnonymousA, C'est un jeux de cartes sur Windows. J'en profite pour demander pourquoi je n'ai aucun affichage dans mes TextBox. Je tourne en rond depuis ce matin. Aurais-je oublié de modifier certains paramètres dans la fenêtre des propriétés, mais je ne vois pas lesquels. Merci de ton aide.
Private Sub ComboBox1_Change() a = "Parties" b = "Etats" c = "Difficultés" d = "Dates" On Error Resume Next With FrmJeux.Frame3.Frame1 .Controls("TextBox1") = Range(b).Item(Application.Match(FrmJeux.Frame3.Frame1.ComboBox1.Value, Range(a), 0)) .Controls("TextBox4") = Range(c).Item(Application.Match(FrmJeux.Frame3.Frame1.ComboBox1.Value, Range(a), 0)) .Controls("TextBox5") = Range(d).Item(Application.Match(FrmJeux.Frame3.Frame1.ComboBox1.Value, Range(a), 0)) End With End Sub
RV
"anonymousA" a écrit dans le message de news:
Bonjour,
Qu'est ce que Freecell ?
A+
michdenis
Bonjour RV,
Pour lancer FreeCell,
'Il est possible que le chemin soit différent selon les systèmes d'exploitation. Chemin sur windows xp pro.
"RV" a écrit dans le message de news: Bonjour, Je souhaite mettre un raccourci Freecell sur un UserForm. Je n'y arrive pas car je vais le chercher en tant qu' image. Qu'elle est la solution? Mettre un CommandButton et écrire la procédure d'ouverture de Freecell ou bien l'insertion du raccourci, si elle est possible, suffit-elle? Merci et bonne journée. Cordialement. RV
Bonjour RV,
Pour lancer FreeCell,
'Il est possible que le chemin soit différent selon les systèmes d'exploitation.
Chemin sur windows xp pro.
"RV" <dick.pitt@rv.fr> a écrit dans le message de news: OHf4ucf3FHA.1140@tk2msftngp13.phx.gbl...
Bonjour,
Je souhaite mettre un raccourci Freecell sur un UserForm. Je n'y arrive pas
car je vais le chercher en tant qu' image. Qu'elle est la solution? Mettre
un CommandButton et écrire la procédure d'ouverture de Freecell ou bien
l'insertion du raccourci, si elle est possible, suffit-elle?
Merci et bonne journée.
Cordialement.
RV
"RV" a écrit dans le message de news: Bonjour, Je souhaite mettre un raccourci Freecell sur un UserForm. Je n'y arrive pas car je vais le chercher en tant qu' image. Qu'elle est la solution? Mettre un CommandButton et écrire la procédure d'ouverture de Freecell ou bien l'insertion du raccourci, si elle est possible, suffit-elle? Merci et bonne journée. Cordialement. RV
RV
Bonjour Michdenis, Le chemin est bon et je te remercie de ton aide. Comment faire pour récupérer l'icone du jeu pour la placer sur un bouton. Merci Bonne soirée. RV
"michdenis" a écrit dans le message de news:
Bonjour RV,
Pour lancer FreeCell,
'Il est possible que le chemin soit différent selon les systèmes d'exploitation. Chemin sur windows xp pro.
Bonjour, Je souhaite mettre un raccourci Freecell sur un UserForm. Je n'y arrive pas car je vais le chercher en tant qu' image. Qu'elle est la solution? Mettre un CommandButton et écrire la procédure d'ouverture de Freecell ou bien l'insertion du raccourci, si elle est possible, suffit-elle? Merci et bonne journée. Cordialement. RV
Bonjour Michdenis,
Le chemin est bon et je te remercie de ton aide.
Comment faire pour récupérer l'icone du jeu pour la placer sur un bouton.
Merci
Bonne soirée.
RV
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eCCzkSi3FHA.400@TK2MSFTNGP09.phx.gbl...
Bonjour RV,
Pour lancer FreeCell,
'Il est possible que le chemin soit différent selon les systèmes
d'exploitation.
Chemin sur windows xp pro.
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
OHf4ucf3FHA.1140@tk2msftngp13.phx.gbl...
Bonjour,
Je souhaite mettre un raccourci Freecell sur un UserForm. Je n'y arrive
pas
car je vais le chercher en tant qu' image. Qu'elle est la solution? Mettre
un CommandButton et écrire la procédure d'ouverture de Freecell ou bien
l'insertion du raccourci, si elle est possible, suffit-elle?
Merci et bonne journée.
Cordialement.
RV
Bonjour Michdenis, Le chemin est bon et je te remercie de ton aide. Comment faire pour récupérer l'icone du jeu pour la placer sur un bouton. Merci Bonne soirée. RV
"michdenis" a écrit dans le message de news:
Bonjour RV,
Pour lancer FreeCell,
'Il est possible que le chemin soit différent selon les systèmes d'exploitation. Chemin sur windows xp pro.
Bonjour, Je souhaite mettre un raccourci Freecell sur un UserForm. Je n'y arrive pas car je vais le chercher en tant qu' image. Qu'elle est la solution? Mettre un CommandButton et écrire la procédure d'ouverture de Freecell ou bien l'insertion du raccourci, si elle est possible, suffit-elle? Merci et bonne journée. Cordialement. RV
Private Declare Function ExtractIcon Lib "shell32.dll" Alias _ "ExtractIconA" (ByVal hInst As Long, ByVal _ lpszExeFileName As String, _ ByVal nIconIndex As Long) As Long Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias _ "SHGetFileInfoA" (ByVal pszPath As String, ByVal _ dwFileAttributes As Long, psfi As SHFILEINFO, ByVal _ cbFileInfo As Long, ByVal uFlags As Long) As Long Private Declare Function OleCreatePictureIndirect Lib _ "olepro32.dll" (ByRef pPictDesc As PICTDESC, _ ByRef riid As GUID, ByVal fOwn As Long, _ ByRef ppvObj As IPictureDisp) As Long
Private Type PICTDESC cbSizeofStruct As Long PicType As Long hImage As Long xExt As Long yExt As Long End Type
Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type
Private Type SHFILEINFO hIcon As Long iIcon As Long dwAttributes As Long szDisplayName As String * MAX_PATH szTypeName As String * 80 End Type
Public Function GetPictureFromFile(ByVal fName As String, _ Optional bSmallIcon As Boolean = False) _ As IPictureDisp
Dim shFI As SHFILEINFO Dim PicTmp As IPictureDisp Dim PicDes As PICTDESC Dim IID_IDispatch As GUID
SHGetFileInfo fName, -1, shFI, -1, SHGFI_ICON Or _ IIf(bSmallIcon, SHGFI_SMALLICON, 0) If shFI.hIcon = 0 Then shFI.hIcon = ExtractIcon(Application.Hinstance, fName, 0) End If
OleCreatePictureIndirect PicDes, IID_IDispatch, True, PicTmp Set GetPictureFromFile = PicTmp End Function
Private Sub UserForm_Initialize() Dim pic As IPictureDisp
Set pic = GetPictureFromFile("C:WindowsSystem32Freecell.exe") With Me.CommandButton1 .Height = 60 .Width = 90 .Caption = "Freecell" .PicturePosition = fmPicturePositionAboveCenter .Picture = pic End With End Sub
Bonjour Michdenis, Le chemin est bon et je te remercie de ton aide. Comment faire pour récupérer l'icone du jeu pour la placer sur un bouton. Merci Bonne soirée. RV
Private Declare Function ExtractIcon Lib "shell32.dll" Alias _
"ExtractIconA" (ByVal hInst As Long, ByVal _
lpszExeFileName As String, _
ByVal nIconIndex As Long) As Long
Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias _
"SHGetFileInfoA" (ByVal pszPath As String, ByVal _
dwFileAttributes As Long, psfi As SHFILEINFO, ByVal _
cbFileInfo As Long, ByVal uFlags As Long) As Long
Private Declare Function OleCreatePictureIndirect Lib _
"olepro32.dll" (ByRef pPictDesc As PICTDESC, _
ByRef riid As GUID, ByVal fOwn As Long, _
ByRef ppvObj As IPictureDisp) As Long
Private Type PICTDESC
cbSizeofStruct As Long
PicType As Long
hImage As Long
xExt As Long
yExt As Long
End Type
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName As String * MAX_PATH
szTypeName As String * 80
End Type
Public Function GetPictureFromFile(ByVal fName As String, _
Optional bSmallIcon As Boolean = False) _
As IPictureDisp
Dim shFI As SHFILEINFO
Dim PicTmp As IPictureDisp
Dim PicDes As PICTDESC
Dim IID_IDispatch As GUID
SHGetFileInfo fName, -1, shFI, -1, SHGFI_ICON Or _
IIf(bSmallIcon, SHGFI_SMALLICON, 0)
If shFI.hIcon = 0 Then
shFI.hIcon = ExtractIcon(Application.Hinstance, fName, 0)
End If
OleCreatePictureIndirect PicDes, IID_IDispatch, True, PicTmp
Set GetPictureFromFile = PicTmp
End Function
Private Sub UserForm_Initialize()
Dim pic As IPictureDisp
Set pic = GetPictureFromFile("C:WindowsSystem32Freecell.exe")
With Me.CommandButton1
.Height = 60
.Width = 90
.Caption = "Freecell"
.PicturePosition = fmPicturePositionAboveCenter
.Picture = pic
End With
End Sub
Bonjour Michdenis,
Le chemin est bon et je te remercie de ton aide.
Comment faire pour récupérer l'icone du jeu pour la placer sur un bouton.
Merci
Bonne soirée.
RV
Private Declare Function ExtractIcon Lib "shell32.dll" Alias _ "ExtractIconA" (ByVal hInst As Long, ByVal _ lpszExeFileName As String, _ ByVal nIconIndex As Long) As Long Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias _ "SHGetFileInfoA" (ByVal pszPath As String, ByVal _ dwFileAttributes As Long, psfi As SHFILEINFO, ByVal _ cbFileInfo As Long, ByVal uFlags As Long) As Long Private Declare Function OleCreatePictureIndirect Lib _ "olepro32.dll" (ByRef pPictDesc As PICTDESC, _ ByRef riid As GUID, ByVal fOwn As Long, _ ByRef ppvObj As IPictureDisp) As Long
Private Type PICTDESC cbSizeofStruct As Long PicType As Long hImage As Long xExt As Long yExt As Long End Type
Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type
Private Type SHFILEINFO hIcon As Long iIcon As Long dwAttributes As Long szDisplayName As String * MAX_PATH szTypeName As String * 80 End Type
Public Function GetPictureFromFile(ByVal fName As String, _ Optional bSmallIcon As Boolean = False) _ As IPictureDisp
Dim shFI As SHFILEINFO Dim PicTmp As IPictureDisp Dim PicDes As PICTDESC Dim IID_IDispatch As GUID
SHGetFileInfo fName, -1, shFI, -1, SHGFI_ICON Or _ IIf(bSmallIcon, SHGFI_SMALLICON, 0) If shFI.hIcon = 0 Then shFI.hIcon = ExtractIcon(Application.Hinstance, fName, 0) End If
OleCreatePictureIndirect PicDes, IID_IDispatch, True, PicTmp Set GetPictureFromFile = PicTmp End Function
Private Sub UserForm_Initialize() Dim pic As IPictureDisp
Set pic = GetPictureFromFile("C:WindowsSystem32Freecell.exe") With Me.CommandButton1 .Height = 60 .Width = 90 .Caption = "Freecell" .PicturePosition = fmPicturePositionAboveCenter .Picture = pic End With End Sub
Bonjour Michdenis, Le chemin est bon et je te remercie de ton aide. Comment faire pour récupérer l'icone du jeu pour la placer sur un bouton. Merci Bonne soirée. RV
-- Cordialement,
Jacques.
RV
Bonsoir Jacques93, Ces lignes de code dépassent largement mes compétences, mais il n'en reste pas moins que cela fonctionne. J'ai adapté à mes besoins(...). Je te remercie de ton aide précieuse. Bonne soirée Cordialement RV
Private Declare Function ExtractIcon Lib "shell32.dll" Alias _ "ExtractIconA" (ByVal hInst As Long, ByVal _ lpszExeFileName As String, _ ByVal nIconIndex As Long) As Long Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias _ "SHGetFileInfoA" (ByVal pszPath As String, ByVal _ dwFileAttributes As Long, psfi As SHFILEINFO, ByVal _ cbFileInfo As Long, ByVal uFlags As Long) As Long Private Declare Function OleCreatePictureIndirect Lib _ "olepro32.dll" (ByRef pPictDesc As PICTDESC, _ ByRef riid As GUID, ByVal fOwn As Long, _ ByRef ppvObj As IPictureDisp) As Long
Private Type PICTDESC cbSizeofStruct As Long PicType As Long hImage As Long xExt As Long yExt As Long End Type
Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type
Private Type SHFILEINFO hIcon As Long iIcon As Long dwAttributes As Long szDisplayName As String * MAX_PATH szTypeName As String * 80 End Type
Public Function GetPictureFromFile(ByVal fName As String, _ Optional bSmallIcon As Boolean = False) _ As IPictureDisp
Dim shFI As SHFILEINFO Dim PicTmp As IPictureDisp Dim PicDes As PICTDESC Dim IID_IDispatch As GUID
SHGetFileInfo fName, -1, shFI, -1, SHGFI_ICON Or _ IIf(bSmallIcon, SHGFI_SMALLICON, 0) If shFI.hIcon = 0 Then shFI.hIcon = ExtractIcon(Application.Hinstance, fName, 0) End If
OleCreatePictureIndirect PicDes, IID_IDispatch, True, PicTmp Set GetPictureFromFile = PicTmp End Function
Private Sub UserForm_Initialize() Dim pic As IPictureDisp
Set pic = GetPictureFromFile("C:WindowsSystem32Freecell.exe") With Me.CommandButton1 .Height = 60 .Width = 90 .Caption = "Freecell" .PicturePosition = fmPicturePositionAboveCenter .Picture = pic End With End Sub
Bonjour Michdenis, Le chemin est bon et je te remercie de ton aide. Comment faire pour récupérer l'icone du jeu pour la placer sur un bouton. Merci Bonne soirée. RV
-- Cordialement,
Jacques.
Bonsoir Jacques93,
Ces lignes de code dépassent largement mes compétences, mais il n'en reste
pas moins que cela fonctionne.
J'ai adapté à mes besoins(...).
Je te remercie de ton aide précieuse.
Bonne soirée
Cordialement
RV
"Jacques93" <jacques@NoSpam> a écrit dans le message de news:
OMLWM5j3FHA.1420@TK2MSFTNGP09.phx.gbl...
Private Declare Function ExtractIcon Lib "shell32.dll" Alias _
"ExtractIconA" (ByVal hInst As Long, ByVal _
lpszExeFileName As String, _
ByVal nIconIndex As Long) As Long
Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias _
"SHGetFileInfoA" (ByVal pszPath As String, ByVal _
dwFileAttributes As Long, psfi As SHFILEINFO, ByVal _
cbFileInfo As Long, ByVal uFlags As Long) As Long
Private Declare Function OleCreatePictureIndirect Lib _
"olepro32.dll" (ByRef pPictDesc As PICTDESC, _
ByRef riid As GUID, ByVal fOwn As Long, _
ByRef ppvObj As IPictureDisp) As Long
Private Type PICTDESC
cbSizeofStruct As Long
PicType As Long
hImage As Long
xExt As Long
yExt As Long
End Type
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName As String * MAX_PATH
szTypeName As String * 80
End Type
Public Function GetPictureFromFile(ByVal fName As String, _
Optional bSmallIcon As Boolean = False) _
As IPictureDisp
Dim shFI As SHFILEINFO
Dim PicTmp As IPictureDisp
Dim PicDes As PICTDESC
Dim IID_IDispatch As GUID
SHGetFileInfo fName, -1, shFI, -1, SHGFI_ICON Or _
IIf(bSmallIcon, SHGFI_SMALLICON, 0)
If shFI.hIcon = 0 Then
shFI.hIcon = ExtractIcon(Application.Hinstance, fName, 0)
End If
OleCreatePictureIndirect PicDes, IID_IDispatch, True, PicTmp
Set GetPictureFromFile = PicTmp
End Function
Private Sub UserForm_Initialize()
Dim pic As IPictureDisp
Set pic = GetPictureFromFile("C:WindowsSystem32Freecell.exe")
With Me.CommandButton1
.Height = 60
.Width = 90
.Caption = "Freecell"
.PicturePosition = fmPicturePositionAboveCenter
.Picture = pic
End With
End Sub
Bonjour Michdenis,
Le chemin est bon et je te remercie de ton aide.
Comment faire pour récupérer l'icone du jeu pour la placer sur un bouton.
Merci
Bonne soirée.
RV
Bonsoir Jacques93, Ces lignes de code dépassent largement mes compétences, mais il n'en reste pas moins que cela fonctionne. J'ai adapté à mes besoins(...). Je te remercie de ton aide précieuse. Bonne soirée Cordialement RV
Private Declare Function ExtractIcon Lib "shell32.dll" Alias _ "ExtractIconA" (ByVal hInst As Long, ByVal _ lpszExeFileName As String, _ ByVal nIconIndex As Long) As Long Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias _ "SHGetFileInfoA" (ByVal pszPath As String, ByVal _ dwFileAttributes As Long, psfi As SHFILEINFO, ByVal _ cbFileInfo As Long, ByVal uFlags As Long) As Long Private Declare Function OleCreatePictureIndirect Lib _ "olepro32.dll" (ByRef pPictDesc As PICTDESC, _ ByRef riid As GUID, ByVal fOwn As Long, _ ByRef ppvObj As IPictureDisp) As Long
Private Type PICTDESC cbSizeofStruct As Long PicType As Long hImage As Long xExt As Long yExt As Long End Type
Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type
Private Type SHFILEINFO hIcon As Long iIcon As Long dwAttributes As Long szDisplayName As String * MAX_PATH szTypeName As String * 80 End Type
Public Function GetPictureFromFile(ByVal fName As String, _ Optional bSmallIcon As Boolean = False) _ As IPictureDisp
Dim shFI As SHFILEINFO Dim PicTmp As IPictureDisp Dim PicDes As PICTDESC Dim IID_IDispatch As GUID
SHGetFileInfo fName, -1, shFI, -1, SHGFI_ICON Or _ IIf(bSmallIcon, SHGFI_SMALLICON, 0) If shFI.hIcon = 0 Then shFI.hIcon = ExtractIcon(Application.Hinstance, fName, 0) End If
OleCreatePictureIndirect PicDes, IID_IDispatch, True, PicTmp Set GetPictureFromFile = PicTmp End Function
Private Sub UserForm_Initialize() Dim pic As IPictureDisp
Set pic = GetPictureFromFile("C:WindowsSystem32Freecell.exe") With Me.CommandButton1 .Height = 60 .Width = 90 .Caption = "Freecell" .PicturePosition = fmPicturePositionAboveCenter .Picture = pic End With End Sub
Bonjour Michdenis, Le chemin est bon et je te remercie de ton aide. Comment faire pour récupérer l'icone du jeu pour la placer sur un bouton. Merci Bonne soirée. RV