Hallo zusammen,
Noch ein schönes neues Jahr an euch alle.
Ich habe Probleme mit einem Kontexttraymenu ich kann es zwar erzeugen aber es lässt sich nicht mit der Maus ausführen.
Dies ist meine guifunktions datei:
C
;Name : guis.au3
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <array.au3>
#include <GuiEdit.au3>
#include <TrayConstants.au3>
func Traymenu()
Local $array[0]
Local $aNames[0]
Local $aRead[0]
Opt("TrayMenuMode", 3)
TraySetClick(16)
TraySetState($TRAY_ICONSTATE_SHOW)
_ArrayAdd($array,TrayCreateItem("Akte Suchen"))
_ArrayAdd($aNames, 'Button01')
_ArrayAdd($aRead, GUICtrlRead($array[0], 1))
_ArrayAdd($array,TrayCreateItem(""))
_ArrayAdd($aNames, 'leer')
_ArrayAdd($aRead, GUICtrlRead($array[1], 1))
_ArrayAdd($array,TrayCreateItem("Gesamter Verlauf"))
_ArrayAdd($aNames, 'Button02')
_ArrayAdd($aRead, GUICtrlRead($array[2], 1))
_ArrayAdd($array,TrayCreateItem("Gesamte Datenbank"))
_ArrayAdd($aNames, 'Button03')
_ArrayAdd($aRead, GUICtrlRead($array[3], 1))
_ArrayAdd($array,TrayCreateItem(""))
_ArrayAdd($aNames, 'leer')
_ArrayAdd($aRead, GUICtrlRead($array[4], 1))
_ArrayAdd($array,TrayCreateItem("About"))
_ArrayAdd($aNames, 'Button03')
_ArrayAdd($aRead, GUICtrlRead($array[5], 1))
_ArrayAdd($array,TrayCreateItem(""))
_ArrayAdd($aNames, 'leer')
_ArrayAdd($aRead, GUICtrlRead($array[6], 1))
_ArrayAdd($array,TrayCreateItem("Beenden"))
_ArrayAdd($aNames, 'Button03')
_ArrayAdd($aRead, GUICtrlRead($array[7], 1))
TraySetState($TRAY_ICONSTATE_SHOW) ; Show the tray menu.
$array = element_list($array, $aNames, $aRead, 4)
Return $array
EndFunc
Func main($alabel, $aButton, $aEdit)
Local $array[0]
Local $aNames[0]
Local $aRead[0]
_ArrayAdd($array, GUICreate($alabel[0], 612, 439, 148, 189))
_ArrayAdd($aNames, 'Form Handle')
_ArrayAdd($aRead, GUICtrlRead($array[0], 1))
_ArrayAdd($array, GUICtrlCreateEdit("", 144, 64, 465, 369))
GUICtrlSetData(-1, $aEdit[0])
_ArrayAdd($aNames, 'Editbox')
_ArrayAdd($aRead, GUICtrlRead($array[1], 1))
_ArrayAdd($array, GUICtrlCreateButton($aButton[0], 24, 272, 113, 25))
_ArrayAdd($aNames, 'Button')
_ArrayAdd($aRead, GUICtrlRead($array[2], 1))
_ArrayAdd($array, GUICtrlCreateButton($aButton[1], 24, 312, 113, 25))
_ArrayAdd($aNames, 'Button')
_ArrayAdd($aRead, GUICtrlRead($array[3], 1))
_ArrayAdd($array, GUICtrlCreateButton($aButton[2], 24, 352, 113, 25))
_ArrayAdd($aNames, 'Button')
_ArrayAdd($aRead, GUICtrlRead($array[4], 1))
_ArrayAdd($array, GUICtrlCreateButton($aButton[3], 24, 392, 113, 25))
_ArrayAdd($aNames, 'Button')
_ArrayAdd($aRead, GUICtrlRead($array[5], 1))
_ArrayAdd($array, GUICtrlCreateButton($aButton[4], 448, 32, 153, 25))
_ArrayAdd($aNames, 'Button')
_ArrayAdd($aRead, GUICtrlRead($array[6], 1))
_ArrayAdd($array, GUICtrlCreateLabel($alabel[1], 16, 16, 36, 17))
_ArrayAdd($aNames, 'Label')
_ArrayAdd($aRead, GUICtrlRead($array[7], 1))
_ArrayAdd($array, TrayCreateItem("Akte Suchen"))
_ArrayAdd($aNames, 'erqewrqewr')
_ArrayAdd($aRead, GUICtrlRead($array[8], 1))
GUISetState(@SW_HIDE)
$array = element_list($array, $aNames, $aRead, 4)
Return $array
EndFunc ;==>main
Func viewlist($alabel, $aButton, $aViewlist)
Local $array[0]
Local $aNames[0]
Local $aRead[0]
_ArrayAdd($array, GUICreate($alabel[0], 1606, 370, 143, 293))
_ArrayAdd($aNames, 'Form Handle')
_ArrayAdd($aRead, GUICtrlRead($array[0], 1))
_ArrayAdd($array, GUICtrlCreateLabel($alabel[1], 32, 16, 36, 17))
_ArrayAdd($aNames, 'Label')
_ArrayAdd($aRead, GUICtrlRead($array[1], 1))
_ArrayAdd($array, GUICtrlCreateListView($aViewlist[0], 0, 48, 1601, 321))
_ArrayAdd($aNames, 'viewlist')
_ArrayAdd($aRead, GUICtrlRead($array[2], 1))
_ArrayAdd($array, GUICtrlCreateButton($aButton[0], 480, 16, 193, 25))
_ArrayAdd($aNames, 'Button')
_ArrayAdd($aRead, GUICtrlRead($array[3], 1))
_ArrayAdd($array, GUICtrlCreateButton($aButton[1], 704, 16, 225, 25))
_ArrayAdd($aNames, 'Button')
_ArrayAdd($aRead, GUICtrlRead($array[4], 1))
_ArrayAdd($array, GUICtrlCreateButton($aButton[2], 960, 16, 209, 25))
_ArrayAdd($aNames, 'Button')
_ArrayAdd($aRead, GUICtrlRead($array[5], 1))
_ArrayAdd($array, GUICtrlCreateButton($aButton[3], 1344, 16, 241, 25))
_ArrayAdd($aNames, 'Button')
_ArrayAdd($aRead, GUICtrlRead($array[6], 1))
GUISetState(@SW_HIDE)
$array = element_list($array, $aNames, $aRead, 4)
Return $array
EndFunc ;==>viewlist
Func info($alabel)
Local $array[0]
Local $aNames[0]
Local $aRead[0]
_ArrayAdd($array, GUICreate($alabel[0], 220, 40, 1691, 968))
_ArrayAdd($aNames, 'Form Handle')
_ArrayAdd($aRead, GUICtrlRead($array[0], 1))
_ArrayAdd($array, GUICtrlCreateLabel($alabel[1], 8, 8, 500, 50))
_ArrayAdd($aNames, 'Variables Label')
_ArrayAdd($aRead, GUICtrlRead($array[1], 1))
GUISetState(@SW_HIDE)
$array = element_list($array, $aNames, $aRead, 4)
Return $array
EndFunc ;==>info
Func bestaetigen($alabel, $ainput, $aButton, $aCombo)
Local $array[0]
Local $aNames[0]
Local $aRead[0]
_ArrayAdd($array, GUICreate($alabel[0], 363, 480, 296, 125))
_ArrayAdd($aNames, 'Handle')
_ArrayAdd($aRead, GUICtrlRead($array[0], 1))
_ArrayAdd($array, GUICtrlCreateCombo("", 8, 16, 121, 25)) ;BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))$ES_CENTER
GUICtrlSetData(-1, $aCombo[0])
_ArrayAdd($aNames, 'Combobox')
_ArrayAdd($aRead, GUICtrlRead($array[1], 1))
_ArrayAdd($array, GUICtrlCreateInput($ainput[0], 152, 16, 89, 21))
_ArrayAdd($aNames, 'Inputbox objn')
_ArrayAdd($aRead, GUICtrlRead($array[2], 1))
_ArrayAdd($array, GUICtrlCreateInput($ainput[1], 32, 80, 233, 21, BitOR($ES_CENTER, '')))
_ArrayAdd($aNames, 'Inputbox ONLY COPY')
_ArrayAdd($aRead, GUICtrlRead($array[3], 1))
_ArrayAdd($array, GUICtrlCreateInput($ainput[2], 32, 136, 233, 21, BitOR($ES_CENTER, '')))
_ArrayAdd($aNames, 'Inputbox ONLY COPY')
_ArrayAdd($aRead, GUICtrlRead($array[4], 1))
_ArrayAdd($array, GUICtrlCreateInput($ainput[3], 32, 200, 233, 21, BitOR($ES_CENTER, '')))
_ArrayAdd($aNames, 'Inputbox ONLY COPY')
_ArrayAdd($aRead, GUICtrlRead($array[5], 1))
_ArrayAdd($array, GUICtrlCreateInput($ainput[4], 30, 264, 233, 21, BitOR($ES_CENTER, '')))
_ArrayAdd($aNames, 'Inputbox ONLY COPY')
_ArrayAdd($aRead, GUICtrlRead($array[6], 1))
_ArrayAdd($array, GUICtrlCreateInput($ainput[5], 32, 336, 233, 21, BitOR($ES_CENTER, '')))
_ArrayAdd($aNames, 'Inputbox ONLY COPY')
_ArrayAdd($aRead, GUICtrlRead($array[7], 1))
_ArrayAdd($array, GUICtrlCreateInput($ainput[6], 30, 398, 233, 21, BitOR($ES_CENTER, '')))
_ArrayAdd($aNames, 'Inputbox ONLY COPY')
_ArrayAdd($aRead, GUICtrlRead($array[8], 1))
_ArrayAdd($array, GUICtrlCreateLabel($alabel[1], 32, 56, 200, 17))
_ArrayAdd($aNames, 'Label')
_ArrayAdd($aRead, GUICtrlRead($array[9], 1))
_ArrayAdd($array, GUICtrlCreateLabel($alabel[2], 32, 114, 200, 17))
_ArrayAdd($aNames, 'Label')
_ArrayAdd($aRead, GUICtrlRead($array[10], 1))
_ArrayAdd($array, GUICtrlCreateLabel($alabel[3], 32, 176, 200, 17))
_ArrayAdd($aNames, 'Label')
_ArrayAdd($aRead, GUICtrlRead($array[11], 1))
_ArrayAdd($array, GUICtrlCreateLabel($alabel[4], 32, 240, 200, 17))
_ArrayAdd($aNames, 'Label')
_ArrayAdd($aRead, GUICtrlRead($array[12], 1))
_ArrayAdd($array, GUICtrlCreateLabel($alabel[5], 32, 304, 200, 17))
_ArrayAdd($aNames, 'Label')
_ArrayAdd($aRead, GUICtrlRead($array[13], 1))
_ArrayAdd($array, GUICtrlCreateLabel($alabel[6], 32, 375, 200, 17))
_ArrayAdd($aNames, 'Label')
_ArrayAdd($aRead, GUICtrlRead($array[14], 1))
_ArrayAdd($array, GUICtrlCreateLabel("", 136, 56, 124, 17))
_ArrayAdd($aNames, 'Labelvariabel')
_ArrayAdd($aRead, GUICtrlRead($array[15], 1))
_ArrayAdd($array, GUICtrlCreateButton($aButton[0], 272, 16, 75, 25))
_ArrayAdd($aNames, 'Button')
_ArrayAdd($aRead, GUICtrlRead($array[16], 1))
_ArrayAdd($array, GUICtrlCreateButton($aButton[1], 32, 440, 97, 25))
_ArrayAdd($aNames, 'Button')
_ArrayAdd($aRead, GUICtrlRead($array[17], 1))
_ArrayAdd($array, GUICtrlCreateButton($aButton[2], 208, 440, 139, 25))
_ArrayAdd($aNames, 'Button')
_ArrayAdd($aRead, GUICtrlRead($array[18], 1))
_ArrayAdd($array, GUICtrlCreateLabel($alabel[7], 152, 56, 150, 17))
_ArrayAdd($aNames, 'datum+uhr+label')
_ArrayAdd($aRead, GUICtrlRead($array[19], 1))
GUISetState(@SW_HIDE)
$array = element_list($array, $aNames, $aRead, 4)
Return $array
EndFunc ;==>bestaetigen
Func element_list($array, $aArray01, $aArray02, $iO)
$iCount = UBound($array)
Local $a2Dresult[$iCount][$iO]
For $i = 0 To $iCount - 1 Step 1
$a2Dresult[$i][0] = $array[$i]
$a2Dresult[$i][1] = $aArray01[$i]
$a2Dresult[$i][2] = $aArray02[$i]
$a2Dresult[$i][3] = $i
;~ $a2Dresult[$i][2] = $aArray02[$i]
Next
Return $a2Dresult
EndFunc ;==>element_list
Alles anzeigen
Und dies hier ist mein Code wo die schleife mit drinnen enthalten ist :
Code
#include <guis.au3>
;Traymenu funktion (gui)
$TM = Traymenu()
#Region GUI-Funktionen werden gestartet
;main variabeln,main funktion(gui)
Global $alabel_main[2] = ["1", "2"], $aButton_main[5] = ["1", "2", "3", "4", "5"], $aEdit_main[1] = ["1"]
$gui_1 = main($alabel_main, $aButton_main, $aEdit_main)
;bestaetigenlist variabeln,bestaetigenlist funktion(gui)
Global $alabel_bestaetigen[8] = ["GUI 4", "Safebagnummer", "Schlüsselplombe", "alte Safebagnummer", "alte Schlüsselplombe", "NSLStatus", "Programminterne ID", ""]
Global $ainput_bestaetigen[7] = ["", "ai1", "ai1", "ai1", "ai1", "ai1", "ai1"], $aButton_bestaetigen[3] = ["", "", ""], $aCombo_bestaetigen[1] = [""]
$gui_2 = bestaetigen($alabel_bestaetigen, $ainput_bestaetigen, $aButton_bestaetigen, $aCombo_bestaetigen)
;viewlist variabeln,viewlist funktion(gui)
Global $alabel_viewlist[2] = ["1", "2"], $aButton_viewlist[4] = ["1", "2", "3", "4"], $aViewlist_viewlist[1] = ["1"]
$gui_3 = viewlist($alabel_viewlist, $aButton_viewlist, $aViewlist_viewlist)
;infolist variabeln,infolist funktion(gui)
Global $alabel_info[2] = ["1", "2"]
$gui_4 = info($alabel_info)
#EndRegion GUI-Funktionen werden gestartet
#Region Handels & Dynamischeelement werden hier in Arrays geschrieben, sowie Buttens zusammengefasst
;Erstelle alle Handels
Global $ahandels_fenster[0]
_ArrayAdd($ahandels_fenster, $gui_1[0][0])
_ArrayAdd($ahandels_fenster, $gui_2[0][0])
_ArrayAdd($ahandels_fenster, $gui_3[0][0])
_ArrayAdd($ahandels_fenster, $gui_4[0][0])
;~ _ArrayDisplay($ahandels_fenster, 'handels')
;Dynamische Labels erstellen
Global $alabels_dynamic[0]
_ArrayAdd($alabels_dynamic, $gui_2[19][0])
_ArrayAdd($alabels_dynamic, $gui_4[1][0])
;~ _ArrayDisplay($alabels_dynamic, 'Dynamische Labels')
;Dynamische Inputboxen erstellen
Global $ainput_dynamic[0]
_ArrayAdd($ainput_dynamic, $gui_2[3][0])
_ArrayAdd($ainput_dynamic, $gui_2[4][0])
_ArrayAdd($ainput_dynamic, $gui_2[5][0])
_ArrayAdd($ainput_dynamic, $gui_2[6][0])
_ArrayAdd($ainput_dynamic, $gui_2[7][0])
_ArrayAdd($ainput_dynamic, $gui_2[8][0])
;~ _ArrayDisplay($ainput_dynamic, '$ainput_dynamic')
;Buttonsid erstellen
Global $aButton[0]
_ArrayAdd($aButton, $gui_1[2][0])
_ArrayAdd($aButton, $gui_1[3][0])
_ArrayAdd($aButton, $gui_1[4][0])
_ArrayAdd($aButton, $gui_1[5][0])
_ArrayAdd($aButton, $gui_1[6][0])
_ArrayAdd($aButton, $gui_1[7][0])
_ArrayAdd($aButton, $gui_2[16][0])
_ArrayAdd($aButton, $gui_2[17][0])
_ArrayAdd($aButton, $gui_2[18][0])
_ArrayAdd($aButton, $gui_3[3][0])
_ArrayAdd($aButton, $gui_3[4][0])
_ArrayAdd($aButton, $gui_3[5][0])
_ArrayAdd($aButton, $gui_3[6][0])
_ArrayAdd($aButton, $gui_4[1][0]) ;label als Butten deklariert.
#EndRegion Handels & Dynamischeelement werden hier in Arrays geschrieben, sowie Buttens zusammengefasst
Func Terminate()
Exit
EndFunc ;==>Terminate
Opt("TrayMenuMode", 3)
TraySetClick(16)
#Region While schleife
While (1)
$aMsg = GUIGetMsg($GUI_EVENT_ARRAY)
Switch $aMsg[1]
Case $ahandels_fenster[0]
Switch $aMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $aMsg = $GUI_EVENT_MINIMIZE
Case $aButton[0]
Case $aButton[1]
Case $aButton[2]
Case $aButton[3]
Case $aButton[4]
Case $aButton[5]
EndSwitch
Case $ahandels_fenster[1]
Switch $aMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $aButton[6]
Case $aButton[7]
Case $aButton[8]
EndSwitch
Case $ahandels_fenster[2]
Switch $aMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $aButton[9]
Case $aButton[10]
Case $aButton[11]
Case $aButton[12]
EndSwitch
Case $ahandels_fenster[3]
Switch $aMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $aButton[13]
EndSwitch
#Region funktioniert nicht
;ab hier wollte ich befehle für das Traymenu aufrufen lassen
Select $TM
Case $TM[0][0]
MsgBox(1, '', 'testtraymenu')
EndSelect
EndSwitch
#EndRegion
WEnd
#EndRegion While schleife
Alles anzeigen
Region -funktioniert nicht-
ist markiert^^
könnte mir bitte jemand damit helfen?
Ich weiß leider nicht wie ich das schreiben soll damit es funktioniert und ich nicht alles andere umschreiben muss^^.
Habe schon ein paar Möglichkeiten getestet es schlug leider immer fehl.