Sanokaas miten voi laittaa vb-ohjelman ottamaan ruudunkaappauksen aktiivisesta ikkunasta tai koko näytöstä, ja tallentaa sen bmp-tiedostoon
screenshot
1
272
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
Ja taas ammuttu kokkolassa
Kokkolaisilta pitäisi kerätä pois kaikki ampumaset, keittiöveitset ja kaikki mikä vähänkään paukku ja on terävä.575519- 934427
Helena Koivu on äiti
Mitä hyötyä on Mikko Koivulla kohdella LASTENSA äitiä huonosti . Vie lapset tutuista ympyröistä pois . Lasten kodista.3752644Ovatko naiset lopettaneet sen vähäisenkin vaivannäön Tinderissa?
Meinaan vaan profiileja selatessa nykyään valtaosalla ei ole minkäänlaista kirjoitettua tekstiä siellä. Juuri ja juuri s731167Suomi vietiin Natoon väärin perustein. Viides artikla on hölynpölyä. Yksin jäämme.
Kuka vielä uskoo, että viides artikla takaa Suomelle avun, jos Suomeen hyökätään. Liikuttavasti täällä on uskottu ja ved3341062- 61873
- 28843
Sydämeni on sinun luona
Koko ajan. Oli ympärilläni ketä oli niin sinä olet vain ajatuksissa ja tunteissa. En halua muiden kosketusta kuin sinun46836Trump ja Venäjä
Huomasitteko muuten... Käytännössä ainoat valtiot, joille Trump EI eilen asettanut typeriä tariffejaan, olivat Venäjä ja105813Jatkuva stressitila
On sinun vuoksesi kun en tiedä missä mennään mutta tunteeni tiedän ainoastaan52799