Listbox avec autoit

Fermé

Xavier59 - 24 oct. 2013 à 10:05
netsoftnet Messages postés 125 Date d'inscription jeudi 3 janvier 2013 Statut Membre Dernière intervention 18 janvier 2016 - 9 nov. 2013 à 07:05

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")
	EndSwitch
WEnd

If $Lang = "Deutsh") Then
   Msgbox(4096,"W","Work")
EndIf

A voir également:

Listbox avec autoit
Autoit - Télécharger - Divers Utilitaires
Python autoit - Forum Python
Autoit error ✓ - Forum Virus
Array autoit ✓ - Forum Autoit / batch
Vba listbox additem plusieurs colonnes ✓ - Forum Excel

1 réponse

Réponse 1 / 1

netsoftnet Messages postés 125 Date d'inscription jeudi 3 janvier 2013 Statut Membre Dernière intervention 18 janvier 2016 32
Modifié par netsoftnet le 9/11/2013 à 07:22

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

Discussions similaires

Problème AutoIt Error

additem listbox en multicolonnes

[VBA] remplir une listBox

Recuperer valeur d'une listbox multiple sélection

Comprendre l'utilisation d'une listbox excel vba

Discussions similaires

Newsletters