PrintScreen - jak udělat screenshot
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

PrintScreen - jak udělat screenshotPrintScreen - jak udělat screenshot

 
Hledat
Moderní platforma pro vytvoření vašeho nového webu – Wix.com.
Nyní už můžete mít web zdarma.
Vybavení pro Laser Game
Spuštěn Filmový magazín

PrintScreen - jak udělat screenshot

Google       Google       6. 10. 2007       21 497×

Chcete si vytvořit program, který udělá screenshot obrazovky?

Reklama
Reklama

V tomto díle seriálu k Visual Basicu si zkusíme vytvořit program, který bude snímat obrázek plochy a poté ukládat na námi zvolené místo. Budeme snímat celou plochu a poté ji ukládat ve formátu BMP.

Na formulář umístěte:

  • 3× Command Button (tlačítko)
  • 1× Picture Box
  • 1× Label (popisek)
  • 1× TextBox
  • 1× Common Dialog

Rozmístěte si ovládací prvky tak, jak jsou na obrázku:

Teď již budeme psát zdrojový kód k naší aplikaci.

Do deklarační části napište

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_SNAPSHOT = &H2C  'Snapshot button

Máme nadeklarováno a pustíme se do zbytku kódu.

Private Sub cmdActWin_Click() 
    Me.WindowState = vbMinimized
    Me.Hide
    
    Pause txtPause
    Clipboard.Clear
    Call keybd_event(VK_SNAPSHOT, 1, 0, 0)
    
    DoEvents  
    
    Picture1.Picture = Clipboard.GetData()
    
    Me.Show
    Me.WindowState = vbNormal
    cmdSave.Enabled = True
End Sub

Private Sub cmdClear_Click() 
    'vyčistí PictureBox
    Set Picture1.Picture = Nothing
    cmdSave.Enabled = False    
End Sub

Private Sub cmdSave_Click()  
    'dialog pro uložení obrázku
    On Error GoTo Error
    With CD1
        .DialogTitle = "Uložit obrázek..."
        .FileName = "screenshot"
        .Filter = "Bitmap (*.bmp)|*.bmp"
        .CancelError = True
        .Flags = &H2 
        .ShowSave
        If .FileName = "" Then GoTo Error
        'uloží obrázek jako Bitmapu
        SavePicture Picture1.Picture, .FileName
    End With
    
Error: 
msgbox "chyba"
End Sub

Sub Pause(interval)
    'prodleva před snímáním obrázku
    Current = Timer
    Do While Timer - Current < Val(interval)
        DoEvents
    Loop   
End Sub

×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

Hlasování bylo ukončeno    
0 hlasů
Google
(fotka) Jan MalýAutor programuje ve VB, HTML, CSS. Zajímá se o grafiku, fotografování
Web     Twitter     Facebook    

Nové články

Reklama
Reklama
Obrázek ke článku NopCommerce – datová vrstva a přístup k datům – 2. díl

NopCommerce – datová vrstva a přístup k datům – 2. díl

V minulém článku jsme si představili platformu NopCommerce z globálního pohledu. V dnešním díle se již zaměříme na konkrétní část systému, a to datovou vrstvu. Představíme si základní stavební kameny systému v podobě doménových objektů. Ukážeme si, jakým způsobem rozšířit doménové objekty a jakým způsobem přistupuje NopCommerce k nastavení systému a modulů.

Obrázek ke článku Seznamte se s open source platformou NopCommerce – 1. díl

Seznamte se s open source platformou NopCommerce – 1. díl

Hledáte e-commerce řešení, které si dokážete přizpůsobit podle vašich požadavků? Chcete čistý a srozumitelný kód, se kterým bude radost pracovat? Prozkoumejte s námi možnosti open source projektu NopCommerce. Seriál programování pod NopCommerce vám pomůže překonat první kroky nejistoty a úspěšně zvládnout vývoj pod platformou NopCommerce.

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032017 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý