[R] Error Line 21627 (File.....)

[Utilisateur 6342 supprimé]

Bonjour à toute la communauté,

Voici un petit moment que j'étais pas venu et je m'en excuse.

Comme le titre l'indique, j''ai une erreur lors du lancement de mon nouvel EXE "Line 21627 (File.....mon exe) Error : Variable used without being declared. Visiblement, c'est une erreur qui arrive régulièrement à toutes et tous mais moi, c'est une première

Pour l'histoire, c'est le même code que j'utilise depuis des années, j'ai juste eu besoin de changer des chemins suite à la mise à jour de mon Centreon où je vais modifier des cartes via mon exe.

Après quelques recherches, j'ai pu localiser la ligne 21627 compilée qui correspond à ce bout de code :

Code : Tout sélectionner

    GUICtrlSetData($Astreinte, $var[$i][1],$var[1][1])
Next
$ImgLoad = "b.jpg"
$idPic = GUICtrlCreatePic($ImgLoad, 120, 120, 100, 100)
$Informations2 = GUICtrlCreateGroup("Prévisualisation Synthèse", 500, 10, 435, 830)
Local Const $DEVICE_PRIMARY = 0, $DEVICE_IMMERSIVE = 1 <- ERROR
$aRet = DllCall("Shcore.dll", "int", "GetScaleFactorForDevice", "int", $DEVICE_PRIMARY)
$Label20 = GUICtrlCreateLabel("", 510, 50, 140, 60)
IF $aRet[0] = 100 Then
	GuiCtrlSetData($Label20, "Le zoom appliqué actuellement est à " & $aRet[0] & " %")
ElseIF $aRet[0] > 100 Then

Ce code à juste pour but d'afficher le zoom appliqué sur le bureau Windows. Il fonctionnait très bien ce matin et depuis mes modifications et la compilation (pas d'erreurs de compilation), ça fonctionne plus.

Merci pour votre aide et vos lumières.

Cdt,

[Utilisateur 6342 supprimé]

Par contre, quand je fais juste un F5 pour tester le code, j'ai un autre message :

"xxxxxxxxx.au3" (157) : ==> Variable used without being declared.:
GUISetStyle($WS_POPUP,$WS_EX_APPWINDOW,$form1_1)
GUISetStyle($WS_POPUP,$WS_EX_APPWINDOW,^ ERROR
->16:15:47 AutoIt3.exe ended.rc:1
+>16:15:47 AutoIt3Wrapper Finished.
>Exit code: 1 Time: 29.18

Sur le code suivant qui fonctionnait aussi ce matin :


func fullscreen()
if $full = 0 Then
GUISetStyle($WS_POPUP,$WS_EX_APPWINDOW,$form1_1)
GUISetState(@SW_MAXIMIZE ,$Form1_1)
$full = 1
Elseif $full = 1 Then
GUISetState(@SW_RESTORE ,$Form1_1)
GUISetStyle($WS_MINIMIZEBOX + $WS_CAPTION + $WS_POPUP + $WS_SYSMENU, 0,$Form1_1)
$full = 0
EndIf
EndFunc


[Tlem]

Bonjour.
Il vous faut déclarer la variable $form1_1.

[Utilisateur 6342 supprimé]

Bonjour et merci beaucoup Tlem.

J'ai réussi à trouver mon pb juste avant votre réponse d'où mon [R] dans le titre pour indiquer la résolution.

Cdt,