[bLaсk]

Merhaba arkadaşlar kısaca şöyle özetleyeyim. Ben bir bağlantı menüsü yazmaya çalıştım dialog studio ile yanlız eksik tarafları olduğu için oraların üstesinden gelemedim. En alt kısımda bulunan Editbox'a herhangi bir sunucu ismi yazıp gir butonuna basınca o Sunucuya girmesini sağlamaya çalıştım yanlız başaramadım. Yardımcı olursanız Sevinirim.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

dialog bagla {
  title "mIRC Baglanti Menusu "
  size -1 -1 219 95
  option dbu
  text "İdent", 1, 6 38 36 8, center
  text "YedekNickiniz", 2, 6 24 36 8, center
  text "Nickiniz", 3, 6 11 36 8, center
  edit "", 4, 46 10 50 10, return autohs
  edit "", 5, 46 23 50 10, return autohs
  edit "", 6, 46 37 50 10, return autohs
  box "Bağlantı Menüsü", 7, 1 0 109 62
  button "Sohbetim.Com", 8, 119 10 42 12
  button "Siberchat.Net", 9, 169 10 42 12
  button "Sohbet.net", 10, 119 29 42 12
  button "Sohbetik.Com", 11, 169 29 42 12
  button "Turkgurbet.Com", 12, 119 47 42 12
  button "Chatruya.Com", 13, 169 47 42 12
  box "Sunucular", 14, 114 0 104 62
  text "Server ", 15, 6 72 36 8, center
  edit "", 16, 46 71 50 10, return autohs
  box "Sunucuya Gir", 17, 2 62 215 32
  button "Gir", 18, 60 83 25 9
  button "Tamam", 19, 119 70 42 20, ok
  button "Kapat", 20, 170 70 42 20, cancel
  edit "", 21, 46 50 50 10, return autohs
  text "Fullname", 22, 6 51 36 8, center
}

on *:dialog:bagla:init:*:{
  mdx SetMircVersion $version 
  mdx MarkDialog $dname
  mdx SetBorderStyle ,4,6,8,14
  mdx SetDialog [ $dname ] bgcolor [ $rgb(253,254,255) ]
  mdx SetColor 4,5,6,21,23,24 textbg [ $rgb(0,0,0) ]
  mdx SetColor $dname 4,5,6,21,23,24 text $rgb(253,255,250) 
  mdx SetFont $dname Turkish 36 750 Arial
  mdx SetColor 4,5,6,21,23,24 background [ $rgb(0,0,0) ] 
  did -a bagla 4 $me
  did -a bagla 5 $anick
  did -a bagla 6 $email
  did -a bagla 21 $fullname
}

on *:dialog:bagla:sclick:8: { server irc.sohbetim.com }
on *:dialog:bagla:sclick:9: { server irc.siberchat.net }
on *:dialog:bagla:sclick:10: { server irc.sohbet.net }
on *:dialog:bagla:sclick:11: { server irc.sohbetik.com }
on *:dialog:bagla:sclick:12: { server irc.turkgurbet.com }
on *:dialog:bagla:sclick:13: { server irc.chatruya.com }

[AfraN]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:dialog:bagla:sclick:18: { if $did(16) == $null) { echo -a sunucu ismi yazdıktan sonra buttona basınız. örnek sunucu; irc.sunucu.com | return }
  else { server $did(16) }
}

edit kısmına server yazmana gerek yok sadece belirttiğim gibi irc.sunucuismi.uzantı yazıp gir buttonuna basman yeterlidir.

[bLaсk]

Teşekkür ederim Arkadaşım , Bunu kod kısmında paylaşmayı düşünüyordum ilgin ve alakan için teşekkürler.

[StanteaR]

Baglantı Menusunu MDX Ekleyince Hoş Durdu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[bLaсk]

Ewet gayet Güzel Durmuş
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Ellerine sağlık Abi.