Jump to content

Button with tekst and icon

bartveg

By bartveg,
in AutoIt GUI Help and Support

 Share

Recommended Posts

smashly Universalist

smashly

Posted
Posted (edited)

Hi, 

#include <GuiConstants.au3>

$Gui = GUICreate(" ;-)", 72, 90, -1, -1, -1, BitOr($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
$icon = GUICtrlCreateIcon("shell32.dll", -22, 19, 19, 32, 32)
GUICtrlSetState(-1, $GUI_DISABLE)
$button = GUICtrlCreateButton("Control Panel", 10, 10, 52, 70, BitOr($WS_CLIPSIBLINGS, $BS_BOTTOM, $BS_MULTILINE))
GUICtrlSetFont(-1, 8, 700)
GUISetState(@SW_SHOW, $Gui)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $button
            ShellExecute("control.exe")
    EndSelect
WEnd

Cheers

Edited by smashly
Link to comment
Share on other sites
martin Universalist

martin

Posted
Posted (edited)

Hi, 

#include <GuiConstants.au3>

$Gui = GUICreate(" ;-)", 72, 90, -1, -1, -1, BitOr($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
$icon = GUICtrlCreateIcon("shell32.dll", -22, 19, 19, 32, 32)
GUICtrlSetState(-1, $GUI_DISABLE)
$button = GUICtrlCreateButton("Control Panel", 10, 10, 52, 70, BitOr($WS_CLIPSIBLINGS, $BS_BOTTOM, $BS_MULTILINE))
GUICtrlSetFont(-1, 8, 700)
GUISetState(@SW_SHOW, $Gui)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $button
            ShellExecute("control.exe")
    EndSelect
WEnd

Cheers

That's really a neat trick smashly, I like that a lot. I've made the icon move when the button is pressed.

;from smashly
#include <GuiConstants.au3>

Dim $button[3],$icon[3],$icondown[3],$label[3]
Global $ix = 21,$iy = 14
$Gui = GUICreate(";-)", 140, 80, -1, -1, -1, $WS_EX_TOOLWINDOW)
$icon[0] = GUICtrlCreateIcon("shell32.dll", -22, 21, 14, 16, 16)
GUICtrlSetState(-1, $GUI_DISABLE)
$label[0] = guictrlcreatelabel('F8',21,29,20,12)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 8, 700)
$button[0] = GUICtrlCreateButton("", 10, 10, 35, 35, BitOR($WS_CLIPSIBLINGS, $BS_BOTTOM, $BS_MULTILINE))
GUICtrlSetFont(-1, 8, 700)
$icon[1] = GUICtrlCreateIcon("shell32.dll", -23, 61, 14, 16, 16)
GUICtrlSetState(-1, $GUI_DISABLE)
$label[1] = guictrlcreatelabel('F9',61,29,20,12)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 8, 700)
$button[1] = GUICtrlCreateButton("", 50, 10, 35, 35, BitOR($WS_CLIPSIBLINGS, $BS_BOTTOM, $BS_MULTILINE))
GUICtrlSetFont(-1, 8, 700)
$icon[2] = GUICtrlCreateIcon("shell32.dll", -24, 101, 14, 16, 16)
GUICtrlSetState(-1, $GUI_DISABLE)
$label[2] = guictrlcreatelabel('F10',101,29,20,12)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 8, 700)
$button[2] = GUICtrlCreateButton("", 90, 10, 35, 35, BitOR($WS_CLIPSIBLINGS, $BS_BOTTOM, $BS_MULTILINE))
GUICtrlSetFont(-1, 8, 700)
GUISetState(@SW_SHOW, $Gui)
for $n = 0 to 2 
    $icondown[$n] = false
Next

While 1
    for $nb = 0 to 2
        CheckButton($icondown,$nb);added by martin
    Next
    

    
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $button[0]
            ShellExecute("control.exe")
        Case $msg = $button[1]
            msgbox(8192,'button','No 2 pressed')
        Case $msg = $button[2]
            msgbox(8192,'button','No 3 pressed')
        ;
    EndSelect
WEnd


Func CheckButton(ByRef $ip,$abut);
    Local $bt = $button[$abut],$ic = $icon[$abut],$lb = $label[$abut]
    Local $ix = 21 + $abut*40,$iy = 14
    $MP = GUIGetCursorInfo($Gui)
    If Not $MP[2] Then;left mouse button is  not pressed
        If $ip[$abut] Then 
            GUICtrlSetPos($ic, $ix , $iy)
            GUICtrlSetPos($lb, $ix , $iy + 15)
        EndIf
        
        $ip[$abut] = false
        Return
    EndIf
;left mouse button is pressed
;if mouse over icon or button
    If ($MP[4] = $ic Or $MP[4] = $bt or $MP[4] = $lb) And not $ip[$abut] Then
        GUICtrlSetPos($ic, $ix  + 1, $iy + 1)
        GUICtrlSetPos($lb, $ix + 1, $iy + 16)
        $ip[$abut] = true
        guictrlsetstate($bt,$GUI_FOCUS)
    Else
        If $ip[$abut] And $MP[4] <> $ic And $MP[4] <> $bt and $mp[4] <> $lb Then
            GUICtrlSetPos($ic, $ix , $iy)
            GUICtrlSetPos($lb, $ix , $iy + 15)
            $ip[$abut] = false
        EndIf
    EndIf
    
EndFunc  ;==>CheckButton

EDIT: changed to have 3 buttons instead of 1

Edited by martin
Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.
Link to comment
Share on other sites
  • 2 months later...
star2 Universalist

star2

Posted
Posted

Hi, 
#include <GuiConstants.au3>

$Gui = GUICreate(" ;-)", 72, 90, -1, -1, -1, BitOr($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
$icon = GUICtrlCreateIcon("shell32.dll", -22, 19, 19, 32, 32)
GUICtrlSetState(-1, $GUI_DISABLE)
$button = GUICtrlCreateButton("Control Panel", 10, 10, 52, 70, BitOr($WS_CLIPSIBLINGS, $BS_BOTTOM, $BS_MULTILINE))
GUICtrlSetFont(-1, 8, 700)
GUISetState(@SW_SHOW, $Gui)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $button
            ShellExecute("control.exe")
    EndSelect
WEndoÝ÷ Ø(^z»?ªê-y«­¢+Ø¥¹±Õ±ÐíÕ¥
½¹ÍѹÑ̹ÔÌÐì((ÀÌØíÕ¤ôU%
ÉÑ ÅÕ½Ðìì´¤ÅÕ½Ðì°ÄÈÔ°ÔÀ¤(ÀÌØí¥½¸ôU%
Ñɱ
ÉÑ%½¸ ÅÕ½ÐíÍ¡±°Ìȹ±°ÅÕ½Ðì°´ÈÈ°äÀ°ÄÜ°ÄØ°Äؤ)U%
ÑɱMÑMÑÑ ´Ä°ÀÌØíU%}%M  1¤(ÀÌØíÕÑѽ¸ôU%
Ñɱ
ÉÑ    ÕÑѽ¸ ÅÕ½Ðì
½¹Ñɽ°A¹°ÅÕ½Ðì°ÄÀ°ÄÀ°ÄÀÔ°ÌÀ°ÀÌØí]M}
1%AM%   1%9L¬ÀÌØí  M}1P¤)U%MÑMÑÑ¡M]}M!=°ÀÌØíÕ¤¤()]¡¥±Ä(ÀÌØíµÍôU%Ñ5Í ¤(M±Ð(
ÍÀÌØíµÍôÀÌØíU%}Y9Q}
1=M(á¥Ð(
ÍÀÌØíµÍôÀÌØíÕÑѽ¸(M¡±±áÕÑ ÅÕ½Ðí½¹Ñɽ°¹áÅÕ½Ðì¤(¹M±Ð)]¹

I really liked the trick !!!

[quote]Baby you're all that I want, When you're lyin' here in my armsI'm findin' it hard to believe, We're in heavenAnd love is all that I need , And I found it there in your heartIt isn't too hard to see, We're in heaven .Bryan Adams[/quote].............................................................................[u]AUTOIT[/u]

Link to comment
Share on other sites
ValeryVal Universalist

ValeryVal

Posted
Posted

This one is more marvelous:

#include <GuiConstants.au3>
$Gui = GUICreate(";-)", 125, 50)
; Try to uncomment this
;$icon = GUICtrlCreateIcon("shell32.dll", -22, 90, 17, 16, 16)
GUICtrlSetState(-1, $GUI_DISABLE)
$button = GUICtrlCreateButton(" Control Panel", 10, 10, 105, 30, $WS_CLIPSIBLINGS + $BS_LEFT)
$icon = GUICtrlCreateIcon("shell32.dll", -25, 90, 17, 16, 16)
GUISetState(@SW_SHOW, $Gui)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $button
            ShellExecute("control.exe")
    EndSelect
WEnd

Try uncomment and comment line #4!

The point of world view

Link to comment
Share on other sites
copyleft Adventurer

copyleft

Posted
Posted (edited)

Of the examples given, Smashly's seems to execute the fastest on my pc. However, how do you add another button to the dialog window to execute, say notepad.exe in the sample script, below:

CODE
#include <GuiConstants.au3>

$Gui = GUICreate("Scan/Pixs)", 72, 90, -1, -1, -1, BitOr($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))

$icon = GUICtrlCreateIcon("shell32.dll", -202, 19, 19, 32, 32)

GUICtrlSetState(-1, $GUI_DISABLE)

$button = GUICtrlCreateButton("Scan", 10, 10, 52, 70, BitOr($WS_CLIPSIBLINGS, $BS_BOTTOM, $BS_MULTILINE))

GUICtrlSetFont(-1, 8, 700)

GUISetState(@SW_SHOW, $Gui)

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

Exit

Case $msg = $button

ShellExecute("CSTBox.exe")

EndSelect

WEnd

Edited by copyleft
Link to comment
Share on other sites
Madza91 Universalist

Madza91

Posted
Posted

This smashly's way is bugged :S

how to make to be transparent a icon background? :s

Posted Image

#include <GuiConstants.au3>

$Gui = GUICreate("button icon", 200, 100, -1, -1)
$ic = GUICtrlCreateIcon("shell32.dll", -30, 19, 19, 32, 32)
GUICtrlSetState(-1, $GUI_DISABLE)
$button = GUICtrlCreateButton("", 10, 10, 52, 70, $WS_CLIPSIBLINGS)
GUISetState()

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
    EndSelect
WEnd

[quote name='dbzfanatic' post='609696' date='Nov 26 2008, 08:46 AM']This is a help forum not a "write this for me" forum.[/quote](Sorry for bad English) :)

Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...