Sanokaas miten voi laittaa vb-ohjelman ottamaan ruudunkaappauksen aktiivisesta ikkunasta tai koko näytöstä, ja tallentaa sen bmp-tiedostoon
screenshot
1
231
Vastaukset
- Orwell
Tarvitset PictureBoxin ja OptionButtonit... ja lisäksi tietenkin kaikki nuo API komennot yms...
Tuon PictureBoxin AutoRedraw arvo pitää olla True. Muutenkin voit joutua säätämään jotain, mutta idean pitäisi toimia...
Private Sub ScreenShot()
Dim lhWnd As Long
Dim lhDC As Long
Dim lLeft As Long
Dim lTop As Long
Dim lWidth As Long
Dim lHeight As Long
Dim wplc As WINDOWPLACEMENT
Dim sName As String
sName = vbNullString
lLeft = 0
lTop = 0
'Koko näyttö
If Option1(0).Value Then
lhWnd = GetDesktopWindow()
lWidth = Screen.Width
lHeight = Screen.Height
sName = "Test_scr"
'Aktiivi ikkuna
ElseIf Option1(1).Value Then
lhWnd = GetActiveWindow()
Call GetWindowPlacement(lhWnd, wplc)
'Lasketaan formin koko (koko pixeleinä -> muutetaan Twipeiksi)
lWidth = (wplc.rcNormalPosition.Right - wplc.rcNormalPosition.Left) * Screen.TwipsPerPixelX
lHeight = (wplc.rcNormalPosition.Bottom - wplc.rcNormalPosition.Top) * Screen.TwipsPerPixelY
sName = "Test_win"
End If
Picture1.Width = lWidth
Picture1.Height = lHeight
lhDC = GetWindowDC(lhWnd)
'Kopioi PictureBoxiin
Call BitBlt(Picture1.hdc, 0, 0, _
lWidth, lHeight, lhDC, _
lLeft, lTop, vbSrcCopy)
'Tallennetaan kuva
Call SavePicture(Picture1.Image, "c:\temp\" & sName & ".bmp")
Call ReleaseDC(lhWnd, lhDC)
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Miksi jollain jää "talvi päälle"
Huvittaa kastoa ullkona jotain vahempaa äijää joka pukeutuu edelleen kun olisi +5 astetta lämmittä vaikka on helle keli2732730Mitä et hyväksy miehessä/naisessa josta olet kiinnostunut?
Itse en halua, että miehellä olisi lapsia!2091753Se katse silloin
Oli hetki, jolloin katseemme kohtasivat. Oli talvi vielä. Kerta toisensa jälkeen palaan tuohon jaettuun katseeseen. Tunt581465Tiesitkö? Farmi Suomi Kirsikka Simberg on tämän julkkisnaisen tytär - Katso tyrmäävät mallikuvat!
Oho, aikamoinen ylläri. Tiesitkö?! Kirsikka Simberg on yksi tämän kauden Farmi Suomi -kisaajista. Hänellä ei ole tuttu t11221- 791166
Tuhdit oluet kauppoihin. Miksi vastustaa?
8% oluet kauppoihin mutta mikä siinä on että osa politikoista vstustaa ? Kauppa kuitenkin hinnoittelee vahvan oluen ni2361081- 801012
Sinua tulen kyllä ikävöimään pitkään nainen
mutta oli pakko tehdä päätös oman mielenrauhan vuoksi. Toivottavasti saat elämältä kaiken mitä haluat.52943- 72826
Kärsämäki rosvojen ja tuhopolttajien kylä?
Poliisi ampui uhkaava miestä Kärsämäellä. Ja vasta joku poltti rivitalon. Mikä riivaa Kärsämäkisiä? Joko tuulimyllyjen15740