怎样实现像window的 “查找文件" 那样有两个窗格（左右两个）？？？

2003-08-22 06:32:31 177 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

窗格操作划分窗格 tmux split-window 命令可以把窗口划分成上下两个窗格 tmux split-window -h 命令可以把窗口划分成左右两个窗格上图中，第一步执行 tmux split-window 命令把窗口划分成上下两个窗格，鼠标光标默认在下面的窗格中，第二步执行 tmxu split-window -h 命令把下面的窗格划分成左右两个窗格，鼠标光标默认在右边的窗格中切换窗格切换窗格可以看成鼠标的移动，切换到目标窗格之后，鼠标的光标也会移动到目标窗格中 tmux sel. 阅读详情

用多窗体实现！！比较急]

...全文

PaddleOCR PP-OCRv5实战：5分钟搞定身份证信息提取（附完整代码）本文详细介绍了如何利用PaddleOCR的PP-OCRv5模型，在5分钟内快速搭建身份证信息提取流程。文章从环境搭建、核心代码实战出发，深入解析了PP-OCRv5针对证件识别的优化特性，并提供了从OCR结果到结构化数据的完整处理方案与避坑指南，帮助开发者高效实现AI驱动的自动化信息提取。阅读详情

hitxiang

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

qifanghcy 2003-08-23

打赏
举报

如果是新手又要快速学会的话,可以去下载第三方控件,这样的控件很多的!

如果是调用API等方法,可能对你现在的程序来说有点困难!

junki 2003-08-23

打赏
举报

学习
关注

hxy2003 2003-08-23

打赏
举报

flc 2003-08-23

打赏
举报

xuexi
up

射天狼 2003-08-23

打赏
举报

你把左右两个PICTUREBOX换成你想用的控件就行了,分隔条那个PICTUREBOX不用换.

射天狼 2003-08-23

打赏
举报

Option Explicit

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

'在窗口上加三个PICTUREBOX控件,其中一个改名为 picSplit
Private Sub Form_Load()
Picture1.Left = 60
Picture1.Top = 60
Picture2.Top = 60
picSplit.Left = Picture1.Left + Picture1.Width + 30
picSplit.Width = 60
picSplit.BorderStyle = 0
Picture2.Left = picSplit.Left + picSplit.Width '+ 50
Picture1.Height = 5700
Picture2.Height = 5700
picSplit.Top = 60
picSplit.Height = 5700
picSplit.MousePointer = vbSizeWE
' Dim s As New ScriptControl
'
' s.Language = "vbscript"
' MsgBox s.Eval("(8+10)/2")

End Sub

Private Sub picSplit_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
If Button = vbLeftButton Then
SetCapture picSplit.hwnd
picSplit.Tag = x
picSplit.BackColor = &HFF8080
End If
End Sub

Private Sub picSplit_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
If Button = vbLeftButton Then
If picSplit.Left >= (100 - x) And picSplit.Left <= (Me.ScaleWidth - 100 - x) Then picSplit.Left = picSplit.Left + x - CInt(picSplit.Tag)
End If
End Sub

Private Sub picSplit_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
If Button = vbLeftButton Then
Picture1.Width = picSplit.Left - 80
Picture2.Left = picSplit.Left + 50
Picture2.Width = Width - Picture1.Width - 4

picSplit.BackColor = &H8000000F
ReleaseCapture
End If
End Sub

rainstormmaster 2003-08-23

打赏
举报

用treeview结合listview

hitxiang 2003-08-22

打赏
举报

谢谢。由于我是一个新手，所以能说具体一点吗！！最好是由源代码，那里有相应的网页！！

我具体想实现：左边是一个树控件，点击对应的条目就把相应的窗体显示在右边的部分.

WQ771211 2003-08-22

打赏
举报

用API
SetParent函数可以把一个form放到另外一个form中

踏平扶桑 2003-08-22

打赏
举报

把form分解成两个部分，各自完成各自的功能。

since1990 2003-08-22

打赏
举报

怎样实现 像window的 “查找文件" 那样有两个窗格（左右两个）？？？

相关推荐

怎样实现像window的 “查找文件" 那样有两个窗格（左右两个）？？？