dotNETportal.cz

Dobrý den.

Poradil by mi prosím někdo, jak mám ve VB 2008 provést Printscreen, aby obsahoval i kursor myši?

Používám tento kód:

            With Screen.PrimaryScreen.Bounds                                                     'Specifikuje primární obrazovku. (V případě systému s více monitory).
                Using bmp As New Bitmap(.Width, .Height, Imaging.PixelFormat.Format32bppRgb)     'Vytvořit bitovou mapu v paměti požadované velikosti.
                    Using g = Graphics.FromImage(bmp)                                            'Vytvořit "kreslící plátno".
                        g.CopyFromScreen(0, 0, 0, 0, New Size(.Width, .Height))                  'Zkopírovat obsah primární obrazovky na kreslící plátno.
                        bmp.Save("Scr.jpg", Imaging.ImageFormat.Jpeg)                            'Uložit bitovou mapu do souboru. (Stejná složka, jako aplikace.)
                    End Using
                End Using
            End With

Skuste tento kod :

Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
            Dim screenGrab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
            Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenGrab)
            g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)
            screenGrab.Save(Application.StartupPath + "\Screen.jpeg")

Neskusal som ci funguje , ale pochybujem o tom lebo mys nieje obsah obrazovky , je to samostatny buffer teda nieje sucast obrazovky a treba sa spytat systemu kde je na obrazovke a vykreslit ho do screenshotu..

Máte pravdu. Skutečně to nefunguje. Kursor chybí:-)

Ale nevadí. Já jej v tom printScreenu zase až tak nutně nepotřebuji.

Ještě zkusím ty další rady.

V každém případě děkuji za snahu.

Přeji příjemný den.

Budete muset použít Windows API, ukázku naleznete zde:

http://www.codeproject.com/KB/cs/Desktop...

Prohlédnu, vyzkouším....

No. To API si asi nechám až na konec. Já jsem ve VB fakt začátečník. Už jsem na ty odkazy koukal, ale nejak z toho nejsem moudrý.

Budu se muse nejprve trošku učit. :-)

Ale rozhodně dík za radu.

Můžete tam ten kurzor dodatečně dokreslit:

'pod řádek g.CopyFromScreen(...) ale nad řádek bmp.Save(...)
                            g.DrawImage(My.Resources.kurzor, Cursor.Position.X, Cursor.Position.Y)

Ale nebudete tam mít aktuální kurzor ale obrázek co natáhnete do resources