[已解决]access里的shell+vbNormalFocus为何无法激活程序

玉树TMD临风

我在窗体的某个命令按钮用Shell "notepad.exe", vbNormalFocus打开记事本，但是记事本程序界面一闪而过到后台去了，无法激活到前台运行
我在下面加了句sendkeys "%{TAB}"也不行，搞不清楚到底是什么原因。


有什么办法让shell运行的这个程序强制在前台显示？

玉树TMD临风

找到原因了。

原来我为了鼠标移到控件上时显示为手形，专门设置了控件的超链接地址为" "，把这超链接去掉就正常打开程序，但是手形又没了。

继续寻找其他解决办法。

玉树TMD临风

找到红尘的帖子解决了，结贴

smilingkiss

玉树TMD临风 发表于 2013-12-23 19:40
找到红尘的帖子解决了，结贴

愿听解决办法！让我们也学习学习

玉树TMD临风

smilingkiss 发表于 2013-12-23 19:43
愿听解决办法！让我们也学习学习

忘记把内容写上来了，不过以下代码在office 2013 64位测试未通过，office2007 32位上正常使用

http://www.office-cn.net/forum.php?mod=viewthread&tid=92908

[API] 真正有效并且通用设置鼠标指针为手形及其它特定形状的方法

'在模块中声明API函数
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long   
Public Declare Function LoadCursorByNum Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

'光标移到按钮上时变成手形
Private Sub Command0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    SetCursor LoadCursorByNum(0, 32649)
End Sub

也可以直接将按钮的“鼠标移动”属性设为：=SetCursor(LoadCursorByNum(0, 32649))

smilingkiss

玉树TMD临风 发表于 2013-12-23 19:55
忘记把内容写上来了，不过以下代码在office 2013 64位测试未通过，office2007 32位上正常使用

http:// ...

多谢