Problème de compatibilitéRésolu

Question

Salut &#224; tous, 

Etant un tout nouveau venu dans le monde de la programmation Visual
Basic, on m'a fil&#233; un bouquin (un vieux, je pr&#233;cise... heu, le livre,
pas la personne qui me l'a pass&#233; ;-) ) Il semble que ce soit un bouquin
qui date de Windows 3.1 (Ouais, quand m&#232;me)

Bref, j'ai commenc&#233; donc &#224; faire un jeu tout simple de Solitaire, mais
le souci, c'est qu'il me sort des erreurs &#224; la compilation,
apparemment, ce qu'il n'aime pas, c'est &#231;a :



Const HELP_FILE = "PS.HLP"

Const HELP_CONTEXT = &H1

Const HELP_HELPONHELP = &H4

Const HELP_INDEX = &H3

Const HELP_QUIT = &H2

Const HELP_HOWTOPLAY = 10&

Const HELP_COMMANDS = 20&

Declare Sub WinHelp Lib "USER" (ByVal hWnd As Integer, ByVal lpHelpFile
As String, ByVal wCommand As Integer, ByVal dwData As Long)

Const CLIENTBOTTOM = 424

Const CLIENTRIGHT = 223

Dim DragSource As Integer

Dim GameStarted As Integer

Dim I As Integer

Const WS_CAPTION = &HC00000

Const WS_THICKFRAME = &H40000

Declare Sub AdjustWindowRect Lib "USER" (lpRect As RECT, ByVal dwStyle&, ByVal bMenu%)

Const LOGPIXELSX = 88

Const LOGPIXELSY = 90

Declare Function GetDeviceCaps Lib "GDI" (ByVal hDC%, ByVal Index%) As Integer



Enfin, si j'ai bien compris... je pense que c'est un probl&#232;me de
compatibilit&#233; avec Windows XP... Mais heu... En fait, j'en sais pas
grand chose, donc, si quelqu'un savait comment r&#233;gler ce genre de
petits soucis... ce serait g&#233;nial...

Merci d'avance.

Gobillot · Accepted Answer

met Option Explicit et corrige les erreurs grossi&#232;res:

lebel pour Label1, GameStarted au lieu de GameStarte,

PictureFull au lieu de Picture2,

Private Declare au lieu de public,

Scalemode de la Forme en Pixels,

etc ...


'supprime ce truc

'   Rec.Left = 0

'   Rec.Top = 0

'   Rec.Right = CLIENTRIGHT

'   Rec.Bottom = CLIENTBOTTOM

'   AdjustWindowRect Rec, WS_CAPTION, False

'   FormMain.Width = (Rec.Right - Rec.Left + 1) * (1440 / GetDeviceCaps(hdc, LOGPIXELSX))

'   FormMain.Height = (Rec.Bottom - Rec.Top + 1) * (1440 / GetDeviceCaps(hdc, LOGPIXELSY))


'toutes les positions sont fausses, il faut garder les positions actuelles

    PictureArray(0).Left 72:   PictureArray(0).Top 64

    PictureArray(1).Left 136:   PictureArray(1).Top 64

    PictureArray(2).Left 200:   PictureArray(2).Top 64

    etc ...



Chez moi &#231;a marche !



Daniel

Gobillot · Answer

&#224; part HELP_FILE et HELP_HOWTOPLAY que j'ai pas trouv&#233;,

le reste est le m&#234;me.









Private Declare Function WinHelp Lib "user32.dll" Alias "WinHelpA"
(ByVal hWndMain As Long, ByVal lpHelpFile As String, ByVal uCommand As
Long, dwData As Any) As Long



Private Declare Function AdjustWindowRect Lib "user32" (lpRect As RECT, ByVal dwStyle As Long, ByVal bMenu As Long) As Long



Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long




Daniel

tomfrankson · Answer

Merci beaucoup!!! Bon... Ca marche toujours pas... Y'a un truc de drag
and drop qui veut pas marcher, mais &#231;a bug plus au moment de la
compilation... je vais tenter de trouver le probl&#232;me...

Mais, j'ai bien peur que tout le long du code, y'ai des erreurs du genre...

tomfrankson · Answer

Bon, &#231;a bugge encore &#233;norm&#233;ment... j'ai du mal &#224; trouver d'o&#249;
viennent les probl&#232;mes, serait il possible &#224; quelqu'un de voir le code
et de tenter de faire en sorte qu'il soit compatible avec Windows XP?

Avec juste un commentaire disant ce qui n'allait pas... j'imagine que c'est beaucoup demander, mais &#231;a m'aiderait &#233;norm&#233;ment...

Je l'ai h&#233;berg&#233; sur mon site : L&#224;.

Merci d'avance &#224; la personne qui pourra m'aider...

Tom.

tomfrankson · Answer

Merci beaucoup, bon, les erreurs de code, je m'en doutais, mais il me semblait bien qu'il y avait 2-3 trucs qui n'allaient pas.

Bon, me reste 2-3 conneries &#224; corriger, mais l&#224;, je suis sur que c'est des erreurs de saisie.

MERCI BEAUCOUP!!!

Problème de compatibilité

5 réponses

Discussions similaires