Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 09:28

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



einfache lisbox

Discussion on einfache lisbox within the AutoIt forum part of the Coders Den category.

Reply
 
Old   #1
 
playerXD97's Avatar
 
elite*gold: 0
Join Date: Apr 2011
Posts: 179
Received Thanks: 60
einfache lisbox

Hallo bin noch etwas neu mit autit und wollte grad ein einfaches programm machen das wenn man was anklickt und auf den button klickt er das ausführt

hab grade das mit koda gemacht ist der grundsatz:
Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test", 436, 279, 192, 124)
GUISetIcon("D:\Blitz2DDemo\blitzbasic.exe", -1)
$List1 = GUICtrlCreateList("", 16, 112, 161, 97, BitOR($GUI_SS_DEFAULT_LIST,$LBS_DISABLENOSCROLL))
GUICtrlSetData(-1, "Ort1|Ort2|Ort3|Ort4|Ort5")
$Button1 = GUICtrlCreateButton("FunktionA", 216, 96, 121, 81)
$Tab1 = GUICtrlCreateTab(0, 0, 433, 25)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd
und ich möchte gerne das wenn ich auf Ort 1 klicke und dann auf FunktionA er einen send Befehl ausführt kriege das aber leider nicht hin
bitte helft mir danke
playerXD97 is offline  
Old 10/20/2011, 23:12   #2
 
omer36's Avatar
 
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
PHP Code:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 GUICreate("Test"436279192124)
GUISetIcon("D:\Blitz2DDemo\blitzbasic.exe", -1)
$List1 GUICtrlCreateList(""1611216197BitOR($GUI_SS_DEFAULT_LIST,$LBS_DISABLENOSCROLL))
GUICtrlSetData(-1"Ort1|Ort2|Ort3|Ort4|Ort5")
$Button1 GUICtrlCreateButton("FunktionA"2169612181)
$Tab1 GUICtrlCreateTab(0043325)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg 
GUIGetMsg()
    Switch 
$nMsg
        
Case $GUI_EVENT_CLOSE
            
Exit
        Case 
$Button1
                                                  
;dein Befehl
            
If GUICtrlRead($List1) == "Ort1" Then MsgBox("","","Ort1 ist aktive"
            If 
GUICtrlRead($List1) == "Ort2" Then MsgBox("","","Ort2 ist aktive")
            If 
GUICtrlRead($List1) == "Ort3" Then MsgBox("","","Ort3 ist aktive")
            ;...
    EndSwitch
WEnd 
omer36 is offline  
Thanks
2 Users
Reply


Similar Threads Similar Threads
Einfache Tools von mir
04/08/2011 - Off Topic - 2 Replies
Hey liebe E*pvpers Com, ich bin der AllGameFreaky, und dachte mir, dass ich mal ein paar Tools von mir vorstelle, die evtl. nützlich sein "könnten". Also dazu hab ich auch eine Website, die nicht sehr toll ist, aber für meine Zwecke reicht. AllGameFreaky's Tool Homepage
[PS CS5]Einfache Signatur
01/22/2011 - Artist Tutorials - 8 Replies
Guten Abend mit einander ;) Da ich heute viiel Langeweile schob, dachte ich mir : "Wieso tust du nichts nützliches und machst nen Videotutorial?!" Naja jedenfalls ist das dabei rausgekommen : Photoshop CS5 - SignatureTutorial Ich hoffe es gefällt euch und dass es nicht ganz unnütze ist ;) Viel Spaß
einfache frage
11/10/2010 - Metin2 Private Server - 1 Replies
hi kann ma bitte einer sagen wo man dmg von waffen ändert(z.B. Blaudrachen 9999) habe in sufu nichts gefunden oder slots für steine
Einfache Frage ;)
09/15/2010 - Metin2 Private Server - 8 Replies
hi Freunde gibt es ein tut wie man die levelgränze erhöhen kann,mein server hat lvl 120,könnte gerne was höher sein ;) LG:ganzliebe
Einfache Rechtschreibregeln
05/15/2010 - Off Topic - 1 Replies
Hallo Liebe Community, Elitepvpers schreit geradezu nach diesem Beitrag! Das Lesen dieses Beitrages wird euer Leben enorm bereichern... versprochen!;) Ich habe die Rechtschreibregeln natürlich nur aus Spaß ausformuliert. Diejenigen, die die Rechtschreibung sowieso schon beherrschen, werden sich amüsieren. Die restlichen werden sich vermutlich aufregen Dabei brauchen sie das gar nicht. Soll doch jeder schreiben wie er will - nur nicht mit mir! Gegen Tippfehler sagt keiner was,...



All times are GMT +1. The time now is 09:29.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.