MyDesign | Kod Arivi - Anasayfaya Dn   No banner in farm
Anasayfa Aratr Forum Gelimi Arama Siteniz in En Hit erikler RSS erik Ekle Scriptler Destekleyenler Kadromuz Reklam letiim Giri Sayfas Yap  Sk Kullanlanlara Ekle
Bu Kategorinin En Yeni Kodlar:


Bu Kategorinin En ok Grntlenen Kodlar:






Arama:
Gelimi Arama


No banner in farm



En ok Grntlenen Kodlar:


ye Girii:
 ye Ol



Anasayfa > VB.Net > Kodlar

Ekran resmi çek

Ekranın resmini çeker. Daha gelişmiş kod için test adresinden zip dosyasını indirebilirsiniz

Kategori : VB.Net
Gnderen : seref
Telif :
Tarih : 13 Temmuz 2006
rnek Dosya : �ndir
Okunma Says : 21845
Puan
: 8,3 / 10 (42 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
Private Declare Sub AVIStreamCreate Lib "avifil32.dll" (ByVal ppavi As Long, ByVal lParam1 As Long, ByVal lParam2 As Long, ByRef pclsidHandler As Long)

    Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As String) As Integer

    Private Declare Function CreateCompatibleDC Lib "GDI32" (ByVal hDC As Integer) As Integer

    Private Declare Function CreateCompatibleBitmap Lib "GDI32" (ByVal hDC As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer

    Private Declare Function GetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" (ByVal hdc As Integer, ByVal nIndex As Integer) As Integer

    Private Declare Function SelectObject Lib "GDI32" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer

    Private Declare Function BitBlt Lib "GDI32" (ByVal srchDC As Integer, ByVal srcX As Integer, ByVal srcY As Integer, ByVal srcW As Integer, ByVal srcH As Integer, ByVal desthDC As Integer, ByVal destX As Integer, ByVal destY As Integer, ByVal op As Integer) As Integer

    Private Declare Function DeleteDC Lib "GDI32" (ByVal hDC As Integer) As Integer

    Private Declare Function DeleteObject Lib "GDI32" (ByVal hObj As Integer) As Integer

    Const SRCCOPY As Integer = &HCC0020
    Private oBackground As Bitmap
    Private FW, FH As Integer






    Protected Sub CaptureScreen()

        Dim hSDC, hMDC As Integer
        Dim hBMP, hBMPOld As Integer
        Dim r As Integer

        hSDC = CreateDC("DISPLAY", "", "", "")
        hMDC = CreateCompatibleDC(hSDC)

        FW = GetDeviceCaps(hSDC, 8)
        FH = GetDeviceCaps(hSDC, 10)
        hBMP = CreateCompatibleBitmap(hSDC, FW, FH)

        hBMPOld = SelectObject(hMDC, hBMP)
        r = BitBlt(hMDC, 0, 0, FW, FH, hSDC, 0, 0, 13369376)
        hBMP = SelectObject(hMDC, hBMPOld)

        r = DeleteDC(hSDC)
        r = DeleteDC(hMDC)

        oBackground = Image.FromHbitmap(New IntPtr(hBMP))
        DeleteObject(hBMP)

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load


        CaptureScreen()
        Me.BackgroundImage = oBackground

    End Sub

' ibisseref@hotmail.com
' www.vbkodindir.com
 
 

Ekran resmi çek iin yazlan yorumlar

BAYPA bayrakpazarı  { 19 Ekim 2011 }
Sitemde ornegini kullanacagim cok tesekkurler

ilker   { 15 Nisan 2009 }
abi calısıyo mu calısmıyo mu biri yardım ederse iyi olur calısıyorsa donem odevimi bunu yapcam

ebru   { 22 Mart 2009 }
ben bunu anlamadın. yani nasıl foto. çekileceğini

arda   { 20 Şubat 2009 }
s.a. abi bu kod için kullanılacak araç çubukları neler yardım edin lütfen çdk lazım yıllık ödev için şimdiden teşekkürler

yavuz   { 10 Kasım 2007 }
s.a iyi bir kod kardeş saolsın öncelikle.bide kaydetmesini göstersene:))

Başak   { 09 Eylül 2007 }
Arkadaşım paylaştığın için çok saol.

Mehmet   { 16 Nisan 2007 }
Abicim çok saoalsın kod çok işime yaradı ALLAH razı olsun...

Yorum ekleyin

Anasayfa > VB.Net > Kodlar > Ekran resmi çek
Kategoriler:


Forum:



Balantlar:



    En Son Yorumlanan erikler:


    Murat Yavuz | Site Haritas | Gizlilik Bildirimi | 3.231.212.98 | 0,13 Saniye
    © Copyright 2004-2019 MyDesign | Kod Arivi. Tm Haklar Sakldr.
    MyDesign | Kod Arivi, en iyi grnm iin, 1024x768 ve zeri znrlk tavsiye eder.