Listbox avec autoit Fermé

Question

Bonjour,
Voilà j'ai un petit problème sur mon programme.
Je voudrais que l'utilisateurs puissent séléctionnez la langue pour mon programme, mais je ne sais pas comment interpréter.
Dans mon bout de code, l'utilisateur séléctionnez le language, puis, normalement, la variable $Lang est lu et permet de déterminer ce qu'a choisit l'utilisateur.
Sauf, que, si l'utilisateur a choisit par exemple, Deutsh, je ne sais pas ce que retourne GUICTRLRead et donc ne peut pas savoir ce qu'a choisis l'utilisateur.


$SelectLanguage = GUICreate("Language", 213, 177, 614, 292)$Language = GUICtrlCreateList("", 40, 40, 121, 86)GuiCtrlSetData(-1, "English|French|Spanish|Deutsh|") $Label1 = GUICtrlCreateLabel("Language :", 64, 8, 71, 20)$Save = GUICtrlCreateButton("Save", 64, 136, 75, 25)GUISetState(@SW_SHOW)While 1	$nMsg = GUIGetMsg()	Switch $nMsg		Case $GUI_EVENT_CLOSE			Exit		Case $Save		   $Lang = GUICtrlRead($Language)		   GUIDelete("Language")	EndSwitchWEndIf $Lang = "Deutsh") Then   Msgbox(4096,"W","Work")EndIf

netsoftnet · Answer

Maybe This , hahaha , lol :

#RequireAdmin
#include <GUIConstantsEx.au3>

;~ to show splash
SplashTextOn("PROGRAMME NAME _ V1.1","Loading ... Please Wait ...",250,80,-1,-1)

;~ creating gui and controls
$SelectLanguage = GUICreate("Language", 213, 177, -1, -1)
$Language = GUICtrlCreateList("", 40, 40, 121, 86)
GuiCtrlSetData(-1, "English|French|Spanish|Deutsh|Arabic") 
$Label1 = GUICtrlCreateLabel("Language :", 64, 8, 71, 20)
$Save = GUICtrlCreateButton("Save", 64, 136, 75, 25)

;~ wait then hide the splash
Sleep(1500)
SplashOff()

;~ to start gui with magic show effect
Sleep(500)
WinSetTrans(WinGetTitle($SelectLanguage),"",1)
GUISetState(@SW_SHOW)
For $i=10 To 255 Step 5
   WinSetTrans(WinGetTitle($SelectLanguage),"",$i)
   Sleep(10)
Next

;~ to generate a sound when gui activated
For $o=1 To 5 Step 1
Beep(($o*1000),100)
Next

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Save
		   Global $Lang = GUICtrlRead($Language)

;~ to hide gui with magic show effect
			Sleep(500)
			For $i=255 To 5 Step -5
			   WinSetTrans(WinGetTitle($SelectLanguage),"",$i)
			   Sleep(10)
			Next
			GUISetState(@SW_HIDE)
		 If $Lang = "English" Then en_lng()
		 If $Lang = "French" Then fr_lng()
		 If $Lang = "Spanish" Then sp_lng()
		 If $Lang = "Deutsh" Then de_lng()
		 If $Lang = "Arabic" Then ar_lng()	
GUIDelete("Language")			
	EndSwitch
WEnd



Func en_lng()
Msgbox(4096,"W","Work for English")
;~ Here you can code for English
EndFunc

Func fr_lng()
Msgbox(4096,"W","Work for French")
;~ Here you can code for French
EndFunc

Func sp_lng()
Msgbox(4096,"W","Work for Spanish")
;~ Here you can code for Spanish
EndFunc

Func de_lng()
Msgbox(4096,"W","Work for Deutsh")
;~ Here you can code for Deutsh
EndFunc

Func ar_lng()
Msgbox(4096,"W","Work for Arabic")
;~ Here you can code for Arabic
EndFunc

Listbox avec autoit

1 réponse

Discussions similaires