vb代码调用同目录程序显示不全

shaokui123 · 发表于 2023-3-28 16:27

Private Sub Command1_Click()
'Shell "winmine.exe"
a = Shell(App.Path & "\winmine.EXE")
End Sub

问题点如图，也怀疑被调用程序的问题，换了十多个各种语言的，依旧

winmine.rar (68.98 KB, 下载次数: 3)

chizha · 发表于 2023-3-28 16:39

本帖最后由 chizha 于 2023-3-28 16:42 编辑

试试这个
a = Shell(App.Path & "\winmine.EXE"，1)

shaokui123 · 发表于 2023-3-28 16:50

chizha 发表于 2023-3-28 16:39
试试这个
a = Shell(App.Path & "\winmine.EXE"，1)

感谢，显示全了
还有俩问题
1、被调用程序每次总从下面出现，能否自定义位置，比如每次都从上面出现
2、当文件夹中没有被调用文件时，默认会出现错误提示，这里面内容如何自定义

chizha · 发表于 2023-3-28 16:57

本帖最后由 chizha 于 2023-3-28 17:00 编辑

shaokui123 发表于 2023-3-28 16:50
感谢，显示全了
还有俩问题
1、被调用程序每次总从下面出现，能否自定义位置，比如每次都从上面出现

On Error GoTo
跳转自定义提示
On Error Resume Next
不报错

888888c · 发表于 2023-3-28 18:07

这个可以试试找A=shell代码试试啊

alvin123456 · 发表于 2023-3-28 19:05

自己更改一下视窗类型
0-隐藏视窗
1-视窗普通状态且得到焦点
2-视窗最小化且得到焦点
3-视窗最大化且得到焦点
4-视窗普通状态但失去焦点
5-视窗最小化但失去焦点

帐号		自动登录	找回密码
密码			注册[Register]

[求助] vb代码调用同目录程序显示不全