Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 12/13/2016 in all areas

  1. Ok, here is what i came up with after 3-4 hours of scripting well ok, it has been long time since then, so... after an year or so of hard scripting/testing!!! (inspired by this topic)... GUICtrlSetOnHover UDF... Syntax: _GUICtrl_OnHoverRegister(ControlID [, OnHoverFunc [, OnLeaveHoverFunc [, PrimaryDownFunc [, PrimaryUpFunc [, KeepCall_PrDn_Func [, KeepCall_Hover_Func]]]]]]) ControlID can be -1 as in Build-In functions! Example: #include "GUICtrlOnHover.au3" Opt("GUIOnEventMode", 1) $Btn_Color = 0x7A9DD8 $Hover_Color = 0xFF0000 ;0x7AC5D8 $GUIMain = GUICreate("Letters Hovering Example", 570, 200) GUISetOnEvent(-3, "Quit") _CreateLetters_Proc(10, 60, 18, 20) GUICtrlCreateButton("Close", 30, 120, 100, 30) GUICtrlSetOnEvent(-1, "Quit") GUICtrlSetFont(GUICtrlCreateLabel("Letter: ", 35, 170, 200, 20), 9, 800) $Status_Label = GUICtrlCreateLabel("", 80, 171, 200, 20) GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetFont(-1, 8.5, 800) GUISetState() While 1 Sleep(100) WEnd Func _CreateLetters_Proc($iLeft, $Top, $Width=15, $Height=15) Local $iLeft_Begin = $iLeft Local $iAsc_Char = 64 For $i = 0 To 25 $iLeft_Begin += 20 $iAsc_Char += 1 GUICtrlCreateButton(Chr($iAsc_Char), $iLeft_Begin, $Top, $Width, $Height) _GUICtrl_OnHoverRegister(-1, "_Hover_Func", "_Leave_Hover_Func") GUICtrlSetOnEvent(-1, "_Letter_Events") GUICtrlSetBkColor(-1, $Btn_Color) GUICtrlSetFont(-1, 6) Next EndFunc Func _Letter_Events() MsgBox(64, "Pressed", "Letter = " & GUICtrlRead(@GUI_CtrlId)) EndFunc Func _Hover_Func($iCtrlID) GUICtrlSetBkColor($iCtrlID, $Hover_Color) GUICtrlSetData($Status_Label, GUICtrlRead($iCtrlID)) Beep(1000, 20) EndFunc Func _Leave_Hover_Func($iCtrlID) GUICtrlSetBkColor($iCtrlID, $Btn_Color) GUICtrlSetData($Status_Label, "") EndFunc Func Quit() Exit EndFunc Attachments: [The archive include few nice examples, and the UDF itself of course .] * New (v2.1) (Redirection to Zip-file, 159 kb) _GUICtrlSetOnHover.html GUICtrlSetOnHover.zip GUICtrlSetOnHover_UDF.au3 GuiCtrlSetOnHover.zip GUICtrlSetOnHover_UDF_For_3.2.10.0.au3 Old Beta - GUICtrlSetOnHover_UDF_beta.zip Enjoy! P.S Thanks to piccaso for the greatest CallBack tool! Without it, this UDF would never been created! ============================================ History version:
    1 point
  2. water

    OutlookEX

    Version 1.7.0.1

    10,054 downloads

    Extensive library to control and manipulate Microsoft Outlook. This UDF holds the functions to automate items (folders, mails, contacts ...) in the background. Can be seen like an API. There are other UDFs available to automate Outlook: OutlookEX_GUI: This UDF holds the functions to automate the Outlook GUI. OutlookTools: Allows to import/export contacts and events to VCF/ICS files and much more. Threads: Development - General Help & Support - Example Scripts - Wiki BTW: If you like this UDF please click the "I like this" button. This tells me where to next put my development effort KNOWN BUGS (last changed: 2020-02-09) None
    1 point
  3. Local $string[3] = ["HELLO", "WORLD"] For $Element In $string For $chr In StringSplit($Element, '', 2) ConsoleWrite($chr & @TAB & Asc($chr) & @CRLF) Next ; ConsoleWrite(@CRLF) Next
    1 point
  4. You ́r welcome! For the notes: You can pre-customize a project template with your needed macros. This can you use for new projects. Or you can create your own plugin for the ISN. This can be shown in the tools menu for all projects. And so on... ^^ (see demo plugin on my website)
    1 point
  5. 232showtime

    Best Coding Practices

    Help File is the best book I used for autoit...
    1 point
  6. Jos

    Source Code?

    It simply uses the mouse_event as stated and does these steps: MouseDown , MouseMove, MouseUp Jos
    1 point
  7. Example:AutoItX3Control & WScriptShell ;============AutoItX3 & WScript Object Shell============== Local $oAutoIt, $ShellObj $oAutoIt=ObjCreate("AutoItX3.Control") $ShellObj=ObjCreate("WScript.Shell") $ShellObj.Popup ("Run Notepad", 0, "Sample", 0) $ShellObj.Run ("Notepad.exe", 1, False) $oAutoIt.WinWait("[Class:Notepad]") $oAutoIt.WinMove("[Class:Notepad]", "", 320, 270, 400, 250) $oAutoIt.Sleep(1000) $ShellObj.SendKeys ("Send text with WScript.Shell"&@CRLF) $oAutoIt.Sleep(1500) $oAutoIt.Send("Send text with AutoItX3.Control") $oAutoIt.Sleep(1500) $oAutoIt.WinClose("[Class:Notepad]") $oAutoIt.Sleep(1500) MsgBox(64, "Sample", "ExitApp", 1) $oAutoIt.Send("!N") ;=========================================================
    1 point
×
×
  • Create New...