如何画一个方框并取得方框内所有的控件？

2002-11-04 07:59:15 100 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

NI-HIL学习开篇自我介绍下，四年零部件厂工作经验，一年（至今）主机厂工作经验，负责BMS/VCU方向软硬件测试。学习目的：把握新能源汽车的测试发展趋势，顺应历史的洪流。学习目标：1.掌握HIL开发测试流程中的IO配置、开环验证、闭环模型开发及调试、自动化测试 2.掌握第三方模型的搭建及simulink关联仿真（2019.05.21新增：需巩固练习matlab基础——2... 阅读详情

就像浏览器中拖动选取多个文件夹一样的效果！

...全文

从PCIe 3.0到6.0：为什么“阻抗一致性”比“绝对值”更重要？聊聊连接器与板材的选型影响本文探讨了PCIe从3.0到6.0演进过程中，阻抗一致性相比绝对值的重要性，分析了连接器与板材选型对高速信号完整性的影响。随着速率提升至64GT/s，系统级阻抗控制和验证成为关键，文章提供了选型指南、验证方法论及工程实践建议，帮助工程师应对高速设计挑战。阅读详情

fishmans

API 1,488 成员 23,270 内容

+ 关注 + 加入社区

切换为时间正序

fishmans 2002-11-12

打赏
举报

为什么不能给分啊？？

fishmans 2002-11-12

打赏
举报

谢谢，这个问题我已经解决了~~~

junwhj 2002-11-10

打赏
举报

Option Explicit

Private Declare Function DrawFocusRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Type POINTAPI
X As Long
Y As Long
End Type

Private pt As POINTAPI
Private rc As RECT
Private blnMouseDown As Boolean

Private Sub Form_Load()
Me.ScaleMode = 3
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
pt.X = X
pt.Y = Y
blnMouseDown = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If blnMouseDown Then
DrawFocusRect Me.hdc, rc
rc.Left = IIf(pt.X < X, pt.X, X)
rc.Top = IIf(pt.Y < Y, pt.Y, Y)
rc.Right = IIf(pt.X > X, pt.X, X)
rc.Bottom = IIf(pt.Y > Y, pt.Y, Y)
DrawFocusRect Me.hdc, rc
Me.Refresh
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ctrl As Control

On Error Resume Next '有些控件不支持Left,Top属性（如Line）

For Each ctrl In Me.Controls
If ctrl.Left + ctrl.Width < rc.Left Or _
ctrl.Left > rc.Right Or _
ctrl.Top + ctrl.Height < rc.Top Or _
ctrl.Top > rc.Bottom Then
Else
Debug.Print ctrl.Name
End If
Next

blnMouseDown = False
End Sub

junwhj 2002-11-10

打赏
举报

fishmans 2002-11-10

打赏
举报

难道要遍历所有的在这个范围的控件？？会不会太慢了点？还有就是我问的重点是如何实现画框的效果！！！

maxiuhui 2002-11-04

打赏
举报

判断方框四角和控件坐标

如何画一个方框并取得方框内所有的控件？

相关推荐