On_LiNe Konu tarihi: 9 Mart 2012 Paylaş Konu tarihi: 9 Mart 2012 Foruma bir ədəd button əlavə edin. Sora buttona 2 defe klik vurub bu kodu yazın.Qeyd edimki ekranı çəkəndə proqram özü düşməyəcək. Kod: Try Dim path As String = Nothing Dim SaveFileDialog1 As New SaveFileDialog With SaveFileDialog1 If .ShowDialog = DialogResult.OK Then path = .FileName End If End With Dim DirectoryA As String = path & ".jpg" Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height) Dim BMP As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height) Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(BMP) g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize) BMP.Save(DirectoryA) MsgBox("Yadda Saxlanıldı " & DirectoryA, MsgBoxStyle.Information) Catch ex As System.Exception MsgBox(ex.Message) End Try Alıntı Link to comment Share on other sites More sharing options...
Guest Musa_ Mesaj tarihi: 9 Mart 2012 Paylaş Mesaj tarihi: 9 Mart 2012 bu barədə mövzu açmışdın bir dəfə deyəsən.. yenə də təşəkkür. Alıntı Link to comment Share on other sites More sharing options...
Maksim_252 Mesaj tarihi: 9 Mart 2012 Paylaş Mesaj tarihi: 9 Mart 2012 Melumata gore cox sag ol. Bir sualim var. delphi7-nin formunda buttonu necə yaradım? mümkünsə ardıcıllığı yazın... Alıntı Link to comment Share on other sites More sharing options...
Axellis Mesaj tarihi: 9 Mart 2012 Paylaş Mesaj tarihi: 9 Mart 2012 Twkler,Isime Yarayacaq maksim Movzudan kenara Cixma Alıntı Link to comment Share on other sites More sharing options...
Maksim_252 Mesaj tarihi: 9 Mart 2012 Paylaş Mesaj tarihi: 9 Mart 2012 Axellis, yuxarıda yazılıb ki, foruma buton əlavə edin. Forum açdım amma buton əlavə edə bilmədim. Ona görə soruşdum, üzrlü hesab elə Alıntı Link to comment Share on other sites More sharing options...
On_LiNe Mesaj tarihi: 9 Mart 2012 mövzunu açan Paylaş Mesaj tarihi: 9 Mart 2012 Musa_ Beli acmisdim onda ekrani cekende proqram ozude dusurdu bunda ise dusmur. Hemde bu ondan bu tam ferqlidir. Maksim_252 Bu Visual Basic.Net ucundu Delphi 7 ucun deyil Alıntı Link to comment Share on other sites More sharing options...
Maksim_252 Mesaj tarihi: 9 Mart 2012 Paylaş Mesaj tarihi: 9 Mart 2012 aa bağışlayın, movzunun visual basic bölməsində açıldığına fikir verməmişəm. çox üzr istəyirəm Alıntı Link to comment Share on other sites More sharing options...
Axellis Mesaj tarihi: 9 Mart 2012 Paylaş Mesaj tarihi: 9 Mart 2012 Maksim Esii Bos Seydi,men sen orda delphi7 yazdigina gore ele yazdim Alıntı Link to comment Share on other sites More sharing options...
ZAUR_033 Mesaj tarihi: 9 Mart 2012 Paylaş Mesaj tarihi: 9 Mart 2012 Təşəkkürlər lazım olacaq Alıntı Link to comment Share on other sites More sharing options...
On_LiNe Mesaj tarihi: 9 Mart 2012 mövzunu açan Paylaş Mesaj tarihi: 9 Mart 2012 ZAUR_033 Deymez buyur Alıntı Link to comment Share on other sites More sharing options...
farid.93 Mesaj tarihi: 9 Mart 2012 Paylaş Mesaj tarihi: 9 Mart 2012 təşəkkür Alıntı Link to comment Share on other sites More sharing options...
On_LiNe Mesaj tarihi: 9 Mart 2012 mövzunu açan Paylaş Mesaj tarihi: 9 Mart 2012 farid.93 Deymez sende sagol Alıntı Link to comment Share on other sites More sharing options...
Rauf-SDTK Mesaj tarihi: 16 Mayıs 2012 Paylaş Mesaj tarihi: 16 Mayıs 2012 Sagol Ruslan. Amma ekrani cekende proqramin ozu de dusur. Alıntı Link to comment Share on other sites More sharing options...
Elmir_Hamidi Mesaj tarihi: 16 Mayıs 2012 Paylaş Mesaj tarihi: 16 Mayıs 2012 Melumata gore sagol Alıntı Link to comment Share on other sites More sharing options...
Recommended Posts
Sohbete katıl
Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.