如何才能让MSHFlexGrid表格随鼠标移动而进行变色?

tcrct 2006-02-18 09:10:00
即是像点击菜单时,在菜单上移动是,底下有一条色带跟随着鼠标移动而移动,如果在MSHFlexGrid表格里,应该如何去实现这个功能呢?请指教!
...全文
166 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
faysky2 2006-02-19
  • 打赏
  • 举报
回复
少了一句

Dim cRow As Long, tRow As Long
Dim curRow As Long, tmpRow As Long
Private Sub MSHFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then Exit Sub
With MSHFlexGrid1

If .MouseRow < .FixedRows Then Exit Sub
If curRow <> tmpRow Then
cRow = .MouseRow
.Row = tRow

If .Row <> 0 And .Col <> 0 Then
For i = .FixedCols To .cols - 1
.Col = i
.CellBackColor = .BackColor
Next
End If
.Row = cRow
For i = .FixedCols To .cols - 1
.Col = i
.CellBackColor = vbBlue
Next
.Col = .MouseCol
tmpRow = curRow
Else
tRow = cRow
curRow = .RowPos(.MouseRow) + .CellHeight
End If
End With
End Sub


Free_Windy 2006-02-19
  • 打赏
  • 举报
回复
楼上的思路是可以实现的...
tcrct 2006-02-19
  • 打赏
  • 举报
回复
faysky2():

谢谢!不过按你的方法试了,但结果不理想呀,因为每次移动都到了最后的列和行,不能查看全部数据呀!
faysky2 2006-02-18
  • 打赏
  • 举报
回复
Dim cRow As Long, tRow As Long
Dim curRow As Long, tmpRow As Long
Private Sub MSHFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then Exit Sub
With MSHFlexGrid1

If .MouseRow < .FixedRows Then Exit Sub
If curRow <> tmpRow Then
cRow = .MouseRow
.Row = tRow

If .Row <> 0 And .Col <> 0 Then
For i = .FixedCols To .cols - 1
.Col = i
.CellBackColor = .BackColor
Next
End If
.Row = cRow
For i = .FixedCols To .cols - 1
.Col = i
.CellBackColor = vbBlue
Next
tmpRow = curRow
Else
tRow = cRow
curRow = .RowPos(.MouseRow) + .CellHeight
End If
End With
End Sub
tcrct 2006-02-18
  • 打赏
  • 举报
回复
要求的是整行一起变底色.
内容概要:本文系统介绍了基于Simulink的光伏储能单相逆变器并网仿真模型,深入涵盖单相与三相逆变器的PWM控制、闭环控制、滑模控制及软开关技术的建模与仿真研究。进一步扩展至微电网环境下多台分布式逆变器的虚拟同步机(VSG)控制、二次虚拟阻抗与一致性算法协同控制,并开展序阻抗扫频与时域稳定性分析。同时整合配电网短路故障仿真(含不同中性点接地方式)、发电机故障暂态特性、直流电机与Buck电路双闭环控制等电力系统关键环节的动态建模。结合二阶锥规划与多时间尺度滚动优化算法,支持主动配电网及气电综合能源系统的协调优化运行研究,适用于复杂电力系统的科研建模与算法验证。; 适合人群:电力电子、电气工程及其自动化等相关领域的科研人员,以及具备一定Simulink/Matlab仿真基础的研究生和工程技术人员。; 使用场景及目标:①开展光伏储能系统并网控制策略的设计与动态性能验证;②研究微电网中VSG控制下的稳定性与多机协同机制;③进行配电网短路故障与电力设备暂态响应的仿真分析;④支撑高水平科研项目建模、学术论文撰写与优化算法实证。; 阅读建议:建议按照文档目录结构循序渐进学习,结合百度网盘提供的完整仿真资源(如YALMIP-develop.zip等)在Matlab环境中动手实践,重点关注控制环路设计、系统动态响应与稳定性判据,全面提升电力系统仿真与科研创新能力。

2,506

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧