Guten Tag,
Ein Arbeitskollege hat mich gefragt ob ich was für ihn machen könnte.. und zwar folgendes!
Zur WM 2010, will er sowas wie ein Wettprogramm haben..
so jetzt GUI halbwegs fertig... jetzt wenn man auf Optionen geht, und Mannschaften eintragen, kommt man in ein Fenster, wo ein Edit Feld ist.
Das Edit Feld, lässt die Mannschaften von der Mannschaften.txt aus.. und zeigt sie an.. jetzt will ich wenn man mit der Maus in das Edit Feld klickt, das die eine Mannschaft markiert wird, und das ich damit arbeiten kann, so wie bei Windows
[Blockierte Grafik: http://www.telewerkstatt.at/Bilder/Tipps/win_explorer_ordner_01.jpg]
in dem Beispiel der Ordner MSOCache!!
anbei mein Code: (etwas unübersichtlich)
Spoiler anzeigen
#include <GUIConstantsEx.au3>
#include <Misc.au3>
#include <ButtonConstants.au3>
#include <GUIConstants.au3>
#include <editconstants.au3>
#Include <File.au3>
#include <array.au3>
#include <GuiEdit.au3>
#Region Opt
Opt("GUIOnEventMode", 0) ;0=disabled, 1=OnEvent mode enabled
Opt("GUIResizeMode", 100) ;0=no resizing, <1024 special resizing
#EndRegion Opt
#region GUI
[/autoit] [autoit][/autoit] [autoit]$gui = GUICreate("WM 2010", 600, 480, 100,100)
[/autoit] [autoit][/autoit] [autoit]$datei = GUICtrlCreateMenu("&Datei", -1)
$optionen = GUICtrlCreateMenu("Optionen", -1)
$info = GUICtrlCreateMenu("?", -1)
$beenden = GUICtrlCreateMenuItem("Beenden", $datei)
$eintragen = GUICtrlCreateMenuItem("Mannschaften eintragen", $optionen)
$gruppen = GUICtrlCreateMenuItem ("Gruppeneditor", $optionen)
$wetten = GUICtrlCreateMenuItem ("Wetten", $optionen)
$info1 = GUICtrlCreateMenuItem ("Hilfe", $info)
$button1 = GUICtrlCreateButton("Test", 30, 30, 50, 30)
[/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW)
#EndRegion GUI
_txterstellen()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#Region Main
While 1
$msg = GUIGetMsg()
select
case $msg = $GUI_EVENT_CLOSE
ExitLoop
case $msg = $button1
_msg()
case $msg = $eintragen
_gui2()
case $msg = $info1
_info()
case $msg = $gruppen
_info()
case $msg = $wetten
_info()
case $msg = $beenden
ExitLoop
EndSelect
WEnd
#EndRegion Main
func _msg()
msgbox(1,"Test","Arsch")
EndFunc
func _gui2()
#region GUI2
$gui2 = GUICreate("Mannschaften eintragen", 400, 300, 200, 200)
$2button1= GUICtrlCreateButton("Eintragen", 20, 250, 100, 30) ;Eintragen
$2button2= GUICtrlCreateButton("Entfernen", 150, 250, 100, 30) ;Entfernen
$2button3= GUICtrlCreateButton("Umbenennen", 280, 250, 100, 30) ;Umbenennen
$2button4= GUICtrlCreateButton("Speichern und Zurück", 0, 0, 400, 30) ;Speichern und Zurück
$2input1 = GUICtrlCreateInput("",230, 50, 150, 20)
GUISetFont(12, 10)
$2label1 = GUICtrlCreateLabel("Namen eingeben", 50, 50, 130, 20)
GUISetFont(0)
$2edit1 = GUICtrlCreateEdit("", 20, 90, 360, 140, BitOR($ES_WANTRETURN, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY))
GUISetState(@sw_show)
#endregion GUI2
$zeilen = _FileCountLines("Mannschaften.txt")
for $x = 1 to $zeilen Step 1
$read1 = FileReadLine("Mannschaften.txt", $x)
_GUICtrlEdit_AppendText($2edit1, $read1 & @CRLF)
Next
While 1
$1msg = GUIGetMsg()
select
case $1msg = $GUI_EVENT_CLOSE
ExitLoop
case $1msg = $2button1 ;Eintragen
_eintragen()
case $1msg = $2button2 ;Entfernen
_entfernen()
case $1msg = $2button3 ;Umbenennen
_umbenennen()
case $1msg = $2button4 ;Speichern und Zurück
_speichern()
EndSelect
WEnd
EndFunc
func _txterstellen()
;TXT Datei erstellen
If Not FileOpen("Mannschaften.txt" , 9) Then
MsgBox(4096,"Error", " Datei konnte nicht erstellt werden error:" & @error)
EndIf
;Ende Txt Datei erstellen
EndFunc
func _info()
MsgBox(1,"Info","created by Maximilian")
EndFunc
func _eintragen()
msgbox(1,"Eintragen","Eintragen")
EndFunc
func _entfernen()
msgbox(1,"Entfernen","Entfernen")
EndFunc
func _umbenennen()
msgbox(1,"Umbenennen","Umbenennen")
EndFunc
func _speichern()
msgbox(1,"Speichern","Speichern")
EndFunc
Da ich Neuling bin kommt mir diese Aufgabe wie gerufen!
