Question

求高手写VB小程序

新做了两个EXE 一个运行后 另外一个EXE也运行 但另外那个EXE隐藏了 但进程存在 需要的是EXE去呼出进程显示界面

Answer 1

api showwindow()
如果这两个程序都是你写的，自己在formload中form2.show()就可以了

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long '声明

sub form_load() handle form.load
hwnd=findwindow(null,"exe名")
if hwnd=0 then
msg "进程未找到"
exit sub
end if
ret%=showwindow(hwnd,SW_SHOWNORMAL)
if ret=0 then
msg "窗口未发现"
exit sub
end if
end sub

追问

不是 是自己编写的两个独立程序 但运行A程序会在系统时间区域透明显示的 然后那个程序一直会置顶显示 B程序则运行 用户关闭在进程显示 然后点击A程序呼出B进程界面显示

追答

你可以把两个程序代码汇总到一个项目里
sub formA.load
formB.visible=false
formB.load
end sub

sub formA.click
formB.show
end sub

要么就像之前的两个API那样找到进程，隐藏显示窗口，VB也就只能这样了，最好是再一个项目里做，反正项目所有程序都是你自己的
要是想把B程序做成独立项目，让之后的程序共用的话也只能通过API的方式，不过既然你了解B的窗口类名，那么findwindow("类名","窗口标题")能准确找到你的B程序。

Answer 2

私人小Command1_Click（）
暗淡了（10）作为整数，我作为整数

对于i = 1到10

A（I）= INT（*的Rnd 90 + 10）

打印（一）

打印“反向输出：”

对于i = 10到1步骤-1

打印（I）接下来
小尾