MSGBOX Maker

« Older   Newer »
  Share  
-Anubi-
icon10  CAT_IMG Posted on 19/3/2010, 19:45     +1   -1




SPOILER (click to view)
#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <staticconstants.au3>
#include <windowsconstants.au3>
#include <guiedit.au3>

$Form1 = GUICreate("MsgBox Maker 1.0", 633, 344, 192, 124)
$Input1 = GUICtrlCreateInput("Text", 160, 72, 409, 21)
$Pic1 = GUICtrlCreatePic("E:\RDK\error_ico.gif", 8, 40, 65, 57, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic2 = GUICtrlCreatePic("E:\RDK\large-alert-ico.gif", 8, 104, 65, 57, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("E:\RDK\question_ico.gif", 8, 168, 65, 65, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("E:\RDK\info_ico.jpg", 8, 248, 65, 65, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Input2 = GUICtrlCreateInput("Title", 160, 40, 409, 21)

GUISetState(@SW_SHOW)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic1
$tit = _GUICtrlEdit_GetText ($Input2)
$tex = _GUICtrlEdit_GetText ($Input1)
MsgBox ( 16, $tit, $tex )
Case $Pic2
$tit = _GUICtrlEdit_GetText ($Input2)
$tex = _GUICtrlEdit_GetText ($Input1)
MsgBox ( 48, $tit, $tex )
Case $Pic3
$tit = _GUICtrlEdit_GetText ($Input2)
$tex = _GUICtrlEdit_GetText ($Input1)
MsgBox ( 32, $tit, $tex )
Case $Pic4
$tit = _GUICtrlEdit_GetText ($Input2)
$tex = _GUICtrlEdit_GetText ($Input1)
MsgBox ( 64, $tit, $tex )

EndSwitch
WEnd


Crea simpatici messaggi sullo schermo, le immagini cercatele su internet :P
 
Top
CAT_IMG Posted on 20/3/2010, 09:02     +1   -1

So creare belle gui

Group:
Bannato
Posts:
555
Reputazione:
0

Status:


lollissimo XD
 
Top
-Anubi-
CAT_IMG Posted on 20/3/2010, 11:05     +1   -1




Grazie
 
Top
CAT_IMG Posted on 20/3/2010, 11:37     +1   -1

So creare belle gui

Group:
Bannato
Posts:
555
Reputazione:
0

Status:


prego :P
 
Top
3 replies since 19/3/2010, 19:45   149 views
  Share