das hat er aus devilbrowsercode den er mal von mir als mit arbeit bekommen hat aber das hat sich langsam erledigt alles zu übernehmmen vom browser der noch nicht mal drausen ist
hätte ich das gewusst das der so wird dann hätte ich den mein projeckt nie anvertraut
orginal bild vom browser
und mit den unterstrich oder druchgestriechen schaumal ihr klick vieleicht hilft dir das weiter bei front würde ich bei dir so machen
front=(GUICtrlRead(""))deine namen reinschreiben lassen von der auswahl der schriften
alles kopieren geht so den rest schauen ich gerade nach
Case $AllesKopieren
ControlFocus($edit, "", "")
_GUICtrlEdit_SetSel($edit, 0, -1)
gelobt sei google 
bei fragen an das setupprogramm eine pn an mich senden da ich den link ihr auf anweisungen von mazo09 entfernen sollte das ich in meinen augen nicht verstehe da es ein öffentliches und auch kostenloses tool ist aber naja wie gesagt weinfach eine pn schicken
sein pn an mich was so
kannste bitte dein pos löschen mit dem ****** setup creator braucht ja nicht jeder zu wissen:...
das ist ja mal ein comunity zusammenhalt wenn man schon so eine Pn bekommt
Auf anweisungen von herrn mazo09 darf ich euch jetzt nicht mehr den link zum setupprogrammm sagen wo mit er seine setup gebaut hat dieser beitrag wurde heute am 20.05.09 bearbeitet um 00:05 uhr
weiss zwar nicht was das für ein sinn haben soll da es keine selbst gemacht setup ist und er ein öffendliches tool dafür verwendet hat aber naja muss er wissen
Thx oscar genau das was ich gesucht habe.
Ich habe euch mal ein Beispiel gemacht was ich genauer meine und zwar wenn man doppelklick macht auf ListView1 dann werden unten die Daten angezeigt dies geht aber leider nicht bei ListView2
habe schon mit noch einer Func _LeftDblClick($Info) & Func WM_NOTIFY getestet aber ich bekomme es nicht hin bitte um Hilfe danke.
Habe euch mal die Daten auch mit drangehangen zum downloaden.
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include <GUIConstants.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
Global Const $LVM_GETITEM = $LVM_FIRST + 5
Dim $nCurCol= -1
Dim $nSortDir = 1
Dim $bSet = 0
Dim $nCol = -1
Dim $nr, $Kundendaten
Local $INI = @ScriptDir & "\data\ListView1.ini"
Local $INI_1 = @ScriptDir & "\data\ListView2.ini"
Global $aGlobal = IniReadSection($INI, "ListView1")
Global $Listview1,$Form,$lb_Global
Local $lastNum = IniRead($INI, "Numbers", "last", 0000)
Global $aGlobal_1 = IniReadSection($INI_1, "ListView2")
Global $Listview2,$Form,$lb_Global_1
Local $lastNum_1 = IniRead($INI_1, "Numbers", "last", 0000)
#cs#########################################################
Beispiele ListView1
#ce#########################################################
If Not FileExists($INI) Then
IniWrite($INI, "ListView1", 10000, "Mustermann|Löwenzahn|030/80050060")
IniWrite($INI, "edit", 10000, "")
IniWrite($INI, "ListView1", 10001, "Mustermann1|Holzbau|0177508090xxx")
IniWrite($INI, "edit", 10001, "")
IniWrite($INI, "ListView1", 10002, "Mustermann2|OBI|030/90010506082")
IniWrite($INI, "edit", 10002, "")
IniWrite($INI, "Numbers", "last", 10002)
EndIf
#cs#########################################################
Beispiele ListView2
#ce#########################################################
If Not FileExists($INI_1) Then
IniWrite($INI_1, "ListView2", 10000, "Mustermann|Hotel Adlon|+4930/80050060")
IniWrite($INI_1, "edit", 10000, "")
IniWrite($INI_1, "ListView2", 10001, "Mustermann1|Frinzkalten|+49177508090xxx")
IniWrite($INI_1, "edit", 10001, "")
IniWrite($INI_1, "ListView2", 10002, "Mustermann2|Hotel am Wörtersee|+49358/90010506082")
IniWrite($INI_1, "edit", 10002, "")
IniWrite($INI_1, "Numbers", "last", 10002)
EndIf
#Region ### START Koda GUI section ### Form=
$Form = GUICreate("Test", 625, 372, 341, 376)
$Tab1 = GUICtrlCreateTab(-1, 13, 625, 193)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("ListView1")
$ListView1 = GUICtrlCreateListView("Kundennummer |Kundenname|Firma|Telefon", 8, 48, 602, 142)
$TabSheet2 = GUICtrlCreateTabItem("ListView2")
$ListView2 = GUICtrlCreateListView("Kundennummer |Kundenname|Firma|Telefon", 8, 48, 602, 142)
$TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
GUICtrlSetState(-1,$GUI_SHOW)
$ListView3 = GUICtrlCreateListView("", 8, 48, 602, 142)
GUICtrlCreateTabItem("")
$Group1 = GUICtrlCreateGroup("Info", 0, 216, 624, 137)
$Input1 = GUICtrlCreateInput("", 8, 264, 121, 21)
$Input2 = GUICtrlCreateInput("", 168, 264, 121, 21)
$Input3 = GUICtrlCreateInput("", 320, 264, 121, 21)
$Input4 = GUICtrlCreateInput("", 480, 264, 121, 21)
$Label1 = GUICtrlCreateLabel("Nummer", 8, 240, 43, 17)
$Label2 = GUICtrlCreateLabel("Kundenname", 168, 240, 67, 17)
$Label3 = GUICtrlCreateLabel("Firma", 320, 240, 29, 17)
$Button1 = GUICtrlCreateButton("Speichern ", 8, 312, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Drucken", 96, 312, 75, 25, 0)
$Button3 = GUICtrlCreateButton("Löschen", 184, 312, 75, 25, 0)
$Label4 = GUICtrlCreateLabel("Telefon", 480, 240, 40, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_FillListView()
GUISetState(@SW_SHOW,$Form)
GUIRegisterMsg($WM_NOTIFY,"WM_NOTIFY")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _FillListView()
_GUICtrlListView_DeleteAllItems($Listview1)
If $lastNum = 0 Then Return
For $i = 1 To UBound($aGlobal) -1
GUICtrlCreateListViewItem($aGlobal[$i][0] & '|' & $aGlobal[$i][1], $Listview1)
Next
_GUICtrlListView_DeleteAllItems($Listview2)
If $lastNum_1 = 0 Then Return
For $i = 1 To UBound($aGlobal_1) -1
GUICtrlCreateListViewItem($aGlobal_1[$i][0] & '|' & $aGlobal_1[$i][1], $Listview2)
Next
EndFunc
Func _LeftDblClick($Info)
GUICtrlSetData($Input1 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 0))
GUICtrlSetData($Input2 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 1))
GUICtrlSetData($Input3, _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 2))
GUICtrlSetData($Input4 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 3))
GUISetState(@SW_SHOW, $Form)
EndFunc
#cs
Func _LeftDblClick($Info)
GUICtrlSetData($Input1 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview2), $Info[3], 0))
;GUICtrlSetData($Combo2 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 1))
;GUICtrlSetData($Combo3, _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 2))
;GUICtrlSetData($Input4 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 3))
;GUICtrlSetData($Combo1 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 4))
;GUICtrlSetData($Combo4 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 5))
;GUICtrlSetData($Stream , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 7))
;GUISetState(@SW_SHOW, $Form)
EndFunc
#ce
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
$hWndListView = $ListView1
If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
_LeftDblClick($aInfo)
Case $NM_RCLICK ; Sent by a list-view control when the user clicks an item with the right mouse button
Return $GUI_RUNDEFMSG ; allow the default processing
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Case $drucken
$Readeditprint = GUICtrlRead($Edit1)
$Filewriteprint = FileWrite(@TempDir & "\printtest.txt", $Readeditprint)
$File = @TempDir & "\printtest.txt"
_FilePrint($File)
Sleep(500)
FileDelete(@TempDir & "\printtest.txt")
EndSwitch
ist ein schönes Land war auch schon mal da nur das es bei uns die ganze zeit fast nur geregnet hatte hoffentlich hast du besseres wetter
wie so machst du es nicht so mit makieren und ausschneiden
Case $Kopieren
Send("^C")
Case $AllesKopieren
Case $Ausschneiden
Send("^C")
Send("{DELETE}")
Case $Rueckgaengig
_GUICTRLEDIT_UNDO($Edit)
Case $Einfuegen
Send("^V")
achso eb ich es vergesse beim speichern ist ein fehler diese antwort kommt da
C:\Dokumente und Einstellungen\Administrator\Desktop\Neu AutoIt v3 Script (6).au3(147,48) : WARNING: $save_dialog: possibly used before declaration.
FileWrite($save_dialog &
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
habe mir mal erlaubt noch die funktion drucken rein zu machen
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#INCLUDE<File.au3>
Global $open_dialog = -1
$iniread = IniRead(@ScriptDir & "\Config.ini", "Config", "Zeilenumbruch", "")
#Region ### Editor © By xXTobi93Xx ================================================
$gui_editor = GUICreate("Editor © By xXTobi93Xx", 602, 438, 193, 125)
$edit = GUICtrlCreateEdit("", 0, 0, 601, 417, $ES_MULTILINE+$WS_VSCROLL+$ES_WANTRETURN+$ES_NOHIDESEL)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$datei = GUICtrlCreateMenu("Datei")
$oeffnen = GUICtrlCreateMenuItem("Öffnen...", $datei)
$speichern = GUICtrlCreateMenuItem("Speichern", $datei)
$speichern_unter = GUICtrlCreateMenuItem("Speichern unter...", $datei)
GUICtrlCreateMenuItem("", $datei, -1)
$drucken = GUICtrlCreateMenuItem("Drucken", $datei)
GUICtrlCreateMenuItem("", $datei, -1)
$beenden = GUICtrlCreateMenuItem("Beenden", $datei)
$Format = GUICtrlCreateMenu("Format")
$Schriftart = GUICtrlCreateMenuItem("Schriftart...", $Format)
$Absatz = GUICtrlCreateMenuItem("Absatz...", $Format)
$zeilenumbruch = GUICtrlCreateMenuItem("Zeilenumbruch", $Format)
If $iniread = 4 Then
GUICtrlSetState($zeilenumbruch, 4)
Else
GUICtrlSetState($zeilenumbruch, 1)
EndIf
$Bearbeiten = GUICtrlCreateMenu("Bearbeiten")
$Rueckgaengig = GUICtrlCreateMenuItem("Rückgängig", $Bearbeiten)
GUICtrlCreateMenuItem("", $Bearbeiten, -1)
$Ausschneiden = GUICtrlCreateMenuItem("Ausschneiden", $Bearbeiten)
$Kopieren = GUICtrlCreateMenuItem("Kopieren", $Bearbeiten)
$AllesKopieren = GUICtrlCreateMenuItem("Alles Kopieren", $Bearbeiten)
$Einfuegen = GUICtrlCreateMenuItem("Einfügen", $Bearbeiten)
GUICtrlCreateMenuItem("", $Bearbeiten, -1)
$Ersetzen = GUICtrlCreateMenuItem("Ersetzen...", $Bearbeiten)
$MenuItem = GUICtrlCreateMenu("?")
$Info = GUICtrlCreateMenuItem("Info...", $MenuItem)
#EndRegion ### Editor © By xXTobi93Xx ================================================
#Region ### Schriftart ================================================
$gui_schriftart = GUICreate("Schriftart", 380, 237, 204, 129)
GUICtrlCreateLabel("Schriftart:", 8, 8, 49, 17)
$input_schriftart = GUICtrlCreateInput("Arial", 8, 24, 113, 21)
GUICtrlSetCursor (-1, 5)
$list_schriftart = GUICtrlCreateList("", 8, 48, 113, 97)
GUICtrlSetData(-1, "Arial|Arial Black|Comic Sans MS|Times New Roman")
GUICtrlCreateLabel("Schriftschnitt:", 128, 8, 68, 17)
$input_schriftschnitt = GUICtrlCreateInput("Standart", 128, 24, 113, 21)
GUICtrlSetCursor (-1, 5)
$list_schriftschnitt = GUICtrlCreateList("", 128, 48, 113, 97)
GUICtrlSetData(-1, "Fett|Fett Kursiv|Kursiv|Standard")
GUICtrlCreateLabel("Schriftgröße:", 256, 8, 60, 17)
$input_schriftgroese = GUICtrlCreateInput("10", 256, 24, 113, 21, $ES_AUTOHSCROLL+$ES_NUMBER)
GUICtrlSetCursor (-1, 5)
$list_schriftgroese = GUICtrlCreateList("", 256, 48, 113, 97)
GUICtrlSetData(-1, "10|12|14|16|18|20|24|26|28|36|48|72")
$button_schriftart = GUICtrlCreateButton("OK", 8, 152, 75, 25)
$button_schriftart_abbrechen = GUICtrlCreateButton("Abbrechen", 8, 184, 75, 25)
$group_vorschau = GUICtrlCreateGroup("Vorschau", 168, 152, 201, 81)
$label_vorschau = GUICtrlCreateLabel("AaBbYyZz", 176, 168, 188, 60)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$button_vorschau = GUICtrlCreateButton("Vorschau", 88, 152, 75, 25)
#EndRegion ### Schriftart ================================================
#Region ### Ersetzen ================================================
$gui_ersetzen = GUICreate("Ersetzen", 335, 78, 194, 125)
GUICtrlCreateLabel("Suchen Nach:", 8, 8, 73, 17)
$input_ersetzen = GUICtrlCreateInput("", 88, 8, 145, 21)
GUICtrlCreateLabel("Ersetzen mit:", 8, 40, 64, 17)
$input_ersetzen_mit = GUICtrlCreateInput("", 88, 40, 145, 21)
$button_ersetzen = GUICtrlCreateButton("Ersetzen", 248, 8, 81, 25, 0)
;Hier wird der Button als Standard-Button Fokusiert, damit es mit der Enter-Taste betätigt werden kann.
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$button_ersetzen_abbrechen = GUICtrlCreateButton("Abbrechen", 248, 40, 83, 25, 0)
#EndRegion ### Ersetzen ================================================
#Region ### Absatz ================================================
$gui_absatz = GUICreate("Absatz", 193, 91, 231, 157)
$radio_linksbuendig = GUICtrlCreateRadio("Linksbündig", 16, 16, 81, 17)
GUICtrlSetState($radio_linksbuendig, 1)
GUICtrlSetCursor (-1, 0)
$radio_zentriert = GUICtrlCreateRadio("Zentriert", 16, 40, 81, 17)
GUICtrlSetCursor (-1, 0)
$radio_rechtsbuendig = GUICtrlCreateRadio("Rechtsbündig", 16, 64, 89, 17)
GUICtrlSetCursor (-1, 0)
$button_absatz_ok = GUICtrlCreateButton("OK", 112, 8, 73, 25, 0)
$button_absatz_abbrechen = GUICtrlCreateButton("Abbrechen", 112, 40, 73, 25, 0)
#EndRegion ### Absatz ================================================
Dim $keys[1][2] = [["^A", "_allesmarkieren"]]
[/autoit] [autoit][/autoit] [autoit];Diese Funktion dient sich besser für HotKeys, da diese nur innerhalb des Fensters möglich ist.
GUISetAccelerators($keys, $gui_editor)
GUISetState(@SW_SHOW, $gui_editor)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
$Umbruch = True
$NotUmbruch = False
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $gui_editor
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE, $beenden
Exit
Case $speichern
If $open_dialog <> -1 Then
$Text = GUICtrlRead($edit)
FileWrite($save_dialog & ".txt", $Text)
Else
$save_dialog = FileSaveDialog("Speichern...", @DesktopDir, "Text Datei (*.txt)", 16)
$Text = GUICtrlRead($edit)
FileWrite($save_dialog & ".txt", $Text)
EndIf
Case $speichern_unter
$save_dialog = FileSaveDialog("Speichern...", @DesktopDir, "Text Datei (*.txt)", 16)
$Text = GUICtrlRead($edit)
FileWrite($save_dialog & ".txt", $Text)
Case $oeffnen
$open_dialog = FileOpenDialog("Öffnen...", @DesktopDir, "Text Datei (*.txt)")
If Not @error Then
$Text2 = FileRead($open_dialog)
GUICtrlSetData($edit, $Text2)
Else
MsgBox(48,"Achtung","Bitte eine Text-Datei auswählen!")
EndIf
Case $Schriftart
GUISetState(@SW_SHOW, $gui_schriftart)
GUISetState(@SW_DISABLE, $gui_editor)
Case $Ersetzen
GUISetState(@SW_SHOW, $gui_ersetzen)
GUISetState(@SW_DISABLE, $gui_editor)
Case $zeilenumbruch
If $iniread = 4 Then
GUICtrlSetState($zeilenumbruch, 1)
GUICtrlSetStyle($edit, $ES_MULTILINE+$WS_VSCROLL+$ES_WANTRETURN+$ES_NOHIDESEL)
IniWrite(@ScriptDir & "\Config.ini", "Config", "Zeilenumbruch", 1)
$iniread = 1
Else
GUICtrlSetState($zeilenumbruch, 4)
GUICtrlSetStyle($edit, $ES_MULTILINE+$WS_VSCROLL+$ES_NOHIDESEL)
IniWrite(@ScriptDir & "\Config.ini", "Config", "Zeilenumbruch", 1)
$iniread = 4
EndIf
Case $Info
GUISetState(@SW_DISABLE, $gui_editor)
MsgBox(64,"Info!","Editor © By xXTobi93Xx von http://www.autoit.de" & @CRLF & "Danke an alle die mir geholfen haben besonders an:" & @CRLF & "MehmeX^^")
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $gui_editor)
Case $Absatz
GUISetState(@SW_SHOW, $gui_absatz)
GUISetState(@SW_DISABLE, $gui_editor)
Case $Kopieren
ControlFocus($edit, "", "")
Send("^C")
Case $AllesKopieren
$Text = GUICtrlRead($edit)
ClipPut($Text)
Case $Ausschneiden
ControlFocus($edit, "", "")
Send("^X")
Case $Rueckgaengig
ControlFocus($edit, "", "")
Send("^Z")
Case $drucken
$MSprint = GUICtrlRead($Edit)
$MSwriteprint = FileWrite(@TempDir & "\printtest.txt", $MSprint)
$File = @TempDir & "\printtest.txt"
_FilePrint($File)
Sleep(500)
FileDelete(@TempDir & "\printtest.txt")
EndSwitch
Case $gui_schriftart
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Form2()
Case $list_schriftart
$Textart2 = GUICtrlRead($list_schriftart)
GUICtrlSetData($input_schriftart, $Textart2)
Case $list_schriftschnitt
$Schriftschnitt2 = GUICtrlRead($list_schriftschnitt)
GUICtrlSetData($input_schriftschnitt, $Schriftschnitt2)
Case $list_schriftgroese
$Schriftgrad2 = GUICtrlRead($list_schriftgroese)
GUICtrlSetData($input_schriftgroese, $Schriftgrad2)
Case $button_schriftart_abbrechen
Form2()
Case $button_schriftart
$Textart = GUICtrlRead($input_schriftart)
$Schriftschnitt = GUICtrlRead($input_schriftschnitt)
$Schriftgrad = GUICtrlRead($input_schriftgroese)
If $Schriftschnitt = "Standard" Then
GUICtrlSetFont($edit, $Schriftgrad, 400, 0, $Textart)
;Standart: size = "400" und wight = "0"
ElseIf $Schriftschnitt = "Fett Kursiv" Then
GUICtrlSetFont($edit, $Schriftgrad, 800, 2, $Textart)
;Fett Kursiv: size = "800" und wight = "2"
ElseIf $Schriftschnitt = "Fett" Then
GUICtrlSetFont($edit, $Schriftgrad, 800, 0, $Textart)
;Fett: size = "800" und wight = "0"
ElseIf $Schriftschnitt = "Kursiv" Then
GUICtrlSetFont($edit, $Schriftgrad, 400, 2, $Textart)
;Kursiv: size = "400" und wight = "2"
EndIf
Form2()
Case $button_vorschau
$Textart = GUICtrlRead($input_schriftart)
$Schriftschnitt = GUICtrlRead($input_schriftschnitt)
$Schriftgrad = GUICtrlRead($input_schriftgroese)
If $Schriftschnitt = "Standard" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 0, $Textart)
ElseIf $Schriftschnitt = "Fett Kursiv" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 2, $Textart)
ElseIf $Schriftschnitt = "Fett" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 0, $Textart)
ElseIf $Schriftschnitt = "Kursiv" Then
GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 2, $Textart)
EndIf
EndSwitch
Case $gui_ersetzen
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Form3()
Case $button_ersetzen_abbrechen
Form3()
Case $button_ersetzen
$Text = GUICtrlRead($edit)
$Suchen = GUICtrlRead($input_ersetzen)
$Ersetzen = GUICtrlRead($input_ersetzen_mit)
$String = StringReplace($Text, $Suchen, $Ersetzen)
If Not @error Then
GUICtrlSetData($edit, $String)
Form3()
Else
MsgBox(48,"Achtung","Bitte alles ausfüllen!")
EndIf
EndSwitch
Case $gui_absatz
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Form4()
Case $button_absatz_abbrechen
Form4()
Case $button_absatz_ok
If $Umbruch = True Then
If GUICtrlRead($radio_linksbuendig) = $GUI_CHECKED Then
GUICtrlSetStyle($edit, $ES_MULTILINE+$WS_VSCROLL+$ES_WANTRETURN)
Form4()
ElseIf GUICtrlRead($radio_zentriert) = $GUI_CHECKED Then
GUICtrlSetStyle($edit, $ES_MULTILINE+$WS_VSCROLL+$ES_WANTRETURN+$ES_CENTER)
Form4()
ElseIf GUICtrlRead($radio_rechtsbuendig) = $GUI_CHECKED Then
GUICtrlSetStyle($edit, $ES_MULTILINE+$WS_VSCROLL+$ES_WANTRETURN+$ES_RIGHT)
Form4()
EndIf
ElseIf $NotUmbruch = True Then
If GUICtrlRead($radio_linksbuendig) = $GUI_CHECKED Then
GUICtrlSetStyle($edit, $ES_MULTILINE+$WS_VSCROLL+$ES_WANTRETURN+$WS_HSCROLL)
Form4()
ElseIf GUICtrlRead($radio_zentriert) = $GUI_CHECKED Then
GUICtrlSetStyle($edit, $ES_MULTILINE+$WS_VSCROLL+$ES_WANTRETURN+$WS_HSCROLL+$ES_CENTER)
Form4()
ElseIf GUICtrlRead($radio_rechtsbuendig) = $GUI_CHECKED Then
GUICtrlSetStyle($edit, $ES_MULTILINE+$WS_VSCROLL+$ES_WANTRETURN+$WS_HSCROLL+$ES_RIGHT)
Form4()
EndIf
EndIf
EndSwitch
EndSwitch
WEnd
Func Form2()
GUISetState(@SW_HIDE, $gui_schriftart)
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $gui_editor)
EndFunc
Func Form3()
GUISetState(@SW_HIDE, $gui_ersetzen)
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $gui_editor)
EndFunc
Func Form4()
GUISetState(@SW_HIDE, $gui_absatz)
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $gui_editor)
EndFunc
Func _allesmarkieren()
ControlFocus($edit, "", "")
_GUICtrlEdit_SetSel($edit, 0, -1)
EndFunc
Habe mal das mit den drucken gemacht von texten
[
Wie schon abgesprochen über icq wäre es nett den namen zu ändern da ich devil schon nutze im browser ist zwar oder soll ein add-on dafür werden aber der name hat mit meinen scripten nichts zu tun
da ich eine webseite gerade zu diesen name baue und mir die de sichern will zu den namen ist das nett den namen zu entfern devil http://sirocool2101.si.funpic.de/page/
Und zwar will ich gerne mal wiessen wie das geht das ich die tabs auch untereinnander machen kann siehe bild
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 452, 193, 125)
$Tab1 = GUICtrlCreateTab(16, 48, 593, 385)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
$TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
GUICtrlSetState(-1,$GUI_SHOW)
$TabSheet4 = GUICtrlCreateTabItem("TabSheet4")
$TabSheet5 = GUICtrlCreateTabItem("TabSheet5")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
ich suche immer ihr http://www.deviantart.com/ weiss nicht wo oscar sucht
oscar ist gute arbeit weiter so
ps.:
habe ja nichts gegen den player gesagt zieht cool aus aber was noch cool kommen würde wenn man das wie bei mediaplayer hat wenn man musik hört mit den ablaufen eines bildes
und wenn es so rüber kamm sorry
wollte doch nur drauf hinweisen das es im englischen auch sowas gibt kannst ja schauen ob da noch was verwenden kannst und ausserdem ist die idee fast die gleiche
oscar kenne ich ürgendwo herr
schaue link
also ich kenne es nur so und mit tab probiere ich ja selber in meinen browser
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <INet.au3>
_IEErrorHandlerRegister ()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test ie ohne Tab", 629, 422, 656, 495)
GUISetBkColor(0xFFFFFF)
$Input1 = GUICtrlCreateInput("", 8, 8, 281, 21)
$Button1 = GUICtrlCreateButton("Okay", 304, 8, 75, 25, 0)
$ie = _IECreateEmbedded()
$ie.navigate("http://www.autoit.de")
$Obj = GUICtrlCreateObj($ie,8, 64, 609, 337)
GUICtrlSetFont($Obj, 8, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Quellcode", 392, 8, 125, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_IENavigate($ie,GUICtrlRead($Input1),0)
#cs
Case $Button2
$sHTML = _IEDocReadHTML ($ie)
MsgBox(0, "Quelltext", $sHTML)
#ce
Case $Button2
$body = _INetGetSource (GUICtrlRead($Input1))
MsgBox(1,"",$body)
EndSwitch
WEnd
dann macht mann es so
Case $MenuItem03
$body = _INetGetSource (GUICtrlRead($Input1))
MsgBox(1,"",$body)
so jetzt kommt erstmal mucke ihr müsst euch schon erstmal entscheiden über welchen player ihr es laufen lasst 
habe jetz erstmal über mediaplayer und mit der listbox schaue ich auch noch
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <sound.au3>
#Include <File.au3>
#NoTrayIcon
Global $position
Global $paus
Global $lang
Global $soundplay
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("NextGenPlayer", 495, 237, 192, 124)
$Slider = GUICtrlCreateSlider(448, 8, 25, 185, BitOR($TBS_VERT,$TBS_AUTOTICKS,$TBS_NOTICKS,$TBS_ENABLESELRANGE))
$Label1 = GUICtrlCreateLabel("Lautstärke", 432, 200, 54, 17)
$Lied = GUICtrlCreateButton("Lied wählen", 8, 8, 73, 25)
$Play = GUICtrlCreateButton("Play", 8, 56, 89, 25)
$Pause = GUICtrlCreateButton("Pause", 128, 56, 89, 25)
$Stop = GUICtrlCreateButton("Stop", 272, 56, 81, 25)
$List1 = GUICtrlCreateList("", 16, 120, 377, 97)
$oWMP = ObjCreate("WMPlayer.OCX")
GUICtrlCreateObj($oWMP, 2, 24, 1, 1)
With $oWMP
.URL = ("channel\player.html")
.fullScreen = True
.windowlessVideo = True
.stretchToFit = True
.enableContextMenu = True
;.enabled = True
.uiMode = "none"; none / mini full
.settings.autostart = True
.settings.mute = True
.settings.volume = 100; 0 - 100
.settings.Balance = 0; -100 to 100
EndWith
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $oMediaPlayControl = $oWMP.Controls
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Lied
$File=FileOpenDialog("","","Musik Dateien (*.wma;*.mp3;*.wav;*.mpg)",1+4)
GUICtrlSetData($List1, $File)
$oWMP.url = ($File)
Case $Play
$oMediaPlayControl.play
Case $Pause
_SoundPause($List1)
Case $Stop
_SoundStop($List1)
EndSwitch
;SoundSetWaveVolume(GUICtrlRead($Slider))
WEnd
