plfire Posted January 24, 2013 Share Posted January 24, 2013 (edited) Hallo, bin neu hier und begeisterter AutoIt Programmierer! Was haltet Ihr von meiner 1. UDF? expandcollapse popup#include <WindowsConstants.au3> Func farbfenster($titel, $weite, $hoehe, $mittig, $farbe, $transparenz, $dauer) If $mittig="ja" Then $left=-1 $top=-1 Else $left=0 $top=0 EndIf Local $sleep Local $gui Global $color $gui=GUICreate($titel, $weite, $hoehe, $left, $top, $WS_POPUP) If $farbe="blau" Then $color=0X0000FF ElseIf $farbe="gelb" Then $color=0XFFFF00 ElseIf $farbe="grün" Then $color=0X00FF00 ElseIf $farbe="rot" Then $color=0XFF0000 ElseIf $farbe="schwarz" Then $color=0X000000 ElseIf $farbe="weiß" Then $color=0XFFFFFF Else $color=0X000000 EndIf GUISetBkColor($color, $gui) WinSetTrans($titel, "", $transparenz) If $dauer=1 Then $sleep=1000 ElseIf $dauer=2 Then $sleep=2000 ElseIf $dauer=3 Then $sleep=3000 ElseIf $dauer=4 Then $sleep=4000 ElseIf $dauer=5 Then $sleep=5000 Else $sleep=100 EndIf GUISetState(@SW_SHOW, $titel) sleep($sleep) EndFunc Edited January 25, 2013 by Melba23 Added code tags Link to comment Share on other sites More sharing options...
water Posted January 24, 2013 Share Posted January 24, 2013 Willkommen zu AutoIt und im Forum! Du kannst hier in jeder Sprache posten - aber der überwiegende Großteil der Threads ist in Englisch. Was auf jeden Fall fehlt: Du solltest den Code in die Tags [autoit][/autoit] einfügen - das formatiert den Code dann gleich lesbar. My UDFs and Tutorials: Spoiler UDFs:Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - WikiExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example ScriptsOutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - WikiOutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - DownloadOutlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - WikiPowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - WikiTask Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs:Excel - Example Scripts - WikiWord - Wiki Tutorials:ADO - WikiWebDriver - Wiki Link to comment Share on other sites More sharing options...
UEZ Posted January 24, 2013 Share Posted January 24, 2013 Falls du nicht in Englisch schreiben möchtest, warum auch immer, dann empfehle ich dir das deutsche AutoIt Forum.Hier kannst du, wie von water gesagt, in der Sprache deiner Wahl posten, macht aber hier keinen Sinn! Gruß,UEZ Please don't send me any personal message and ask for support! I will not reply! Selection of finest graphical examples at Codepen.io The own fart smells best! ✌Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!¯\_(ツ)_/¯ ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ Link to comment Share on other sites More sharing options...
plfire Posted January 25, 2013 Author Share Posted January 25, 2013 Willkommen zu AutoIt und im Forum! Du kannst hier in jeder Sprache posten - aber der überwiegende Großteil der Threads ist in Englisch. Was auf jeden Fall fehlt: Du solltest den Code in die Tags [autoit][/autoit] einfügen - das formatiert den Code dann gleich lesbar. Und wie mach ich das? Link to comment Share on other sites More sharing options...
plfire Posted January 25, 2013 Author Share Posted January 25, 2013 (edited) expandcollapse popup#include <WindowsConstants.au3> Func farbfenster($titel, $weite, $hoehe, $mittig, $farbe, $transparenz, $dauer) If $mittig="ja" Then $left=-1 $top=-1 Else $left=0 $top=0 EndIf Local $sleep Local $gui Global $color $gui=GUICreate($titel, $weite, $hoehe, $left, $top, $WS_POPUP) If $farbe="blau" Then $color=0X0000FF ElseIf $farbe="gelb" Then $color=0XFFFF00 ElseIf $farbe="grün" Then $color=0X00FF00 ElseIf $farbe="rot" Then $color=0XFF0000 ElseIf $farbe="schwarz" Then $color=0X000000 ElseIf $farbe="weiß" Then $color=0XFFFFFF Else $color=0X000000 EndIf GUISetBkColor($color, $gui) WinSetTrans($titel, "", $transparenz) If $dauer=1 Then $sleep=1000 ElseIf $dauer=2 Then $sleep=2000 ElseIf $dauer=3 Then $sleep=3000 ElseIf $dauer=4 Then $sleep=4000 ElseIf $dauer=5 Then $sleep=5000 Else $sleep=100 EndIf GUISetState(@SW_SHOW, $titel) sleep($sleep) EndFunc Edited January 25, 2013 by Melba23 Added code tags Link to comment Share on other sites More sharing options...
water Posted January 25, 2013 Share Posted January 25, 2013 (edited) Du solltest den Code in die Tags [autoit][/autoit] einfügen - das formatiert den Code dann gleich lesbar.Also entweder händisch einfügen oder auf das blaue Icon mit dem A klicken. Edited January 25, 2013 by water My UDFs and Tutorials: Spoiler UDFs:Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - WikiExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example ScriptsOutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - WikiOutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - DownloadOutlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - WikiPowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - WikiTask Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs:Excel - Example Scripts - WikiWord - Wiki Tutorials:ADO - WikiWebDriver - Wiki Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted January 25, 2013 Moderators Share Posted January 25, 2013 plfire, I have merged your topics - please stick to just the one in future. And this is an English speaking-forum - please post in English. Although you can still use German if you add an English translation (via Google if necessary). M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
PhoenixXL Posted January 25, 2013 Share Posted January 25, 2013 many german speaking people here My code: PredictText: Predict Text of an Edit Control Like Scite. Remote Gmail: Execute your Scripts through Gmail. StringRegExp:Share and learn RegExp.Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). Database: An easier approach for _SQ_LITE beginners. MathsEx: A UDF for Fractions and LCM, GCF/HCF. FloatingText: An UDF for make your text floating. Clipboard Extendor: A clipboard monitoring tool. Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead. RestrictEdit_SRE: Restrict text in an Edit Control through a Regular Expression. Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted January 25, 2013 Moderators Share Posted January 25, 2013 PhoenixXL,And I speak languages other than English too - but this is an English-speaking forum. I have no problems with people posting in other languages IF they also provide an English translation (using a translation engine if necessary). I see this as a matter of common courtesy to the majority of forum members. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
water Posted January 25, 2013 Share Posted January 25, 2013 (edited) @PhoenixXL Yes, but I get the impression that even more speak Dutch! Edited January 25, 2013 by water My UDFs and Tutorials: Spoiler UDFs:Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - WikiExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example ScriptsOutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - WikiOutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - DownloadOutlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - WikiPowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - WikiTask Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs:Excel - Example Scripts - WikiWord - Wiki Tutorials:ADO - WikiWebDriver - Wiki Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now