Listbox avec autoit
Xavier59
-
netsoftnet Messages postés 163 Statut Membre -
netsoftnet Messages postés 163 Statut Membre -
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.
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")
EndSwitch
WEnd
If $Lang = "Deutsh") Then
Msgbox(4096,"W","Work")
EndIf
1 réponse
-
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
