Една моя програмка ... :)

[StormBreaker]

Private Sub СниманеToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim bounds As Rectangle = Screen.PrimaryScreen.Bounds
    Dim screenshot As Bitmap = New Bitmap(bounds.Width, bounds.Height, PixelFormat.Format32bppArgb)
    Dim graph As Graphics = Graphics.FromImage(screenshot)
    graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
    Me.PictureBox1.Image = screenshot
    Me.Timer1.Start()
End Sub

Няма код за скриване на формата

 

[kwitterbg]

Не за скриване на формата просто съм и задал настройка да се слива със Background-a ...

Вече 5-човека ми казват,че при тях няма проблеми
Да не би защото си със Windows 7 ?

 

[kwitterbg]

Ето и как изглежда при мене ..

 

[StormBreaker]

Не за скриване на формата просто съм и задал настройка да се слива със Background-a ...

Вече 5-човека ми казват,че при тях няма проблеми
Да не би защото си със Windows 7 ?

Не знам как си й задал това, но горния код ще снима всичко на екрана, а на екрана е и формата.

 

[kwitterbg]

За кода да прави си,че снима всичко на екрана.
Но формата според настройката и се слива със "DESKTOP STYLE"
Както .PNG формата се слива със дизайна примерно ..

И виж при мене проблеми няма явно само на Windows 7 прави проблеми.

 

[StormBreaker]

За кода да прави си,че снима всичко на екрана.
Но формата според настройката и се слива със "DESKTOP STYLE"
Както .PNG формата се слива със дизайна примерно ..

И виж при мене проблеми няма явно само на Windows 7 прави проблеми.

Как ще снимаш целия екран без определен елемент, след като и той е на екрана? Не те разбирам.

Просто сложи Me.hide() преди да снимаш и Me.show след като си снимал

 

[kwitterbg]

Пробвах с тази фукнция но нещо ми бъгясва .. след снимането не се показва ..