Beiträge von Eistee

Eistee

Hallo liebe Community

hier im Forum hatte kürzlich jemand eine frage in Hilfe forum dabei ging es um eine art kontorechner für den PC, ich fand diese Idee echt super und habe mein eigenen geschrieben.

Funktionen :

einnahmen eintragen, ausgaben abziehen,passwortabfrage, mehrere "Konten " möglich.

Für konstruktive Kritik bedanke ich mich schon mal im vorraus

MFG Eistee

Source :

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>
#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit]

$size = FileGetSize("C:\BS\konto\close.jpg")
If $size = 0 then _1 ()
Func _1 ()
DirCreate("C:\BS\konto\")
Fileinstall("ktn.txt", "C:\BS\konto\ktn.txt")
Fileinstall("kasse.mp3", "C:\BS\konto\kasse.mp3")
Fileinstall("Stand1.txt", "C:\BS\konto\Stand1.txt")
Fileinstall("Stand1.txt", "C:\BS\konto\Stand1.txt")
Fileinstall("BG.jpg", "C:\BS\konto\BG.jpg")
FileInstall("Button1.jpg", "C:\BS\konto\Button1.jpg")
FileInstall("Button2.jpg", "C:\BS\konto\Button2.jpg")
Fileinstall("setting.jpg", "C:\BS\konto\setting.jpg")
Fileinstall("rahmen.jpg", "C:\BS\konto\rahmen.jpg")
FileInstall("mini.jpg", "C:\BS\konto\mini.jpg")
FileInstall("close.jpg", "C:\BS\konto\close.jpg")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

$fre = "C:\BS\konto\ktn.txt"
$PWuu = "C:\BS\konto\PW.txt"
$nr = FileReadLine($fre,1)
$file = "C:\BS\konto\Stand"& $nr &".txt"
$Stand = FileReadLine($file,1)

[/autoit] [autoit][/autoit] [autoit]

$size88 = FileGetSize("C:\BS\konto\PW.txt")
If $size88 = 0 then _2 ()

[/autoit] [autoit][/autoit] [autoit]

Func _2 ()
$p = InputBox ("Passwort", "Wählen Sie ihr Passwort")
$file9 = FileOpen($PWuu,2)
FileWriteLine($file9,$p)
FileClose($file9)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

$PWu = FileReadLine($PWuu,1)

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("PrivatKonto", 600, 200, -1, -1,$WS_POPUP)

[/autoit] [autoit][/autoit] [autoit]

$BG = GUICtrlCreatePic("C:\BS\konto\BG.jpg",0 ,0 ,600 ,200,$WS_DISABLED)
$Button1 = GUICtrlCreatePic("C:\BS\konto\Button1.jpg", 30, 60, 200, 50)
$Button2 = GUICtrlCreatePic("C:\BS\konto\Button2.jpg", 370, 60, 200, 50)
$Set = GUICtrlCreatePic("C:\BS\konto\setting.jpg", 4, 4, 71, 20)
$ra = GUICtrlCreatePic("C:\BS\konto\rahmen.jpg",528 ,4 ,68 ,20,$WS_DISABLED)
$mi = GUICtrlCreatePic("C:\BS\konto\Mini.jpg",530 ,6 ,20 ,16)
$cl = GUICtrlCreatePic("C:\BS\konto\Close.jpg",574 ,6 ,20 ,16)
GUISetBkColor(0x000000)
$Input1 = GUICtrlCreateInput($Stand, 225, 144, 150, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$Label1 = GUICtrlCreateLabel("Aktueller Stand", 230, 124, 150, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateLabel("",0,0,600,200,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_HIDE)

[/autoit] [autoit][/autoit] [autoit]

$PW = InputBox ("Passwort", "Ihr Passwort Bitte")
If Not $PW = $PWu Then
SplashTextOn("", "Falsches Passwort", 250, 45, -1, -1, 1, "", 12)
Sleep(500)
SplashOff()
Exit
EndIf
SoundPlay("kasse.mp3",0)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $cl
_AnimButton ($Form1, $cl)
Exit
Case $mi
_AnimButton ($Form1, $mi)
GUISetState(@SW_MINIMIZE)
Case $Button1
_AnimButton ($Form1, $Button1)
_ein ()
Case $Button2
_AnimButton ($Form1, $Button2)
_aus ()
Case $set
_AnimButton ($Form1, $set)
_ktn ()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _ktn ()
$nrt = InputBox ("Kontonummer", "Sie können sich mehrere Konten anlegen, oder auf ein bestehendes zugreifen. Nach jedem Wechsel muss das Programm nei gestartet werden.")
$file2 = FileOpen($fre,2)
FileWriteLine($file2,$nrt)
FileClose($file2)
Exit
Endfunc

[/autoit] [autoit][/autoit] [autoit]

Func _ein ()
$ein = InputBox ("Einzahlung", "Wie hoch ist der Betrag")
$Standj = FileReadLine($file,1)
$Standn = $Standj+$ein
$file2 = FileOpen($file,2)
FileWriteLine($file2,$Standn)
FileClose($file2)
GUICtrlSetData ($Input1, $Standn)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _AnimButton($IDgui, $IDbtn, $delay=300)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos($IDgui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+1, $pos[2]-1, $pos[3]-1)
Sleep($delay)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _aus ()
$aus = InputBox ("Abhebung", "Wie hoch ist der Betrag")
$Standj = FileReadLine($file,1)
$Standn = $Standj-$aus
$file2 = FileOpen($file,2)
FileWriteLine($file2,$Standn)
FileClose($file2)
GUICtrlSetData ($Input1, $Standn)
EndFunc

[/autoit]

Eistee

Nein ich habe den fehler gefunden bei der unteren Funktion kommen in den positions variablen keine werte mehr an
naja egal

Eistee

vielleicht haste irgendein programm am laufen welches den Ablauf von "marios Leben" stört xD

Eistee

hab ich auch grade bemerkt weiss jetzt aber nicht woran es liegt vielleicht fidet jemand den fehler

MFG Eistee

Eistee

Joa hast recht die genannten punkte gingen nicht habe es geändert

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $proz
Global $bg
Global $gra
Global $posil
Global $posiu
Global $lang
Global $hoch
Global $prozn
Global $prozh
Global $wert
Global $vilr

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Balken", 200, 40, 193, 125)
_createProg(6,0,0,200,40,1,200) ; progress aufrufen wie folgt : 1 = welche bar grafik , 0 = position links, 0 = position von oben , 200 = die länge des progress, 1 = der niedrigste wert des Progresses, 200 = der höchste wert
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

_0 ()

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;beispiel setzen des Wertes
Func _0 ()
_setprog(10)
MsgBox(1,"test","jawoll",1)
_setprog(20)
MsgBox(1,"test","jawoll",1)
_setprog(30)
MsgBox(1,"test","jawoll",1)
_setprog(40)
MsgBox(1,"test","jawoll",1)
_setprog(50)
MsgBox(1,"test","jawoll",1)
_setprog(60)
MsgBox(1,"test","jawoll",1)
_setprog(70)
MsgBox(1,"test","jawoll",1)
_setprog(80)
MsgBox(1,"test","jawoll",1)
_setprog(90)
MsgBox(1,"test","jawoll",1)
_setprog(100)
MsgBox(1,"test","jawoll",1)
EndFunc
;____________________________

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;Erstell Funktion
Func _createProg ($gra,$posil,$posiu,$lang,$hoch,$prozn,$prozh)
GUISetState(@SW_SHOW)
$Bg = GUICtrlCreatePic("l.jpg",0, 0 ,200, $hoch)
GUISetState(@SW_SHOW)
$proz = GUICtrlCreatePic($gra & ".jpg",0, 0 ,0, $hoch)
GUISetState(@SW_SHOW)
EndFunc
;_______________________________________________________________

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;Wert ändern Funktion
Func _setprog($wert)
GUICtrlSetPos($proz,$posil,$posiu,$wert*2,$hoch)
EndFunc
;______________________________________________________________

[/autoit]

nur das mit niedrigster und höchster wert bleibt der is nur damit man sich besser auskennt
es sei denn dir fällt etwas ein was man noch damit anfangen könnte

MFG Eistee

Eistee

Verwende im moment noch XP aber werde wenn es erschienen ist zu Windows 7 wechseln, habe den RC1 über 4 wochen getestet lief superstabil einfach hammer und sogar schneller als XP
hätte ich nicht erwartet

Eistee

es kann auch sein das ich mich irre aber alle die nur ein graues fenster hatten zumindest die XP-User sollten den script nicht im archiv starten sondern entpacken denn sonnst isse grau da er ja die bilder nit hatt

MFG Eistee

Eistee

Hallo leute ich hab das hier mal geschrieben aber noch nicht benutzt habe noch fast nie nen Progress gebraucht

aber vielleicht könntet ihr es ja testen und mir sagen ob irgendwelche bugs vorhanden sind
Source ist mit im .rar archiv

MFG Eistee

Eistee

Die Einzigen guten waren funpic und ohost... naja danke euch

Eistee

@ Faweyr : würde ich gerne Tun da die Upload datei Größe allerdings so massiv beschränkt ist knn ich nicht alles hochladen leider...

Eistee

wie jetzt also nochmal du hast eine Gui, da ist ein button (soweit richtig ?) und jetzt möchtest du das etwas ausgeführt wird bevor man auf den Button klickt ?
korrigier mich wenn ich falsch liege , und bitte wenn du hier im Forum Hilfe brauchst die kriegste gerne von uns allen aber dann poste bitte deinen momentane Script mit das erleichtert die Fehlersuche ungemein

MFG Eistee

ansonsten sagste dem Programm ja in der While Schleife das er abfragt ob etwas los war dann schreibste halt rein :

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Form1", 279, 111, 193, 125)
$Button1 = GUICtrlCreateButton("Button1", 96, 40, 75, 25, 0)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_1 ()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _1 ()
MsgBox(0, "dazwischen", "hier ist die neue Funktion",1)

[/autoit] [autoit][/autoit] [autoit]

Sleep(1000)

[/autoit] [autoit][/autoit] [autoit]

MsgBox(0, "dazwischen", "hier ist die alte Funktion",1)
EndFunc

[/autoit]

Eistee

Hallo Liebe Gemeinde

Ich habe folgendes Problem, ich habe bisher wenn ich ein HomePage gemacht habe Funpic als Webhoster verwendet.
jetzt isses aber so das schon bei der INstallation Überall fehlermeldungen sind, daher habe ich es auch bei Ohost und bei bplaced versucht
überall der Gleiche misst bei bplaced weiss ich das es wegen deren umstellung auf php 5.3 ist

bei Funpic und ohost weiss ich es nicht egal :
kennt einer von euch nen guten hoster ? (kostenlos)
bei dem noch alles funktioniert ? des is echt der wahnsinn das bei allen Hostern die ich kenne nur noch müll ist

ich hoffe ihr könnt mir helfen

MFG Eistee

Eistee

Immer gerne

MFG Eistee

Eistee

kannste mal die besagten bilder uppen ?

ansonsten geht es so :

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ScrollBarConstants.au3>
#Include <GUIScroll.au3>

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Wurzelimperium", 1012, 720, -1, -1, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetBkColor(0x008000)
Scrollbar_Create($Form1, $SB_VERT, 1300); But the actual window is 700 pixels high

Scrollbar_Step(20, $Form1, $SB_VERT); Scrolls per 20 pixels. If not set the default is 1 (smooth scrolling)
$header_de = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\header.de.jpg", 0, -201, 1000, 250, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_links_hoch_start = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch_start.jpg", 0, 49, 20, 190, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$regal = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\lager\regal.jpg", 20, 49, 220, 640, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_links_hoch1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch.jpg", 0, 239, 20, 190, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_links_hoch2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch.jpg", 0, 429, 20, 262, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$garten_0 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\garten\garten_0.jpg", 261, 49, 720, 640, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_mitte_hoch2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch.jpg", 240, 239, 20, 190, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_mitte_hoch3 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch.jpg", 240, 429, 20, 260, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_rechts_hoch_start = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch_start.jpg", 980, 49, 20, 190, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_rechts_hoch1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch.jpg", 980, 239, 20, 190, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_mitte_hoch1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch.jpg", 240, 49, 20, 190, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_quer = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_quer.jpg", 0, 689, 1000, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_rechts_hoch2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch.jpg", 980, 429, 20, 262, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreateGroup("", -99, -99, 1, 1)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

du musst nur noch Beim compilen im scriptdir die GUIScroll.au3 haben ich hänge sie mal an

P.S. nicht getestet weil ich deine Bilder nicht hab

Eistee

So müsste es gehen :

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\test.kxf
$Form1 = GUICreate("Wurzelimperium", 1012, 720, -76, 174, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS,$WS_HSCROLL,$WS_VSCROLL)) ;hier haben nur die Variablen für die Balken gefehlt : $WS_HSCROLL , $WS_VSCROLL
GUISetBkColor(0x008000)
$header_de = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\header.de.jpg", 0, -201, 1000, 250, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_links_hoch_start = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch_start.jpg", 0, 49, 20, 190, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$regal = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\lager\regal.jpg", 20, 49, 220, 640, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_links_hoch1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch.jpg", 0, 239, 20, 190, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_links_hoch2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch.jpg", 0, 429, 20, 262, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$garten_0 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\garten\garten_0.jpg", 261, 49, 720, 640, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_mitte_hoch2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch.jpg", 240, 239, 20, 190, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_mitte_hoch3 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch.jpg", 240, 429, 20, 260, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_rechts_hoch_start = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch_start.jpg", 980, 49, 20, 190, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_rechts_hoch1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch.jpg", 980, 239, 20, 190, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_mitte_hoch1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch.jpg", 240, 49, 20, 190, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_quer = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_quer.jpg", 0, 689, 1000, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$rahmen_rechts_hoch2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\bötschi\Desktop\auto\wi_gfx\wi_gfx\pics\rahmen_hoch.jpg", 980, 429, 20, 262, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

MFG Eistee

Eistee

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$var = FileOpenDialog("", @ScriptDir & "\", "Text (*.txt)", 1 + 4 ) ; hat schon gestimmt aber :
$txt = FileRead($var) ; Die Ausgewählte datei mus erst gelesen werden

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Auslese Beispiel", 616, 430, -1, -1)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 633, 449)
GUICtrlSetData(-1, $txt) ; Hier die Variable mit FileRead eintragen
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

So in etwa

MFG Eistee

Eistee

Ähm erstmal ne persönliche Frage ich kenne nähmlich jemanden dessen Nickname auch immer Fabulous ist daher meine Frage bist du evtl. der Fabian ehemaliger Mitarbeiter aus der C-Galerie ?
und was deine frage angeht bitte ich dich den script zu posten denn es ist generell schwierig die Probleme der Scripte anderer Leute durch unsere Kristallkugeln sehen zu können xD

Mfg Eistee

Eistee

cool danke euch *grins*
wenn ihr ein design für irgendwas braucht scheut euch nicht mir ne PN zu schreiben

MFG Eistee

Eistee

mit adobe Photoshop CS 3

Eistee

darf ich fragen was für einen Vorteil ich mit der aktuellsten version habe ?

Beiträge von Eistee

Ausgaben / Einnahmen Verwaltung

Andere Progressbars

Super Mario Jump n Run

Andere Progressbars

Andere Progressbars

Was für ein Betriebssystem habt ihr ?

Super Mario Jump n Run

Andere Progressbars

Kostenloser WebHoster für Joomla 1.5 gesucht

SideBar für XP

Buttondruck überprüfen möglich?

Kostenloser WebHoster für Joomla 1.5 gesucht

hilfe bei scrollbalken

hilfe bei scrollbalken

hilfe bei scrollbalken

Txt inhalt in editbox laden

hilfe bei scrollbalken

SideBar für XP

SideBar für XP

SplashTextOn Farbig Möglich ?