佳礼资讯网

 找回密码
 注册

ADVERTISEMENT

查看: 995|回复: 9

vb 的 code...

[复制链接]
发表于 25-4-2006 10:03 AM | 显示全部楼层 |阅读模式
请问有谁可以教我怎样在vb 6里run .exe 的file吗???
该用什么code呢??
比如说我的application是ATC.exe,save在D:\atc 里面。。。
是用command button 吗??? 用什么code呢??
我不是很会用vb。。。但有个assignment 要用到。。。
谢谢。。。

[ 本帖最后由 风枫峰 于 28-4-2006 01:27 AM 编辑 ]
回复

使用道具 举报


ADVERTISEMENT

发表于 25-4-2006 11:03 PM | 显示全部楼层

shell "d:\atc\atc.exe"
就可以了,你试试看。
回复

使用道具 举报

发表于 26-4-2006 03:07 AM | 显示全部楼层
我的其中一个

Dim dblRetVal As Double
dblRetVal = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE", vbMaximizedFocus)
回复

使用道具 举报

 楼主| 发表于 26-4-2006 09:45 AM | 显示全部楼层
原帖由 meemee 于 25-4-2006 11:03 PM 发表

shell "d:\atc\atc.exe"
就可以了,你试试看。



谢谢。。。但是那file出来时是在后面的。。。能让他出现在前面吗???


原帖由 hooi1983 于 26-4-2006 03:07 AM 发表
我的其中一个

Dim dblRetVal As Double
dblRetVal = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE", vbMaximizedFocus)



也谢谢你。。。我把vbMaximizedFocus 换成vbNormalFocus, 因为我的file 不是 full screen的。。。但他出来是不是在screen center, 有什么方发吗???(那file也是vb来的,但我只有compiled了的 .exe file)
回复

使用道具 举报

发表于 26-4-2006 03:56 PM | 显示全部楼层
Center Form 的 Sub

Public Sub CenterForm(ByRef frm As Form)
  With frm
  .Move (Screen.Width - .Width) \ 2, (Screen.Height - .Height) \ 2
  End With
End Sub

[ 本帖最后由 hooi1983 于 26-4-2006 03:57 PM 编辑 ]
回复

使用道具 举报

 楼主| 发表于 26-4-2006 04:38 PM | 显示全部楼层
这能把那.exe file 的window移去中见吗?这command是放在command button 的 private sub 里或者另外放???那个.move 之前是应该放object的名字吗???如果是的话以我的例子该放什么呢???
不好意思。。。问了很多问题。。。
回复

使用道具 举报

Follow Us
发表于 26-4-2006 11:58 PM | 显示全部楼层
这个是 Center Form
如果是 Center exe 我就没做过
回复

使用道具 举报

 楼主| 发表于 27-4-2006 07:52 AM | 显示全部楼层
原帖由 hooi1983 于 26-4-2006 11:58 PM 发表
这个是 Center Form
如果是 Center exe 我就没做过



不要紧了。。。还是要谢谢你帮了我这么多。。。
回复

使用道具 举报


ADVERTISEMENT

发表于 27-4-2006 10:07 AM | 显示全部楼层
要center exe好像只有用api才可以做到。。。

你可以上网找这些keyword:
setwindowpos vb
findwindow vb
bringwindowtotop vb
getclientrect vb

等等。。。这些是相当高难度的东西,如果你想学的话,可以去找找看。
回复

使用道具 举报

 楼主| 发表于 28-4-2006 01:30 AM | 显示全部楼层
谢谢两位的帮忙。。。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

 

ADVERTISEMENT



ADVERTISEMENT



ADVERTISEMENT

ADVERTISEMENT


版权所有 © 1996-2023 Cari Internet Sdn Bhd (483575-W)|IPSERVERONE 提供云主机|广告刊登|关于我们|私隐权|免控|投诉|联络|脸书|佳礼资讯网

GMT+8, 10-3-2025 05:45 AM , Processed in 0.255874 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表