Jump to content

Çıkış Butonu Yapımı


DivaneTR
 Share

Recommended Posts

[center][color=teal][size=16pt][font=trebuchet ms]Bu konuda sizlere AMS programlarımız için çıkış buttonu nasıl tasarlanır onu göstereceğim. Bir button oluşturalım ve kodlarımızı yazalım.[/font][/size][/color][/center]

[code]
Sor = Dialog.Message("ExtremitySoft", "Programı Kapatmak İstediğinizden\nEmin Misiniz ?", MB_OKCANCEL, MB_ICONINFORMATION, MB_DEFBUTTON1);
if Sor == IDOK then
os.exit()
end
[/code]

[center][color=teal][size=16pt][font=trebuchet ms]Önizleme ;[/font][/size][/color][/center]

[center][img]http://i.imgur.com/0kzRC.png[/img][/center]

[center][color=teal][size=16pt][font=trebuchet ms]Bu işlemi button olmadan direkt olarak windows penceresindeki kapat buttonu ile ilişkilendirebiliriz. Global Functions kısmına kodlarımızı yazalım ;[/font][/size][/color][/center]


[code]
function QueryAllowProjectClose()
Sor = Dialog.Message("ExtremitySoft", "Programı Kapatmak İstediğinizden\nEmin Misiniz ?", MB_OKCANCEL, MB_ICONINFORMATION, MB_DEFBUTTON1);
if Sor == IDOK then
return true
else
return false
end
end
[/code]

[center][color=teal][size=16pt][font=trebuchet ms]Şimdi windows penceresindeki kapat butonunu devredışı bırakalım :)[/font][/size][/color][/center]

[code]
function QueryAllowProjectClose()
return false
end
[/code]

[center][color=teal][size=16pt][font=trebuchet ms]Çıkış eylemi için os.exit() komutunu kullandım. Pek bilindik birşey değil. Programın neresinde olursa olsun kökten kapatır.[/font][/size][/color][/center]

Link to comment
Share on other sites

[quote]Sor = Dialog.Message("ExtremitySoft", "Programı Kapatmak İstediğinizden\nEmin Misiniz ?", MB_OKCANCEL, MB_ICONINFORMATION, MB_DEFBUTTON1);
if Sor == IDOK then
os.exit()
end[/quote]

Oraydaki "os.exit()" Yerine Application.Exit() yazılabilir mi?

Link to comment
Share on other sites

[quote name='abdullahTR' date='11 May 2012 - 13:29 ' timestamp='1336732170' post='1199643']
bunu niye önceden yapmadın baba :D benim projeye koyardım artık bi dahaki cd ye ekleriz bunu :)
[/quote]

[center][size="3"][color="#FF0000"][font="Trebuchet MS"][b]Çok önemli birşey değil bence, ayrıntıdır. Gene de istersen bi titreşim göndermen kafi ;)[/b][/font][/color][/size][/center]

Link to comment
Share on other sites

  • 7 ay sonra...

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...