Compatibilite Mac

sten83

XLDnaute Occasionnel
Bonjour, j'ai une petite question je viens de faire un petit programme de facturations pour une petite societe independante, le seul problème c'est que la personne travail sur Mac.Est ce que mon petit prgramme sera compatible étant donne que moi je travaille sur PC.
 

Staple1600

XLDnaute Barbatruc
Re : Compatibilite Mac

Bonjour à tous

sten83
A vue de nez, déjà ceci te posera problème, puisque API Windows.
Mais bon comme c'est juste une fioriture, il suffira de s'en passer dans ta version pour Mac
Code:
Option Private Module
Declare Function GetWindowLongA Lib "User32" _
    (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLongA Lib "User32" _
    (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Sub SansX(USF As UserForm)
Dim hWnd       As Long
    hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
                       "X", "D") & "Frame", USF.Caption)
    SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub
 

Discussions similaires

Réponses
4
Affichages
325
Compte Supprimé 979
C

Statistiques des forums

Discussions
312 545
Messages
2 089 486
Membres
104 182
dernier inscrit
matiasi