beydere Posted July 18, 2010 Share Posted July 18, 2010 Öncelikle Merhaba Ben 5 Tane Form Hazırladım.. Ama Bu Formları Buttonlarla Birbirine Bağlayamadım... Nasıl Birşey Diye Sorarsanız; http://img202.imageshack.us/f/adszecp.png/ Bu Fotoğrafta Açık Olan Katagoriyi Kırmızı İle İşaretledim. Ve Açmak İstediğim Katagoriyi De Mavi İle İşaretledim. Şimdi Ben Açmak İstediğim Katagoriye ( Button'a) Basınca Buttonlar Değişmeden Sadece Tenrengi Bir Renkle İşaretlediğim Yerin Değişmesini Nasıl Saglaya Bilirim http://img683.imageshack.us/f/adszszv.png/ Lütfen Bana Bu Buttonları Birbirine Dönecek Şekilde Nasıl Yapacaqımı Söylermisiniz ?? Şimdiden Teşekkürler Link to comment Share on other sites More sharing options...
blue_life Posted July 18, 2010 Share Posted July 18, 2010 GUICtrlCreateTab kullan. Illa birden fazla gui oluşturmak ve bunları butonlara bağlamak istersen guileri func içinde oluştur veyahut func ile bağlantılarını yap... Link to comment Share on other sites More sharing options...
beydere Posted July 18, 2010 Author Share Posted July 18, 2010 Saol Kardeşim Link to comment Share on other sites More sharing options...
korasoglu Posted October 1, 2010 Share Posted October 1, 2010 hocam aio tarzı şu çalışma nasıl olacak. #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> $Form2 = GUICreate("Tabbed Notebook Dialog", 413, 298, 303, 219) GUISetIcon("D:\005.ico") $PageControl1 = GUICtrlCreateTab(8, 8, 396, 256) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) $TabSheet1 = GUICtrlCreateTabItem("TabSheet1") $Radio1 = GUICtrlCreateRadio("seç", 256, 72, 113, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio2 = GUICtrlCreateRadio("iptal", 256, 96, 113, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 40, 56, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 40, 80, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Button4 = GUICtrlCreateButton("kur", 56, 144, 129, 33, 0) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $TabSheet2 = GUICtrlCreateTabItem("TabSheet2") $Checkbox3 = GUICtrlCreateCheckbox("Checkbox1", 57, 59, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox4 = GUICtrlCreateCheckbox("Checkbox2", 57, 83, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Button5 = GUICtrlCreateButton("kur", 73, 147, 129, 33, 0) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio3 = GUICtrlCreateRadio("iptal", 273, 99, 113, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio4 = GUICtrlCreateRadio("seç", 273, 75, 113, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $TabSheet3 = GUICtrlCreateTabItem("TabSheet3") $Checkbox5 = GUICtrlCreateCheckbox("Checkbox1", 54, 72, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox6 = GUICtrlCreateCheckbox("Checkbox2", 54, 96, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Button6 = GUICtrlCreateButton("kur", 70, 160, 129, 33, 0) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio5 = GUICtrlCreateRadio("iptal", 270, 112, 113, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio6 = GUICtrlCreateRadio("seç", 270, 88, 113, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlCreateTabItem("") $Button1 = GUICtrlCreateButton("&OK", 166, 272, 75, 25, 0) $Button2 = GUICtrlCreateButton("&Cancel", 246, 272, 75, 25, 0) $Button3 = GUICtrlCreateButton("&Help", 328, 272, 75, 25, 0) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Link to comment Share on other sites More sharing options...
blue_life Posted October 2, 2010 Share Posted October 2, 2010 @korasoglu Guini oluşturmuşsun. Sen nerde takıldın? Butonlara görev atamayımı yapamadın? Link to comment Share on other sites More sharing options...
Dj Demir Posted October 2, 2010 Share Posted October 2, 2010 Eğer sorunun butonlar ve checkboxlar ise Checkboxları GuiCtrLRead ile kontrol ettirip Seçili olduğunda yapılması gereken işlemleri göndertirsin . Link to comment Share on other sites More sharing options...
korasoglu Posted October 2, 2010 Share Posted October 2, 2010 evet evet benim sorununm butonlar aynen aio da olduğu gibi checkboxlar seçilecek kur butonuylada kurucak istersen kullanıcı hepsini sececek. hatta birde oner radio butonu olsa herhelde daha iyi olur. bu tablerdan ben çok fazla yapıcağım fakat siz bana mantığı öğretirseniz ben devamını yapabilirim. tab olmadan sayfalara geçiş yapıp kurulum yapabiliyorum ama tablar işin içine girdimi olmuyor yardımızı rica ediyorum. Link to comment Share on other sites More sharing options...
blue_life Posted October 2, 2010 Share Posted October 2, 2010 Sen gui tasarımını yap, gu elemanlarını yönetmende sana yardımcı oluruz... #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> $Form2 = GUICreate("Tabbed Notebook Dialog", 413, 298, 303, 219) GUISetIcon("D:\005.ico") $PageControl1 = GUICtrlCreateTab(8, 8, 396, 256) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) $TabSheet1 = GUICtrlCreateTabItem("TabSheet1") $Radio1 = GUICtrlCreateRadio("seç", 256, 72, 113, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio2 = GUICtrlCreateRadio("iptal", 256, 96, 113, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetState($Radio1, 1) ;ratiyoyu ve checkboxu bu şekilde seçebilirsin. $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 40, 56, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetState($Checkbox1, 1) ;ratiyoyu ve checkboxu bu şekilde seçebilirsin. $Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 40, 80, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetState($Checkbox2, 1) ;ratiyoyu ve checkboxu bu şekilde seçebilirsin. $Button4 = GUICtrlCreateButton("Deneme Buraya bas", 56, 144, 129, 33, 0) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $TabSheet2 = GUICtrlCreateTabItem("TabSheet2") $Checkbox3 = GUICtrlCreateCheckbox("Checkbox1", 57, 59, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox4 = GUICtrlCreateCheckbox("Checkbox2", 57, 83, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Button5 = GUICtrlCreateButton("kur", 73, 147, 129, 33, 0) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio3 = GUICtrlCreateRadio("iptal", 273, 99, 113, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio4 = GUICtrlCreateRadio("seç", 273, 75, 113, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $TabSheet3 = GUICtrlCreateTabItem("TabSheet3") $Checkbox5 = GUICtrlCreateCheckbox("Checkbox1", 54, 72, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox6 = GUICtrlCreateCheckbox("Checkbox2", 54, 96, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Button6 = GUICtrlCreateButton("kur", 70, 160, 129, 33, 0) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio5 = GUICtrlCreateRadio("iptal", 270, 112, 113, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Radio6 = GUICtrlCreateRadio("seç", 270, 88, 113, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlCreateTabItem("") $Button1 = GUICtrlCreateButton("&OK", 166, 272, 75, 25, 0) $Button2 = GUICtrlCreateButton("&Cancel", 246, 272, 75, 25, 0) $Button3 = GUICtrlCreateButton("&Help", 328, 272, 75, 25, 0) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button4 ; butonlara bu şelilde görev atayabiirsin. MsgBox(64,"","Deneme") GUICtrlSetState($Radio2, 1) ;ratiyoyu ve checkboxu bu şekilde seçebilirsin. GUICtrlSetState($Checkbox1, 4) ;ratiyoyu ve checkboxun seçimi bu şekilde kaldırabilirsin EndSwitch WEnd Link to comment Share on other sites More sharing options...
korasoglu Posted October 3, 2010 Share Posted October 3, 2010 hocam şuna bakıp yardımcı olursanız sevinirim. Please register to see this content. Link to comment Share on other sites More sharing options...
djonur007 Posted October 3, 2010 Share Posted October 3, 2010 kodları burda verseydin yardım ederdim. ufacık dosyayı upload etmene ne gerek var? Link to comment Share on other sites More sharing options...
Dj Demir Posted October 3, 2010 Share Posted October 3, 2010 ne için yardım istiyorsun anlamadım zaten hazırlanmış . Diğer fonksiyonları da ilk fonksiyon gibi yap . Link to comment Share on other sites More sharing options...
korasoglu Posted October 3, 2010 Share Posted October 3, 2010 buyrun kodlar ===================== #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("Flash Disk Yönetimi", 366, 314, 249, 193) GUISetIcon("D:\005.ico") $karma1 = GUICtrlCreateButton("Karma Programlar", 8, 6, 169, 145, 0) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x008000) GUICtrlSetCursor (-1, 0) $portable1 = GUICtrlCreateButton("Portable Programlar", 187, 6, 169, 145, 0) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetCursor (-1, 1) $dowlant1 = GUICtrlCreateButton("Dowlant Klasörü", 187, 161, 169, 145, 0) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetCursor (-1, 7) $evrak1 = GUICtrlCreateButton("Evrak Çantam", 8, 161, 169, 145, 0) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) GUICtrlSetCursor (-1, 9) GUISetState(@SW_SHOW) $Form2 = GUICreate("Flash Disk Yönetimi", 464, 521, 211, 131) GUISetIcon("D:\005.ico") $PageControl1 = GUICtrlCreateTab(8, 8, 450, 483) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) $TabSheet1 = GUICtrlCreateTabItem("Sistem") $Checkbox283 = GUICtrlCreateCheckbox("Ofis 2003 + 2007 Uyumluluk", 24, 57, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetCursor (-1, 0) $Checkbox284 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 80, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Tahoma") GUICtrlSetColor(-1, 0x008000) GUICtrlSetCursor (-1, 0) $Checkbox285 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 102, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox286 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 125, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox287 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 147, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox288 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 170, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox289 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 193, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox290 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 215, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox291 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 238, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox292 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 261, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox293 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 283, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox294 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 306, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox295 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 353, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox296 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 375, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox297 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 398, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox298 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 444, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox299 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 467, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox300 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 57, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox301 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 80, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox302 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 102, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox309 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 467, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox310 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 444, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox311 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 398, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox312 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 375, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox313 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 353, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox314 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 306, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox315 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 283, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox316 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 261, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox317 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 238, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox318 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 215, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox319 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 193, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox320 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 170, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox321 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 147, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox322 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 125, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label1 = GUICtrlCreateLabel("---- M ü z i k P r o g r a m l a r ı ----", 24, 330, 188, 18) GUICtrlSetFont(-1, 8, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetCursor (-1, 2) $Label2 = GUICtrlCreateLabel("---- S i s t e m P r o g r a m l a r ı ----", 24, 33, 197, 18) GUICtrlSetFont(-1, 8, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetCursor (-1, 2) $Label3 = GUICtrlCreateLabel("-- İ n t e r n e t P r o g r a m l a r ı --", 262, 33, 192, 18) GUICtrlSetFont(-1, 8, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetCursor (-1, 2) $Label4 = GUICtrlCreateLabel("------- C d P r o g r a m l a r ı -------", 261, 330, 197, 18) GUICtrlSetFont(-1, 8, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetCursor (-1, 2) $Label5 = GUICtrlCreateLabel("------- M a u a S a ğ C l i k P r o g r a m l a r ı -------", 114, 421, 285, 18) GUICtrlSetFont(-1, 8, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetCursor (-1, 2) $TabSheet2 = GUICtrlCreateTabItem("İnternet") $Label6 = GUICtrlCreateLabel("---- S i s t e m P r o g r a m l a r ı ----", 24, 33, 197, 18) GUICtrlSetFont(-1, 8, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetCursor (-1, 2) $Checkbox81 = GUICtrlCreateCheckbox("Ofis 2003 + 2007 Uyumluluk", 24, 57, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetCursor (-1, 0) $Checkbox82 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 80, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Tahoma") GUICtrlSetColor(-1, 0x008000) GUICtrlSetCursor (-1, 0) $Checkbox83 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 102, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox84 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 125, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox85 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 147, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox86 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 170, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox87 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 193, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox88 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 215, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox89 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 238, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox90 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 261, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox91 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 283, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox92 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 306, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label7 = GUICtrlCreateLabel("---- M ü z i k P r o g r a m l a r ı ----", 24, 330, 188, 18) GUICtrlSetFont(-1, 8, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetCursor (-1, 2) $Checkbox93 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 353, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox94 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 375, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox95 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 398, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label8 = GUICtrlCreateLabel("------- M a u a S a ğ C l i k P r o g r a m l a r ı -------", 114, 421, 285, 18) GUICtrlSetFont(-1, 8, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetCursor (-1, 2) $Checkbox96 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 444, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox97 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 24, 467, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox98 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 467, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox99 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 444, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox100 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 398, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox101 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 375, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox102 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 353, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label9 = GUICtrlCreateLabel("------- C d P r o g r a m l a r ı -------", 262, 330, 197, 18) GUICtrlSetFont(-1, 8, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetCursor (-1, 2) $Checkbox103 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 306, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox104 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 283, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox105 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 261, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox106 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 238, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox107 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 215, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox108 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 193, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox109 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 170, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox110 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 147, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox111 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 125, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox112 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 102, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox113 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 80, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox114 = GUICtrlCreateCheckbox("İnternet Dowlant Menager 3.19", 262, 57, 193, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Label10 = GUICtrlCreateLabel("-- İ n t e r n e t P r o g r a m l a r ı --", 262, 33, 192, 18) GUICtrlSetFont(-1, 8, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetCursor (-1, 2) $TabSheet3 = GUICtrlCreateTabItem("karma-1") $TabSheet4 = GUICtrlCreateTabItem("Karma-2") $TabSheet5 = GUICtrlCreateTabItem("Resim") $TabSheet6 = GUICtrlCreateTabItem("Film") $TabSheet7 = GUICtrlCreateTabItem("Müzik") $TabSheet8 = GUICtrlCreateTabItem("Converter") $TabSheet9 = GUICtrlCreateTabItem("Virüs") $TabSheet10 = GUICtrlCreateTabItem("Katılımsız") $TabSheet11 = GUICtrlCreateTabItem("Web") $TabSheet12 = GUICtrlCreateTabItem("Chm") $TabSheet13 = GUICtrlCreateTabItem("Sözlük") $TabSheet14 = GUICtrlCreateTabItem("Capture") GUICtrlCreateTabItem("") $Button1 = GUICtrlCreateButton("&OK", 314, 491, 70, 25, 0) GUICtrlSetCursor (-1, 9) $Button2 = GUICtrlCreateButton("&Cancel", 388, 491, 70, 25, 0) GUICtrlSetCursor (-1, 7) $anasayfa1 = GUICtrlCreateButton("AnaSayfa", 7, 491, 70, 25, 0) GUICtrlSetCursor (-1, 9) $Button4 = GUICtrlCreateButton("Tümünü Seç", 81, 491, 70, 25, 0) GUICtrlSetCursor (-1, 9) $Button5 = GUICtrlCreateButton("Seçimi Kaldır", 155, 491, 75, 25, 0) GUICtrlSetCursor (-1, 9) $Button6 = GUICtrlCreateButton("Seçilenleri Kur", 235, 491, 75, 25, 0) GUICtrlSetCursor (-1, 9) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $karma1 _karma1() Case $portable1 _portable1() Case $dowlant1 _dowlant1() Case $evrak1 _evrak1() Case $anasayfa1 _anasayfa1() EndSwitch WEnd Func _karma1() GUISetState(@SW_SHOW,$Form2) GUISetState(@SW_HIDE,$Form1) EndFunc Func _anasayfa1() GUISetState(@SW_SHOW,$Form1) GUISetState(@SW_HIDE,$Form2) EndFunc burda kategoriler var bu kategorilerde seçime dayalı işler yaptırılacak bana iki sayfada bir kaç tane seçimi gösterseniz gerisi kolay Link to comment Share on other sites More sharing options...
blue_life Posted October 3, 2010 Share Posted October 3, 2010 @korasoglu Sen şimdi tam olarak hangi kısımda takıldın? Script çok uzun, düzenlemek için yeterli vakit ayıramam! Link to comment Share on other sites More sharing options...
korasoglu Posted October 3, 2010 Share Posted October 3, 2010 hocam tümünü seçe tıklayınca bütün checkboxları kaldır diyencede tersini yapmasını istiyorum kur diyincede kurmasını istiyorum. ben tümünü seçme ve kaldırmayı yapamadım Link to comment Share on other sites More sharing options...
blue_life Posted October 3, 2010 Share Posted October 3, 2010 @korasoglu Dediğim gibi örneğin çok uzun. Ben sana basit bir örnek verim sen mantığı anlarsın... Kolay gelsin... #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 366, 228, 192, 124) $Checkbox1 = GUICtrlCreateCheckbox("Notepad", 24, 32, 97, 17) $Checkbox2 = GUICtrlCreateCheckbox("Paint", 24, 64, 97, 17) $Checkbox3 = GUICtrlCreateCheckbox("hesap Makinesi", 24, 88, 97, 17) $Checkbox4 = GUICtrlCreateCheckbox("Checkbox4", 152, 40, 97, 17) $Checkbox5 = GUICtrlCreateCheckbox("Checkbox5", 152, 64, 97, 17) $Checkbox6 = GUICtrlCreateCheckbox("Checkbox6", 152, 88, 97, 17) $Button1 = GUICtrlCreateButton("Kur", 24, 168, 75, 25, $WS_GROUP) $Button2 = GUICtrlCreateButton("Hepsini Seç", 120, 168, 75, 25, $WS_GROUP) $Button3 = GUICtrlCreateButton("Hepsini seçimini Kaldır", 216, 168, 125, 25, $WS_GROUP) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 ;Kur butonu If GUICtrlRead($Checkbox1) = 1 Then ;Birinci check seçili ise aşağıdaki komutları uygula Run("Notepad.exe") EndIf If GUICtrlRead($Checkbox2) = 1 Then ;Ikinci check seçili ise aşağıdaki komutları uygula Run("mspaint.exe") EndIf If GUICtrlRead($Checkbox3) = 1 Then ;Üçüncü check seçili ise aşağıdaki komutları uygula Run("calc.exe") EndIf ;Gerisini sen eklersin Case $Button2 ;Hepsini seç GUICtrlSetState($Checkbox1,1) GUICtrlSetState($Checkbox2,1) GUICtrlSetState($Checkbox3,1) GUICtrlSetState($Checkbox4,1) GUICtrlSetState($Checkbox5,1) GUICtrlSetState($Checkbox6,1) Case $Button3 ;Hepsini seç GUICtrlSetState($Checkbox1,4) GUICtrlSetState($Checkbox2,4) GUICtrlSetState($Checkbox3,4) GUICtrlSetState($Checkbox4,4) GUICtrlSetState($Checkbox5,4) GUICtrlSetState($Checkbox6,4) EndSwitch WEnd Link to comment Share on other sites More sharing options...
Dj Demir Posted October 3, 2010 Share Posted October 3, 2010 Hocam zaten vermiş ilk örnekte de vermişti . bir değişken değil ki anında yapılsın . ama değişkenlerin nasıl seçildiğine bakarsan Örnek böyle . GUICtrlSetState($Checkbox1,4) diğerlerini de kopyala yapıştır yapıp değişken isimlerini düzenlersin olur biter . Link to comment Share on other sites More sharing options...
korasoglu Posted October 3, 2010 Share Posted October 3, 2010 hocam eline sağlık teşekkür ederim. peki bu çalışmada portable klasörünü aç butonuna tıklandığım zaman ilgili dosyayı nasıl açtırırım. birde bunu flash diske atsam başks pcde sürücü adı değişirse nasıl olur. Link to comment Share on other sites More sharing options...
blue_life Posted October 4, 2010 Share Posted October 4, 2010 Meseal portable klasörün C:\program files olsun. O zaman; Global $Klasor = "C:\Program Files" ;Bir değişkene açmak istediğim klasörün konumu atayalım Run('explorer /n, "' & $Klasor & '"') ;explorer ile konumu açalım Her zaman aynı pencereda açılması için; Global $Klasor = "C:\Program Files" ;Bir değişkene açmak istediğim klasörün konumu atayalım Run('explorer /root,, "' & $Klasor & '"') ;explorer ile konumu açalım Ayrıntılı bilgi için explorer parameterlerine bak! Please register to see this content. Diğer soruna gelirsek, yardım dosyasından DriveSetLabel komutuna bak. Kolay gelsin... Link to comment Share on other sites More sharing options...
korasoglu Posted October 6, 2010 Share Posted October 6, 2010 hocam anlayamadım driver-c ve driver -d de bir dosya açtıracak örnek verseniz yani bir form üzerinde -------------------------------------------------------- hocam şu çalışmayı inceleyin 1=bir tandan diğer taba geçince sayfa boyutunu nasıl değiştirebilirim 2=ben her taba ortak kullanılan buton oluşturdum bunları her tabda çalışacak şekilde nasıl ayarlarız ----------------------------------------- #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Tabbed Notebook Dialog", 413, 305, 303, 219) GUISetIcon("D:\005.ico") $PageControl1 = GUICtrlCreateTab(8, 8, 396, 256) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT) $TabSheet1 = GUICtrlCreateTabItem("1") $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 32, 72, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 32, 104, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $TabSheet2 = GUICtrlCreateTabItem("2") $Checkbox3 = GUICtrlCreateCheckbox("Checkbox1", 32, 72, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox4 = GUICtrlCreateCheckbox("Checkbox2", 32, 104, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $TabSheet3 = GUICtrlCreateTabItem("3") GUICtrlSetState(-1,$GUI_SHOW) $Checkbox5 = GUICtrlCreateCheckbox("Checkbox1", 32, 72, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox6 = GUICtrlCreateCheckbox("Checkbox2", 32, 104, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlCreateTabItem("") $Button1 = GUICtrlCreateButton("Öner", 168, 272, 75, 25, 0) $Button2 = GUICtrlCreateButton("Yükle", 248, 272, 75, 25, 0) $Button3 = GUICtrlCreateButton("Hakkında", 328, 272, 75, 25, 0) $Button4 = GUICtrlCreateButton("İptal", 87, 272, 75, 25, 0) $Button5 = GUICtrlCreateButton("Seç", 7, 272, 75, 25, 0) GUISetState(@SW_SHOW) $Form2 = GUICreate("Form1", 413, 298, 284, 215) $Button7 = GUICtrlCreateButton("Button7", 112, 64, 75, 25, 0) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button3 _hak() Case $Button7 _geri() Case $Button5 ;Hepsini seç form1 GUICtrlSetState($Checkbox1,1) GUICtrlSetState($Checkbox2,1) GUICtrlSetState($Checkbox3,1) GUICtrlSetState($Checkbox4,1) GUICtrlSetState($Checkbox5,1) GUICtrlSetState($Checkbox6,1) Case $Button4 ;Hepsini kaldır form1 GUICtrlSetState($Checkbox1,4) GUICtrlSetState($Checkbox2,4) GUICtrlSetState($Checkbox3,4) GUICtrlSetState($Checkbox4,4) GUICtrlSetState($Checkbox5,4) GUICtrlSetState($Checkbox6,4) Case $Button1 ;Hepsini kaldır form1 GUICtrlSetState($Checkbox1,1) GUICtrlSetState($Checkbox3,1) GUICtrlSetState($Checkbox5,1) EndSwitch WEnd Func _hak();form2 göster form1 gizle GUISetState(@SW_SHOW,$Form2) GUISetState(@SW_HIDE,$Form1) EndFunc Func _geri();form2 göster form1 gizle GUISetState(@SW_SHOW,$Form1) GUISetState(@SW_HIDE,$Form2) EndFunc Link to comment Share on other sites More sharing options...
blue_life Posted October 7, 2010 Share Posted October 7, 2010 @korasoglu Birinci sorunu anlamadım. Yani herangi bir sürücüdeki bir dosyımı açmak istiyorsun? Biraz daha açık yazmalısın. Yardım dosyasından FileSaveDialog komutuna bak. Diğer soruna gelirsek, önce hangi tabda olduğunu bulup ilgili taba göre işlem yaptırabilirsin. #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> Global $Tab_Read #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Tabbed Notebook Dialog", 413, 305, 303, 219) GUISetIcon("D:\005.ico") $PageControl1 = GUICtrlCreateTab(8, 8, 396, 256) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) $TabSheet1 = GUICtrlCreateTabItem("1") $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 32, 72, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 32, 104, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $TabSheet2 = GUICtrlCreateTabItem("2") $Checkbox3 = GUICtrlCreateCheckbox("Checkbox1", 32, 72, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox4 = GUICtrlCreateCheckbox("Checkbox2", 32, 104, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $TabSheet3 = GUICtrlCreateTabItem("3") GUICtrlSetState(-1, $GUI_SHOW) $Checkbox5 = GUICtrlCreateCheckbox("Checkbox1", 32, 72, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox6 = GUICtrlCreateCheckbox("Checkbox2", 32, 104, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlCreateTabItem("") $Button1 = GUICtrlCreateButton("Öner", 168, 272, 75, 25, 0) $Button2 = GUICtrlCreateButton("Yükle", 248, 272, 75, 25, 0) $Button3 = GUICtrlCreateButton("Hakkında", 328, 272, 75, 25, 0) $Button4 = GUICtrlCreateButton("İptal", 87, 272, 75, 25, 0) $Button5 = GUICtrlCreateButton("Seç", 7, 272, 75, 25, 0) GUISetState(@SW_SHOW) $Form2 = GUICreate("Form1", 413, 298, 284, 215) $Button7 = GUICtrlCreateButton("Button7", 112, 64, 75, 25, 0) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button3 _hak() Case $Button7 _geri() Case $PageControl1 ;~ MsgBox(64,"",GUICtrlRead($PageControl1)) Case $Button5 ;Hepsini seç form1 $Tab_Read = GUICtrlRead($PageControl1,1) ;Hangi tabın seçili olduğunu bulalım If $Tab_Read = $TabSheet1 Then ;Birinci tab ise; GUICtrlSetState($Checkbox1, 1) GUICtrlSetState($Checkbox2, 1) ElseIf $Tab_Read = $TabSheet2 Then ;Ikinci tab ise; GUICtrlSetState($Checkbox3, 1) GUICtrlSetState($Checkbox4, 1) ElseIf $Tab_Read = $TabSheet3 Then ;Üçüncü tab ise; GUICtrlSetState($Checkbox5, 1) GUICtrlSetState($Checkbox6, 1) EndIf Case $Button4 ;Hepsini kaldır form1 $Tab_Read = GUICtrlRead($PageControl1,1) ;Hangi tabın seçili olduğunu bulalım If $Tab_Read = $TabSheet1 Then ;Birinci tab ise; GUICtrlSetState($Checkbox1, 4) GUICtrlSetState($Checkbox2, 4) ElseIf $Tab_Read = $TabSheet2 Then ;Ikinci tab ise; GUICtrlSetState($Checkbox3, 4) GUICtrlSetState($Checkbox4, 4) ElseIf $Tab_Read = $TabSheet3 Then ;Üçüncü tab ise; GUICtrlSetState($Checkbox5, 4) GUICtrlSetState($Checkbox6, 4) EndIf Case $Button1 ;Hepsini kaldır form1 GUICtrlSetState($Checkbox1, 1) GUICtrlSetState($Checkbox3, 1) GUICtrlSetState($Checkbox5, 1) EndSwitch WEnd Func _hak();form2 göster form1 gizle GUISetState(@SW_SHOW, $Form2) GUISetState(@SW_HIDE, $Form1) EndFunc ;==>_hak Func _geri();form2 göster form1 gizle GUISetState(@SW_SHOW, $Form1) GUISetState(@SW_HIDE, $Form2) EndFunc ;==>_geri Link to comment Share on other sites More sharing options...
korasoglu Posted October 8, 2010 Share Posted October 8, 2010 Teşekkür ederim hocam istediğim buydu... Link to comment Share on other sites More sharing options...
korasoglu Posted October 8, 2010 Share Posted October 8, 2010 hocam diyelimki tab1 300x200 tab2 ye tıkladığımız zaman boyutunu misal 500x400 nasıl yapabiliriz. siz bana 3 tabdan oluşan ve her birinin boyutu farklı olan bir örnek hazırlayabilirmisiniz. Link to comment Share on other sites More sharing options...
blue_life Posted October 8, 2010 Share Posted October 8, 2010 @korasoglu GUICtrlSetPos ile yapabilirsin... #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> Global $Tab_Read #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Tabbed Notebook Dialog", 413, 305, 303, 219) GUISetIcon("D:\005.ico") $PageControl1 = GUICtrlCreateTab(8, 8, 396, 256) GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) $TabSheet1 = GUICtrlCreateTabItem("1") $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 32, 72, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 32, 104, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $TabSheet2 = GUICtrlCreateTabItem("2") $Checkbox3 = GUICtrlCreateCheckbox("Checkbox1", 32, 72, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox4 = GUICtrlCreateCheckbox("Checkbox2", 32, 104, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $TabSheet3 = GUICtrlCreateTabItem("3") GUICtrlSetState(-1, $GUI_SHOW) $Checkbox5 = GUICtrlCreateCheckbox("Checkbox1", 32, 72, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") $Checkbox6 = GUICtrlCreateCheckbox("Checkbox2", 32, 104, 97, 17) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlCreateTabItem("") $Button1 = GUICtrlCreateButton("Öner", 168, 272, 75, 25, 0) $Button2 = GUICtrlCreateButton("Yükle", 248, 272, 75, 25, 0) $Button3 = GUICtrlCreateButton("Hakkında", 328, 272, 75, 25, 0) $Button4 = GUICtrlCreateButton("İptal", 87, 272, 75, 25, 0) $Button5 = GUICtrlCreateButton("Seç", 7, 272, 75, 25, 0) GUISetState(@SW_SHOW) $Form2 = GUICreate("Form1", 413, 298, 284, 215) $Button7 = GUICtrlCreateButton("Button7", 112, 64, 75, 25, 0) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button3 _hak() Case $Button7 _geri() Case $PageControl1 Switch GUICtrlRead($PageControl1,1) Case $TabSheet1 GUICtrlSetPos($PageControl1, 8, 8,200,200) Case $TabSheet2 GUICtrlSetPos($PageControl1, 8, 8,250,250) Case $TabSheet3 GUICtrlSetPos($PageControl1, 8, 8,350,250) EndSwitch Case $Button5 ;Hepsini seç form1 $Tab_Read = GUICtrlRead($PageControl1,1) ;Hangi tabın seçili olduğunu bulalım If $Tab_Read = $TabSheet1 Then ;Birinci tab ise; GUICtrlSetState($Checkbox1, 1) GUICtrlSetState($Checkbox2, 1) ElseIf $Tab_Read = $TabSheet2 Then ;Ikinci tab ise; GUICtrlSetState($Checkbox3, 1) GUICtrlSetState($Checkbox4, 1) ElseIf $Tab_Read = $TabSheet3 Then ;Üçüncü tab ise; GUICtrlSetState($Checkbox5, 1) GUICtrlSetState($Checkbox6, 1) EndIf Case $Button4 ;Hepsini kaldır form1 $Tab_Read = GUICtrlRead($PageControl1,1) ;Hangi tabın seçili olduğunu bulalım If $Tab_Read = $TabSheet1 Then ;Birinci tab ise; GUICtrlSetState($Checkbox1, 4) GUICtrlSetState($Checkbox2, 4) ElseIf $Tab_Read = $TabSheet2 Then ;Ikinci tab ise; GUICtrlSetState($Checkbox3, 4) GUICtrlSetState($Checkbox4, 4) ElseIf $Tab_Read = $TabSheet3 Then ;Üçüncü tab ise; GUICtrlSetState($Checkbox5, 4) GUICtrlSetState($Checkbox6, 4) EndIf Case $Button1 ;Hepsini kaldır form1 GUICtrlSetState($Checkbox1, 1) GUICtrlSetState($Checkbox3, 1) GUICtrlSetState($Checkbox5, 1) EndSwitch WEnd Func _hak();form2 göster form1 gizle GUISetState(@SW_SHOW, $Form2) GUISetState(@SW_HIDE, $Form1) EndFunc ;==>_hak Func _geri();form2 göster form1 gizle GUISetState(@SW_SHOW, $Form1) GUISetState(@SW_HIDE, $Form2) EndFunc ;==>_geri Link to comment Share on other sites More sharing options...
korasoglu Posted October 9, 2010 Share Posted October 9, 2010 hocam formla birlikte büyüyüp küçülmesi mümkünmüdür. sizin gösterdiğiniz örnekte sadece tab büyüyor küçülüyor formla birlikte olabilirmi. Link to comment Share on other sites More sharing options...
blue_life Posted October 9, 2010 Share Posted October 9, 2010 @korasoglu Anlamadım! Sen guiyi de mi büyültmek istiyorsun! Biraz daha açık anlat! Guiyi büyültüp küçültmek için WinMove komutunu kullanabilirsin... Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.