level 8
先截屏:
Dim map As Bitmap
Dim p As New Point(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
map = New Bitmap(p.X, p.Y)
Using pic As Graphics = Graphics.FromImage(map)
pic.CopyFromScreen(0, 0, 0, 0, p)
然后再根据你的播放器位置和大小,调整截图大小:
Dim map1 As Bitmap=map.Clone(New Rectangle(位置, 大小), Imaging.PixelFormat.DontCare)
自己试试吧!
2014年03月28日 16点03分