Jump to content

Any way to have button on desktop like these


myspacee
 Share

Recommended Posts

hello,

in last time i'm searching to create a T9 on screen for my mediacenter computer.

Reach good level and learn a lot from all people that help me in last post.

Now i've a joypad in my hand and want to apply my t9 job also for this.

Is possible to have big buttons on screen like this :

Posted Image

thank you all for support,

m.

Link to comment
Share on other sites

Here's a test I did a while back:

#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=Moon GUI.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <GUIConstantsEX.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

Dim $files[3],$CGUI[3],$X[2]

$files[0] = @TempDir & "\moon transparent.gif"
$files[1] = @TempDir & "\rings.gif"
$files[2] = ""

If Not FileExists(@TempDir & "\moon transparent.gif") Then
    FileInstall("C:\Users\Owner\Desktop\moon transparent.gif",@TempDir & "\moon transparent.gif")
EndIf
If Not FileExists(@TempDir & "\rings.gif") Then
    FileInstall("C:\Users\Owner\Desktop\rings.gif",@TempDir & "\rings.gif")
EndIf

#Region ### START Koda GUI section ### Form=
$frmCustomGUI = GUICreate("Custom GUI", 561, 385, 193, 125, $WS_POPUP, $WS_EX_LAYERED)
For $n = 0 To 2
    If $n = 0 Then
        $CGUI[$n] = GUICtrlCreatePic($files[0], 0, 0, 561,385, -1, $GUI_WS_EX_PARENTDRAG)
    ElseIf $n = 1 Then
        $CGUI[$n] = GUICtrlCreatePic($files[1],0,0,561,350,-1,$GUI_WS_EX_PARENTDRAG)
        GUICtrlSetState(-1,$GUI_DISABLE)
    ElseIf $n = 2 Then
        $CGUI[$n] = GUICtrlCreatePic("",0,0,561,385,-1)
        GUICtrlSetState(-1,$GUI_DISABLE)
    EndIf
Next
$X[1] = GUICtrlCreateButton("X", 543, 0, 18, 18, -1)
GUICtrlSetColor(-1,0xB30000)
GUICtrlSetFont(-1,10,575)
$X[0] = GUICtrlCreateButton("Button1", 250, 288, 57, 25, -1)
For $n = 0 To 1
    GUICtrlSetState($X[$n],$GUI_ONTOP)
Next
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$cur_coor = MouseGetPos()
Opt("MouseCoordMode",0)
MouseMove(250,288,0)
MouseMove(543,0,0)
Opt("MouseCoordMode",1)
MouseMove($cur_coor[0],$cur_coor[1],0)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $X[1]
            Exit
        Case $X[0]
            MsgBox(0,"Message","It works")
    EndSwitch
WEnd

Yes, I made the pictures from scratch.

post-25602-1227870055_thumb.gif

post-25602-1227870087_thumb.gif

Edited by dbzfanatic
Link to comment
Share on other sites

I wrote the script in vista and I tried it with the latest stable (3.2.12.1) and the beta and it worked. What do you see for a background?

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

  • Recently Browsing   0 members

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