Moin Leute, ich bedanke mich jetzt schon mal für eure Hilfe und komme jetzt zu meiner Frage:
ich habe ein scrip gefunden (scrip im anhang), das einige funktion hat die ich gerne in meiner gui einfügen würde.
Nur leider habe ich nicht viel ahnung über array displays etc. bin neu einsteiger hier und hoffe ihr könnt mir helfen wie ich sie umwandeln kann oder änliches, falls sowas geht
Arrays Umwandeln
-
xXIVXx -
21. Juni 2017 um 09:23 -
Erledigt
-
-
Nur leider habe ich nicht viel ahnung über array displays etc. bin neu einsteiger hier und hoffe ihr könnt mir helfen wie ich sie umwandeln kann
Was gibt es da umzuwandeln? Du hast die Daten doch schon in einem Array gespeichert.
Wenn du sie in einer GUI anzeigen willst kannst du das z.B. mit einer ListView machen und die Daten vom Array in das ListView übergeben. -
ok danke werde ich gleich probieren. bin halt noch sehr unerfahren
-
so unerfahren und dann direkt mit einem Array starten? Respekt
-
ok danke werde ich gleich probieren. bin halt noch sehr unerfahren
Dann solltest du mal die Grundlagen durcharbeiten, wenn du von Arrays keine Ahnung ist. Das ist eines der elementarsten Bestandteile.
Etwa so kannst du es dann einbauen:
AutoIt
Alles anzeigen#include <Array.au3> $iTimer = TimerInit() $aAdapter = _Win32NetworkAdapter() #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 1115, 167, 192, 124) $ListView1 = GUICtrlCreateListView("Hersteller|Name|Adapter-Typ|Kennung|MAC-Adresse|Adresstyp|DHCP-Server|IP erhalten|IP läuft ab|IP-Adresse|Subnetzmaske|Standardgateway", 8, 8, 1098, 150) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 70) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 130) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 6, 80) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 7, 70) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 8, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 9, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 10, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 11, 100) For $i = 1 To UBound($aAdapter) - 1 $sString = "" For $j = 0 To UBound($aAdapter, 2) - 1 $sString &= $aAdapter[$i][$j] & "|" Next $sString = StringTrimRight($sString, 1) GUICtrlCreateListViewItem($sString, $ListView1) Next GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func _Win32NetworkAdapter($strComputer = 'Localhost') Local $aReturn[1][12] = [[ _ 'Hersteller:', 'Name:', 'Adapter-Typ:', 'Kennung:', _ 'MAC-Adresse:', 'Adresstyp:', 'DHCP-Server:', 'IP erhalten:', _ 'IP läuft ab:', 'IP-Adresse:', 'Subnetzmaske:', 'Standardgateway:']] Local $x = 0, $objWMIService, $colItems $objWMIService = ObjGet('winmgmts:\\' & $strComputer & '\') If Not IsObj($objWMIService) Then Return SetError(1, 0, 0) $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE Netconnectionstatus = 2', 'WQL', 0x30) If Not IsObj($colItems) Then Return SetError(2, 0, 0) For $objItem In $colItems $x += 1 ReDim $aReturn[$x + 1][12] $aReturn[$x][0] = $objItem.Manufacturer $aReturn[$x][1] = $objItem.Name $aReturn[$x][2] = $objItem.AdapterType $aReturn[$x][3] = $objItem.NetConnectionID $aReturn[$x][4] = $objItem.MACAddress $colItems2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration', 'WQL', 0x30) If IsObj($colItems2) Then For $objItem2 In $colItems2 If $objItem.Caption = $objItem2.Caption Then If $objItem2.IPEnabled = -1 Then If $objItem2.DHCPEnabled = -1 Then $aReturn[$x][5] = 'von DHCP zugewiesen' $aReturn[$x][6] = $objItem2.DHCPServer $aReturn[$x][7] = _WMIDateStringToDate($objItem2.DHCPLeaseObtained) $aReturn[$x][8] = _WMIDateStringToDate($objItem2.DHCPLeaseExpires) Else $aReturn[$x][5] = 'Manuell konfiguriert' EndIf $aReturn[$x][9] = $objItem2.IPAddress(0) $aReturn[$x][10] = $objItem2.IPSubnet(0) $aReturn[$x][11] = $objItem2.DefaultIPGateway(0) EndIf EndIf Next EndIf Next Return $aReturn EndFunc ;==>_Win32NetworkAdapter Func _WMIDateStringToDate($dtmDate) Return (StringMid($dtmDate, 5, 2) & '/' & _ StringMid($dtmDate, 7, 2) & '/' & StringLeft($dtmDate, 4) _ & ' ' & StringMid($dtmDate, 9, 2) & ':' & StringMid($dtmDate, 11, 2) & ':' & StringMid($dtmDate, 13, 2)) EndFunc ;==>_WMIDateStringToDate
-
so unerfahren und dann direkt mit einem Array starten? Respekt
ja ein versuch ist es wert.
ich kann ja auch vieleicht mal vorstellen was ich überhaupt vorhabe.
es soll ein Diagnose tool werden, das einmal die hardware info weitergibt und zusätzlich verbindungen überprüft. zb ob ein gewisser server erreichbar ist oder nicht.Dann solltest du mal die Grundlagen durcharbeiten, wenn du von Arrays keine Ahnung ist. Das ist eines der elementarsten Bestandteile.
Etwa so kannst du es dann einbauen:AutoIt
Alles anzeigen#include <Array.au3> $iTimer = TimerInit() $aAdapter = _Win32NetworkAdapter() #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 1115, 167, 192, 124) $ListView1 = GUICtrlCreateListView("Hersteller|Name|Adapter-Typ|Kennung|MAC-Adresse|Adresstyp|DHCP-Server|IP erhalten|IP läuft ab|IP-Adresse|Subnetzmaske|Standardgateway", 8, 8, 1098, 150) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 70) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 130) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 6, 80) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 7, 70) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 8, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 9, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 10, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 11, 100) For $i = 1 To UBound($aAdapter) - 1 $sString = "" For $j = 0 To UBound($aAdapter, 2) - 1 $sString &= $aAdapter[$i][$j] & "|" Next $sString = StringTrimRight($sString, 1) GUICtrlCreateListViewItem($sString, $ListView1) Next GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func _Win32NetworkAdapter($strComputer = 'Localhost') Local $aReturn[1][12] = [[ _ 'Hersteller:', 'Name:', 'Adapter-Typ:', 'Kennung:', _ 'MAC-Adresse:', 'Adresstyp:', 'DHCP-Server:', 'IP erhalten:', _ 'IP läuft ab:', 'IP-Adresse:', 'Subnetzmaske:', 'Standardgateway:']] Local $x = 0, $objWMIService, $colItems $objWMIService = ObjGet('winmgmts:\\' & $strComputer & '\') If Not IsObj($objWMIService) Then Return SetError(1, 0, 0) $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE Netconnectionstatus = 2', 'WQL', 0x30) If Not IsObj($colItems) Then Return SetError(2, 0, 0) For $objItem In $colItems $x += 1 ReDim $aReturn[$x + 1][12] $aReturn[$x][0] = $objItem.Manufacturer $aReturn[$x][1] = $objItem.Name $aReturn[$x][2] = $objItem.AdapterType $aReturn[$x][3] = $objItem.NetConnectionID $aReturn[$x][4] = $objItem.MACAddress $colItems2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration', 'WQL', 0x30) If IsObj($colItems2) Then For $objItem2 In $colItems2 If $objItem.Caption = $objItem2.Caption Then If $objItem2.IPEnabled = -1 Then If $objItem2.DHCPEnabled = -1 Then $aReturn[$x][5] = 'von DHCP zugewiesen' $aReturn[$x][6] = $objItem2.DHCPServer $aReturn[$x][7] = _WMIDateStringToDate($objItem2.DHCPLeaseObtained) $aReturn[$x][8] = _WMIDateStringToDate($objItem2.DHCPLeaseExpires) Else $aReturn[$x][5] = 'Manuell konfiguriert' EndIf $aReturn[$x][9] = $objItem2.IPAddress(0) $aReturn[$x][10] = $objItem2.IPSubnet(0) $aReturn[$x][11] = $objItem2.DefaultIPGateway(0) EndIf EndIf Next EndIf Next Return $aReturn EndFunc ;==>_Win32NetworkAdapter Func _WMIDateStringToDate($dtmDate) Return (StringMid($dtmDate, 5, 2) & '/' & _ StringMid($dtmDate, 7, 2) & '/' & StringLeft($dtmDate, 4) _ & ' ' & StringMid($dtmDate, 9, 2) & ':' & StringMid($dtmDate, 11, 2) & ':' & StringMid($dtmDate, 13, 2)) EndFunc ;==>_WMIDateStringToDate
ok :D:D:D:D ok ich versuchs
-
-
Ich traue mich kaum zu antworten. Immerhin machst du ziemlich deutlich, dass alpines schreiben soll
Weißt du nicht wie du auf einzelne Array-Elemente zugreifen kannst?
$aArray[0] = Wert der ersten Zeile eines eindimensionalen Arrays.
$aArray[0][0] = Wert der ersten Zeile und ersten Spalte eines zweidimensionalen ArraysLies besser zuerst das Array-Tutorial von BugFix.
Den Wert eines bestehenden Labels kannst du mit GUICtrlSetData ändern.
-
das ist meine GUI in der ich die Funktion haben will
Code
Alles anzeigen#Region ### START Koda GUI section ### Form=c:\users\zickert.thomas\documents\diagnose.kxf $Fenster = GUICreate("Netzwerk Diagnose", 1306, 938, 808, 240) GUISetFont(14, 400, 0, "Arial") $Gereateinfo = GUICtrlCreateGroup("Geräte Info", 24, 24, 425, 169) GUICtrlSetFont(-1, 20, 400, 0, "Arial") $Rechnernamefrage = GUICtrlCreateLabel("Rechnername:", 40, 80, 182, 36) $Rechnernameant = GUICtrlCreateLabel(@ComputerName, 210, 80, 85, 36) $Windowsver = GUICtrlCreateLabel("Windows Version:", 40, 136, 223, 36) $winverantwort = GUICtrlCreateLabel(@OSVersion,210, 136, 85, 36) ;tab2 $Adapterinfo = GUICtrlCreateGroup("Adapter Info", 24, 224, 425, 193) GUICtrlSetFont(-1, 20, 400, 0, "Arial") $Lan = GUICtrlCreateLabel("LAN:", 40, 288, 64, 36) $LA = GUICtrlCreateIcon("C:\Users\zickert.thomas\Downloads\lan_icon.ico", -1, 112, 280, 49, 49) $lanantwort = GUICtrlCreateLabel("Verbunden", 208, 288, 135, 36) $Wlanfrage = GUICtrlCreateLabel("WLAN:", 40, 344, 92, 36) $Wlan = GUICtrlCreateIcon("C:\Users\zickert.thomas\Downloads\wlan-icon-6.ico", -1, 136, 336, 49, 49) $wlanantwort = GUICtrlCreateLabel("Nicht Verbunden", 208, 344, 205, 36) ;tab3 $Netzwekinfo = GUICtrlCreateGroup("Netzwerkinfo", 504, 24, 777, 393) GUICtrlSetFont(-1, 20, 400, 0, "Arial") $ipadresse = GUICtrlCreateLabel("IP Adresse:", 520, 80, 145, 36) $macadresse = GUICtrlCreateLabel("MAC Adresse:", 520, 136, 181, 36) $adresstyp = GUICtrlCreateLabel("Adresstyp:", 520, 192, 134, 36) $dhcpserver = GUICtrlCreateLabel("DHCP-Server:", 520, 248, 177, 36) $standardgateway = GUICtrlCreateLabel("Standardgateway:", 520, 304, 223, 36) $SSID = GUICtrlCreateLabel("SSID:", 520, 360, 76, 36) $ipantwort = GUICtrlCreateLabel(@IPAddress1, 765, 79, 145, 36) $macantwort = GUICtrlCreateLabel("antwort",765, 135, 144, 36) $Adapterantwort = GUICtrlCreateLabel("von DHCP zugewiesen", 765, 191, 445, 36) $dhcpantwort = GUICtrlCreateLabel(@LogonDNSDomain & @LogonServer, 765, 247, 145, 36) $standardgatewa = GUICtrlCreateLabel("gate", 765, 303, 145, 36) $ssidantwort = GUICtrlCreateLabel("IP Adresse:", 765, 359, 145, 36) ;tab4 $serverdiagnose = GUICtrlCreateGroup("Server", 24, 496, 577, 393, -1, $WS_EX_TRANSPARENT) GUICtrlSetFont($serverdiagnose, 20, 400, 0, "Arial") $DC1 = GUICtrlCreateLabel("Domain Controller 1:", 40, 552, 254, 36) $DC2 = GUICtrlCreateLabel("Domain Controller 2:", 40, 608, 254, 36) $Xserve = GUICtrlCreateLabel("XSERVE:", 40, 664, 120, 36) $Datev = GUICtrlCreateLabel("Datev Server:", 40, 720, 170, 36) $Zeus = GUICtrlCreateLabel("Zeus Server:", 40, 776, 160, 36) $Easylog = GUICtrlCreateLabel("Easylog Server:", 40, 832, 196, 36) $Dc1antwort = GUICtrlCreateLabel("erreichbar", 320, 552, 126, 36) $dc2antwort = GUICtrlCreateLabel("erreichbar", 316, 608, 126, 36) $xserveantwort = GUICtrlCreateLabel("erreichbar", 316, 664, 126, 36) $datevantwort = GUICtrlCreateLabel("erreichbar", 316, 720, 126, 36) $zeusantwort = GUICtrlCreateLabel("nicht erreichbar", 316, 776, 192, 36) $easylogantwort = GUICtrlCreateLabel("erreichbar", 316, 832, 126, 36) $Netwerkdiagnose = GUICtrlCreateLabel("Netzwerk Diagnose", 480, 448, 239, 36) ;tab5 $DNS = GUICtrlCreateGroup("DNS", 664, 496, 617, 393) GUICtrlSetFont(-1, 20, 400, 0, "Arial") $hauptdns = GUICtrlCreateLabel("Haupt DNS Server:", 680, 552, 236, 36) $GBDCHAT = GUICtrlCreateLabel("GBD Chat:", 680, 608, 137, 36) $Goofle = GUICtrlCreateLabel("Google:", 680, 664, 99, 36) $Label1 = GUICtrlCreateLabel("antworthaupt", 944, 552, 161, 36) $gbdhactantwort = GUICtrlCreateLabel("Haupt DNS Server:", 944, 608, 236, 36) $googleantwort = GUICtrlCreateLabel("Haupt DNS Server:", 944, 664, 236, 36) ;tab6 $INFO = GUICtrlCreateGroup("", 24, 888, 1257, 41) $Label2 = GUICtrlCreateLabel("Autor: Thomas ", 48, 904, 147, 21) GUICtrlSetFont(-1, 11, 400, 0, "Arial") $Label3 = GUICtrlCreateLabel("Version 1.4", 1176, 904, 84, 22) GUICtrlSetFont(-1, 12, 400, 0, "Arial") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd
-
Die fuktion soll rein
C
Alles anzeigen#include <Array.au3> $iTimer = TimerInit() $aAdapter = _Win32NetworkAdapter() #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 1115, 167, 192, 124) $ListView1 = GUICtrlCreateListView("Hersteller|Name|Adapter-Typ|Kennung|MAC-Adresse|Adresstyp|DHCP-Server|IP erhalten|IP läuft ab|IP-Adresse|Subnetzmaske|Standardgateway", 8, 8, 1098, 150) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 70) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 130) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 6, 80) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 7, 70) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 8, 60) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 9, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 10, 100) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 11, 100) For $i = 1 To UBound($aAdapter) - 1 $sString = "" For $j = 0 To UBound($aAdapter, 2) - 1 $sString &= $aAdapter[$i][$j] & "|" Next $sString = StringTrimRight($sString, 1) GUICtrlCreateListViewItem($sString, $ListView1) Next GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func _Win32NetworkAdapter($strComputer = 'Localhost') Local $aReturn[1][12] = [[ _ 'Hersteller:', 'Name:', 'Adapter-Typ:', 'Kennung:', _ 'MAC-Adresse:', 'Adresstyp:', 'DHCP-Server:', 'IP erhalten:', _ 'IP läuft ab:', 'IP-Adresse:', 'Subnetzmaske:', 'Standardgateway:']] Local $x = 0, $objWMIService, $colItems $objWMIService = ObjGet('winmgmts:\\' & $strComputer & '\') If Not IsObj($objWMIService) Then Return SetError(1, 0, 0) $colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE Netconnectionstatus = 2', 'WQL', 0x30) If Not IsObj($colItems) Then Return SetError(2, 0, 0) For $objItem In $colItems $x += 1 ReDim $aReturn[$x + 1][12] $aReturn[$x][0] = $objItem.Manufacturer $aReturn[$x][1] = $objItem.Name $aReturn[$x][2] = $objItem.AdapterType $aReturn[$x][3] = $objItem.NetConnectionID $aReturn[$x][4] = $objItem.MACAddress $colItems2 = $objWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration', 'WQL', 0x30) If IsObj($colItems2) Then For $objItem2 In $colItems2 If $objItem.Caption = $objItem2.Caption Then If $objItem2.IPEnabled = -1 Then If $objItem2.DHCPEnabled = -1 Then $aReturn[$x][5] = 'von DHCP zugewiesen' $aReturn[$x][6] = $objItem2.DHCPServer $aReturn[$x][7] = _WMIDateStringToDate($objItem2.DHCPLeaseObtained) $aReturn[$x][8] = _WMIDateStringToDate($objItem2.DHCPLeaseExpires) Else $aReturn[$x][5] = 'Manuell konfiguriert' EndIf $aReturn[$x][9] = $objItem2.IPAddress(0) $aReturn[$x][10] = $objItem2.IPSubnet(0) $aReturn[$x][11] = $objItem2.DefaultIPGateway(0) EndIf EndIf Next EndIf Next Return $aReturn EndFunc ;==>_Win32NetworkAdapter Func _WMIDateStringToDate($dtmDate) Return (StringMid($dtmDate, 5, 2) & '/' & _ StringMid($dtmDate, 7, 2) & '/' & StringLeft($dtmDate, 4) _ & ' ' & StringMid($dtmDate, 9, 2) & ':' & StringMid($dtmDate, 11, 2) & ':' & StringMid($dtmDate, 13, 2)) EndFunc ;==>_WMIDateStringToDate
-
das ist meine GUI in der ich die Funktion haben will
Ja, und wo liegt jetzt dein Problem? Ich hab doch ein Script gepostet wie man das in eine ListView einfügen kann, da kannst du auch sehen wie man das Array anspricht welches die Funktion zurückliefert. Dann setzt du die Labeltexte noch entsprechend den Arrayeinträgen und fertig.
-
Ja, und wo liegt jetzt dein Problem? Ich hab doch ein Script gepostet wie man das in eine ListView einfügen kann, da kannst du auch sehen wie man das Array anspricht welches die Funktion zurückliefert. Dann setzt du die Labeltexte noch entsprechend den Arrayeinträgen und fertig.
Man liest eine gewisse Negativ-Stimmung und genervtheit in deinen Zeilen Alpines
-
Man liest eine gewisse Negativ-Stimmung und genervtheit in deinen Zeilen Alpines
Ich hab ihn mehrmals darauf hingewiesen sich das Script mal anzugucken, so kompliziert ist es nicht. Da sollte man sich schnell zurechtfinden.
Übrigens habe ich von ihm eine private E-Mail bekommen in der er mir die gleiche Frage gestellt hat also kannst du dir denken warum ich so einen Ton an den Tag lege.In dem von mir geposteten Script gibt es vielleicht eine handvoll Zeilen die sich auf die Adapterinfos + ListView beziehen und das restliche Drumherum ist entweder die UDF oder das GUI-Zeugs.
Wenn ein User nicht mal so motiviert ist sich das anzuschauen was ich ihm gecodet habe, warum sollte ich mir dann die Mühe machen und es ihm häppchengerecht zu erklären und zu scripten?Er gibt sich ja nicht mal die Mühe zu erklären was er nicht versteht, sondern (und ich zitiere):
das ist meine GUI in der ich die Funktion haben will
Die fuktion soll rein
-
Ich hab ihn mehrmals darauf hingewiesen sich das Script mal anzugucken, so kompliziert ist es nicht. Da sollte man sich schnell zurechtfinden.Übrigens habe ich von ihm eine private E-Mail bekommen in der er mir die gleiche Frage gestellt hat also kannst du dir denken warum ich so einen Ton an den Tag lege.
In dem von mir geposteten Script gibt es vielleicht eine handvoll Zeilen die sich auf die Adapterinfos + ListView beziehen und das restliche Drumherum ist entweder die UDF oder das GUI-Zeugs.
Wenn ein User nicht mal so motiviert ist sich das anzuschauen was ich ihm gecodet habe, warum sollte ich mir dann die Mühe machen und es ihm häppchengerecht zu erklären und zu scripten?Er gibt sich ja nicht mal die Mühe zu erklären was er nicht versteht, sondern (und ich zitiere):
Danke dir
sry ich bin echt ein Anfänger hier und habe vielleicht einiges nicht richtig verstanden.
Habe jetzt soweit alles geschafft letzte Woche