在vb.net 中,我使用treeView控件生成一个无限级的组织机构图,
请问一下,现在我怎么可以保存treeView 中的树型结构的图形啊?
我想了一种方法就是用截屏的方式,但是如果节点过多,屏幕不够,这个方法就不行了,请问大家还有什么好方法吗,代码和非代码的。
请问一下,现在我怎么可以保存treeView 中的树型结构的图形啊?
我想了一种方法就是用截屏的方式,但是如果节点过多,屏幕不够,这个方法就不行了,请问大家还有什么好方法吗,代码和非代码的。
解决方案 »
- vsflexgrid指定单元格用红色标记
- 请问如何实现跨域访问?
- ★★★★★困惑已久的问题,窗体之间传值,哪位兄弟知道,不吝赐教,先谢了★★★★★
- 打包的一些常见问题!!不解???
- *********请问一下 如何在vsPrinter中打印多页?***********
- vb如何实现ip扫描功能 (指定IP地址,成功输出1;及响应时间、对方主机名称;失败输出0)
- 删除记录:
- 急、急、急,我用VB在做COM+组件,想将数据库连接共享,怎么实现?版主一定要帮忙
- 急!!!连续的回复不能超过3次,谁帮我去顶一下??
- 如何在MSHFlexGrid控件中使用FormatString?
- VBA “运行错误‘9’、下标越界”
- 访问DB2 10万条到90万条 数据 INSERT ,DELETE,SELECT 方案和性能
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long Private Const WM_PAINT = &HF
Private Const WM_PRINT = &H317
Private Const PRF_CLIENT = &H4& ' Draw the window's client area
Private Const PRF_CHILDREN = &H10& ' Draw all visible child windows
Private Const PRF_OWNED = &H20& ' Draw all owned windows Private Sub Command1_Click()
Dim rv As Long
Picture1.SetFocus ' So that the button doesn't look pressed
Picture2.AutoRedraw = True
rv = SendMessage(Picture1.hwnd, WM_PAINT, Picture2.hDC, 0)
rv = SendMessage(Picture1.hwnd, WM_PRINT, Picture2.hDC, _
PRF_CHILDREN + PRF_CLIENT + PRF_OWNED)
Picture2.Picture = Picture2.Image
Picture2.AutoRedraw = False
Command1.SetFocus ' Return Focus
End SubPrivate Sub Command2_Click()
Printer.Orientation = vbPRORLandscape ' 2
Printer.Print ""
Printer.PaintPicture Picture2.Picture, 0, 0
Printer.EndDocEnd SubPrivate Sub Form_Load()
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "R", "根节点", 1)
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "节点 1", 1)
Set nodX = TreeView1.Nodes.Add("C1", tvwChild, "C2", "节点 2", 1)
Set nodX = TreeView1.Nodes.Add("C2", tvwChild, "C3", "节点 3", 1)
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "节点 4", 1)
nodX.EnsureVisible
TreeView1.Style = tvwTreelinesPlusMinusPictureText '样式 4。
End Sub