ClapTonApp Posted February 12, 2014 Share Posted February 12, 2014 Merhaba arkadaşlar,ben kodada yaptığım bir formda pencerenin üzerindeki simge duruma küçült,ekranı kapla,kapat görevleri bulunan çubuğu yok etmek istiyorum,visual basicde formborderstyle none özelliği ile kapatılabiliyor fakat burada öyle bir şey bulamadım,yardımlarınızı bekliyorum,şimdiden teşekkür ederim :) Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted February 12, 2014 Share Posted February 12, 2014 (edited) #include <GuiConstants.au3> $hGui = GUICreate("Test", 300, 200, Default, Default, $DS_MODALFRAME) $Button = GUICtrlCreateButton("çıkış", 100, 130, 100, 30) GUISetState() Do Sleep(20) Until GUIGetMsg() = $Button yada $hGui = GUICreate( "test" , 200 , 300 , default , default , $ws_popup+$ws_caption ) Edited February 12, 2014 by mesale0077 Quote Link to comment Share on other sites More sharing options...
ClapTonApp Posted February 12, 2014 Author Share Posted February 12, 2014 $Form1 = GUICreate("Form1", 517, 100, -1, -1 ,BitOR($WS_MINIMIZEBOX,$WS_POPUP,$WS_GROUP), $WS_EX_TOOLWINDOW) Forumdan cevap gelmeyince karıştırdım biraz bunları buldum,sen de emek harcamışsın,ayriyetten teşekkürler. :) Quote Link to comment Share on other sites More sharing options...
yusuf1284 Posted February 12, 2014 Share Posted February 12, 2014 (edited) bende neden omadı yahu [spoiler]#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=Clock alt.ico #AutoIt3Wrapper_Compile_Both=y #AutoIt3Wrapper_UseX64=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** HotKeySet("!1", "kisayol") DirCreate(@TempDir & "\hammerxx") FileInstall("muzk.wav", @TempDir & "\hammerxx\ -_-.tmp") Global $ilerisn, $ileridk, $ileribaslat, $dk, $sn GUICreate("Sayaç 3.0", 170, 110, Default, Default, 0x00080000)$Form1 = GUICreate("Form1", 517, 100, -1, -1 ,BitOR($WS_MINIMIZEBOX,$WS_POPUP,$WS_GROUP), $WS_EX_TOOLWINDOW) ;yeni kod GUISetBkColor("#000000") $ileridk = GUICtrlCreateLabel("00", 0, 0, 90, 90) GUICtrlSetFont(-1, 50, 400) GUICtrlSetBkColor(-1, 0x00ff00) $ilerisn = GUICtrlCreateLabel("00", 80, 0, 90, 90) GUICtrlSetFont(-1, 50, 400) GUICtrlSetBkColor(-1, 0x00ff00) GUISetState(@SW_SHOW) WinSetOnTop("Sayaç 3.0", "", 1) While 1 $msg = GUIGetMsg() Select Case $msg = -3 GUIDelete() Exit Case $msg = $ilerisn If Not $ileribaslat = 1 Then $ileribaslat = 1 Global $ilerisayim[4] = [TimerInit(), 0, 0, 0] Else $ileribaslat = 0 Global $ilerisayim[4] = [0, 0, 0, 0] GUICtrlSetData($ileridk, "00") GUICtrlSetData($ilerisn, "00") EndIf Case $msg = $ileridk If Not $ileribaslat = 1 Then $ileribaslat = 1 Global $ilerisayim[4] = [TimerInit(), 0, 0, 0] Else $ileribaslat = 0 Global $ilerisayim[4] = [0, 0, 0, 0] GUICtrlSetData($ileridk, "00") GUICtrlSetData($ilerisn, "00") EndIf EndSelect If $ileribaslat = 1 Then $ilerisayim[1] = Round(TimerDiff($ilerisayim[0]) / 1000) If $ilerisayim[1] <> $ilerisayim[2] Then $ilerisayim[2] = $ilerisayim[1] $ilerisayim[3] += 1 $dk = Int($ilerisayim[3] / 60) $sn = $ilerisayim[3] - $dk * 60 GUICtrlSetData($ileridk, $dk) GUICtrlSetData($ilerisn, $sn) if $dk = 01 and $sn = 52 then SoundPlay("muzk.wav") endif EndIf EndIf WEnd Func kisayol() If Not $ileribaslat = 1 Then $ileribaslat = 1 Global $ilerisayim[4] = [TimerInit(), 0, 0, 0] Else $ileribaslat = 0 Global $ilerisayim[4] = [0, 0, 0, 0] GUICtrlSetData($ileridk, "00") GUICtrlSetData($ilerisn, "00") EndIf EndFunc[/spoiler] Edited February 12, 2014 by yusuf1284 Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted February 12, 2014 Share Posted February 12, 2014 bende neden omadı yahu Script başına gerekli kütüphaneleri eklemeniz lazım ; #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Quote Link to comment Share on other sites More sharing options...
yusuf1284 Posted February 12, 2014 Share Posted February 12, 2014 Script başına gerekli kütüphaneleri eklemeniz lazım ; #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> zamanınz varsa yardımcı olur musnuz ? çalşmayı vereyim şöyle çerçeve kapat butonu gitse ve kapatmak içinde ctrl2 olsa yeterli. http://www.mediafire.com/download/jzp2ms33f94sf8k/sesli+aut.rar Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted February 12, 2014 Share Posted February 12, 2014 zamanınz varsa yardımcı olur musnuz ? çalşmayı vereyim şöyle çerçeve kapat butonu gitse ve kapatmak içinde ctrl2 olsa yeterli. http://www.mediafire.com/download/jzp2ms33f94sf8k/sesli+aut.rar https://www.mediafire.com/?3d6wi5pn2jn4n12 Quote Link to comment Share on other sites More sharing options...
yusuf1284 Posted February 12, 2014 Share Posted February 12, 2014 https://www.mediafire.com/?3d6wi5pn2jn4n12 iyi güzel olduda bunun konumunu nasıl değiştirecez taşınmıyor :) Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted February 12, 2014 Share Posted February 12, 2014 iyi güzel olduda bunun konumunu nasıl değiştirecez taşınmıyor :) https://www.mediafire.com/?dzg517zbcy8p6st Quote Link to comment Share on other sites More sharing options...
yusuf1284 Posted February 12, 2014 Share Posted February 12, 2014 Hocam yine olmadı ama ben alta biraz siyahlık bıraktım öyle taşıyorum benim için bu yeterli Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted February 12, 2014 Share Posted February 12, 2014 Ben deneyip öyle gönderdim, çalışması lazım? Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted February 12, 2014 Share Posted February 12, 2014 http://www.autoitscript.com/wiki/Moving_and_Resizing_PopUp_GUIs Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.