Program Hakkında
Bu Prg iLe print tuşuna bastığınızda resmi picterebox yardımı iLe prg de göreceksiniz ve masaüstüne otomatik geLecek
GerekenLer:
2 adet timer [2 sinin de invertal 500] [Timer2 enabled=True olsun ]
1 adet Picture box biraz büyük oLsun
3 adet buton
Kodumuz:
Private Sub Command1_Click() 'ekran görüntü yakalayıcıyı açmak için
Timer1.Enabled = True
End Sub
Private Sub Command2_Click() 'ekran görüntü yakalayıcıyı kapatmak için
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Text1.Text = "0" 'text'i sıfırladık
End Sub
Private Sub Timer1_Timer() 'burada clipboard(pano)'u izlemeye alıyoruz.Eğer clipboardda
'bmp türünde bir veri varsa bunu picture1'e aktaracağız.Daha sonra kaydedeceğiz.
If Clipboard.GetFormat(vbCFBitmap) Then 'bmp ise
Picture1.Picture = Clipboard.GetData 'panodan resimi al picture1de göster
Call SavePicture(Picture1.Picture, App.Path & "\" & "captured" & Text1.Text & ".bmp")
'üstteki satırda resmi kaydediyoruz ancak bu işlem hızlı olduğu içib dosya ismi + bir sayı kullanıyoruz
Clipboard.Clear 'panoyu temizliyoruz
End If
End Sub
Private Sub Timer2_Timer() 'bu ise sürekli text1deki sayıyı arttırıyor.
Text1.Text = Text1.Text + 1
End Sub
URAŞMAK İSTEMEYENLER TIKLA
Bu Prg iLe print tuşuna bastığınızda resmi picterebox yardımı iLe prg de göreceksiniz ve masaüstüne otomatik geLecek
GerekenLer:
2 adet timer [2 sinin de invertal 500] [Timer2 enabled=True olsun ]
1 adet Picture box biraz büyük oLsun
3 adet buton
Kodumuz:
Private Sub Command1_Click() 'ekran görüntü yakalayıcıyı açmak için
Timer1.Enabled = True
End Sub
Private Sub Command2_Click() 'ekran görüntü yakalayıcıyı kapatmak için
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Text1.Text = "0" 'text'i sıfırladık
End Sub
Private Sub Timer1_Timer() 'burada clipboard(pano)'u izlemeye alıyoruz.Eğer clipboardda
'bmp türünde bir veri varsa bunu picture1'e aktaracağız.Daha sonra kaydedeceğiz.
If Clipboard.GetFormat(vbCFBitmap) Then 'bmp ise
Picture1.Picture = Clipboard.GetData 'panodan resimi al picture1de göster
Call SavePicture(Picture1.Picture, App.Path & "\" & "captured" & Text1.Text & ".bmp")
'üstteki satırda resmi kaydediyoruz ancak bu işlem hızlı olduğu içib dosya ismi + bir sayı kullanıyoruz
Clipboard.Clear 'panoyu temizliyoruz
End If
End Sub
Private Sub Timer2_Timer() 'bu ise sürekli text1deki sayıyı arttırıyor.
Text1.Text = Text1.Text + 1
End Sub
URAŞMAK İSTEMEYENLER TIKLA
