主题：控件截图

1、代码发出来；

2、实例发上来，说明你要做什么。

比如截图目录树控件，如
 
Dim trv = e.Form.Controls("Treeview1").BaseControl
Dim point As Point = e.Form.Panel.PointToScreen(trv.Bounds.Location)
Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(trv.width, trv.height) '截取的大小
Dim bit As New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(point.x, point.y, 0, 0, s) '截取的开始位置,坐标(100, 200)
bit.save("d:\test.jpg")
memoryGraphics.dispose
myGraphics.dispose
bit.dispose

看懂代码改成自己的。不会做上传实例说明你要做什么。

比如

bit.save(Tables("库存").Current("属性_图片文件夹") & "\" & e.form.controls("DateTimePicker1").text & ".PNG")