Das habe ich nun geändet, leider wird mir der Inhalt der Datei immer noch nicht angezeigt.
Wenn ich nun oben die ganzen Steuerelemente auf die erste Gui, oder kopiere und dann das kopierte auf die erste Gui setze,
so dass mir 2 Guis angezeigt werden, dann wird mir die Datei nur in der ersten Gui angezeigt und nicht in der 7ten..
Code: Select all
#Singleinstance force
F1= Mitarbeiter.csv ;Welche Datei wird abgerufen?
Gui, 7:Font, Arial ;Schriftart ggf. anpassen?
T1=60 ;column1 width
T2=60 ;column2 width
T3=60 ;column3 width
T4=75 ;column4 width
T5=150 ;column5 width
T6=100 ;column6 width
T1A:=T1
T2A:=T1+T2
T3A:=T1+T2+T3
T4A:=T1+T2+T3+T4
T5A:=T1+T2+T3+T4+T5
T6A:=T1+T2+T3+T4+T5+T6 ;listview width
T5B:=T6A+40 ;guishow width
Gui, 7:Font, S12 Bold,
Gui, 7:Add, Text,, Vorgesetzter oder Ansprechpartner direkt suchen
Gui, 7:Font, ,
Gui, 7:Add, Text,, Ist der gesuchte Vorgesetzte gefunden, bitte auf die E-Mailadresse doppelt Klicken um ihn anzuschreiben!
Gui, 7:Font, Bold,
Gui, 7:Font, S8 Bold,
Gui, 7:Font, ,
Gui, 7:Add, ListView,grid r1 w730 0x200000 -hscroll -vscroll altsubmit vMyListView gMyListView, Anrede|Vorname|Nachname|Position|E-Mail|Telefonnummer| ;Die Variable R steht für die Rows-Anzahl (Default 12 für PG)
Gui, 7:Add , Text, w180 h20, Suchfunktion (Name eingeben):
Gui, 7:Color,, yellow
Gui, 7:Add , Edit, w150 h20 vURLX gSEARCH1 border, ;Suchfunktion
Gui, 7:Add,Button,default x0 y0 w0 h0 gSEARCH1 , ;Suchfunktion
gui, 7:show
Gui, Font, S12 Bold,
Gui, Add, Text,, Vorgesetzter oder Ansprechpartner direkt suchen
Gui, Font, ,
Gui, Add, Text,, Ist der gesuchte Vorgesetzte gefunden, bitte auf die E-Mailadresse doppelt Klicken um ihn anzuschreiben!
Gui, Font, Bold,
Gui, Font, S8 Bold,
Gui, Font, ,
Gui, Add, ListView,grid r1 w730 0x200000 -hscroll -vscroll altsubmit vMyListView gMyListView, Anrede|Vorname|Nachname|Position|E-Mail|Telefonnummer| ;Die Variable R steht für die Rows-Anzahl (Default 12 für PG)
Gui, Add , Text, w180 h20, Suchfunktion (Name eingeben):
Gui, Color,, yellow
Gui, Add , Edit, w150 h20 vURLX gSEARCH1 border, ;Suchfunktion
Gui, Add,Button,default x0 y0 w0 h0 gSEARCH1 , ;Suchfunktion
gui, show
LV_ModifyCol(1,T1)
LV_ModifyCol(2,T2)
LV_ModifyCol(3,T3)
LV_ModifyCol(4,T4)
LV_ModifyCol(5,T5)
LV_ModifyCol(6,T6)
Gui, 7:Font, S8 cwhite, Arial
Gui, 7:Add, Edit, w%T6A% h0 ReadOnly vC,
gosub,LB1
LB1:
Gui, 1:default
Gui,7:Listview,Mylistview
LV_Delete()
loop,read, %F1%,
{
stringsplit,BX,A_LoopReadLine,`;,
LV_Add("",BX1,BX2,BX3,BX4,BX5,BX6)
}
return
MyListView:
GuiControlGet, MyListView
if A_GuiEvent = Normal
{
LV_GetText(C1,A_EventInfo,1)
LV_GetText(C2,A_EventInfo,2)
GuiControl,7: ,C,%C1% %C2%
}
;Doppelklick Möglich!
if A_GuiEvent = DoubleClick
{
MouseGetPos,x,y
{
if x<%T1A%
return
if x<%T2A%
return
if x<%T3A%
return
if x<%T4A%
return
;E-Mail Adresse verschicken
if x<%T5A%
{
DATES=%A_DD%-%A_MM%-%A_YYYY%
LV_GetText(C5,A_EventInfo,5)
stringsplit,CX,C5,`@,
run,mailto:%C5%?
return
}
if x<%T6A%
{
DATES=%A_DD%-%A_MM%-%A_YYYY%
LV_GetText(C6,A_EventInfo,6)
run,tel:%C6%
return
}
}
}
return
;---- Liest die Datei aus ---------------
SEARCH1:
Gui,7:submit,nohide
if URLX=
gosub,LB1
RF:=LV_GetNext("F")
RF:=1
Loop % LV_GetCount()
{
LV_GetText(C3,RF,3)
CX=%C1% %C2% %C3%
ifinstring,CX,%URLX%
{
RF:=(RF+1)
continue
}
LV_Delete(RF)
}
return
;--- Liest die Zeile ----
SEARCH2:
Gui,7:submit,nohide
LV_Delete()
loop,read, %F1%
{
LR=%A_loopreadline%
stringsplit,C,LR,`;,
CX=%C1% %C2% %C3%
ifinstring,CX,%URLX%
{
LV_Add("",C1,C2,C3)
}
}
return