[已解决]请老师帮忙，看看这个效果怎么实现~！！！

屈臣氏VBA

录入C.zip (13.17 KB, 下载次数: 8)

2016-6-24 17:50 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-25 22:45

屈臣氏VBA 发表于 2016-6-25 22:42
老师还是不对，黄色控件没有跟着移动，我的excel是2007版

你这个跟版本压根就没关系，是控件的摆放层次问题！重新下载附件再看下！

跳转到最佳答案楼层

老司机带带我

1. Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
   
2.     With Me.Frame1
   
3.         .Top = Item.Top
   
4.     End With
   
5. End Sub

复制代码

屈臣氏VBA

老司机带带我 发表于 2016-6-25 22:11

老师还是不对，黄色控件没有跟着移动，我的excel是2007版 录入C【excel2007版】.rar (15.31 KB, 下载次数: 5)

2016-6-25 22:41 上传

点击文件名下载附件

老司机带带我

屈臣氏VBA 发表于 2016-6-25 22:42
老师还是不对，黄色控件没有跟着移动，我的excel是2007版

你这个跟版本压根就没关系，是控件的摆放层次问题！重新下载附件再看下！

屈臣氏VBA

老司机带带我 发表于 2016-6-25 22:45
你这个跟版本压根就没关系，是控件的摆放层次问题！重新下载附件再看下！

这个问题困扰了我好久了，这个问题必须给老师100个赞！！！谢谢```xxXXXX

屈臣氏VBA

老司机带带我 发表于 2016-6-25 22:45
你这个跟版本压根就没关系，是控件的摆放层次问题！重新下载附件再看下！

老师，TextBox1.SetFocus  无效，
如何让它能在点击完ListView1，焦点回到TextBox1

老司机带带我

屈臣氏VBA 发表于 2016-6-25 23:22
老师，TextBox1.SetFocus  无效，
如何让它能在点击完ListView1，焦点回到TextBox1

对于这个问题我也没找到具体原因，但变通了一下，效果是有了！