您的位置：程序门 -> vb ->

关于vb自定义函数的问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

关于vb自定义函数的问题[已结贴,结贴人:luoxinxin1988]

发表于：2007-02-24 19:57:55 楼主

小的不才,刚学vb不久,现在想自定义一个函数,在调用这个函数时,弹出另一个窗口,请问这个函数应该如何编写,这个程序很简单的,请会的高手指点下,定重谢!

发表于：2007-02-24 20:06:351楼得分:10

1)弹出另一个窗口一般无须使用函数,仅使用语句,假如你需弹出的窗口名为form2:
form2.show
2)如你确需一个函数弹出另一个窗口,那也不是自定义的,用shell函数:
shell 函数
执行一个可执行文件，返回一个 variant （double)，如果成功的话，代表这个程序的任务 id，若不成功，则会返回 0。
shell 函数示例
本示例使用 shell 函数来完成一个用户指定的应用程序。
dim retval
retval = shell（ "c:\windows\calc.exe ", 1) ' 完成calculator。
3)按你要求将form2.show放你自定义函数代码内的合适位置.

发表于：2007-02-24 20:15:052楼得分:5

他也许是要求用inputbox 函数返回得到1个参数
比如这样
a = inputbox（ "请输入参数 ")

发表于：2007-02-25 09:11:593楼得分:5

private sub form_load（)
dim a1 as form1
set a1=new form1
form1.show

end sub

发表于：2007-02-25 17:19:364楼得分:0

各位朋友好像都没有看清楚我问的问题,谢谢大家,弹出窗口我也会啊,我要的是自定义的函数,比如说自定义一个popwindow函数,使这个函数能弹出一个窗口,如果成功返回非0,不成功返回0..
再谢谢大家了

发表于：2007-02-25 20:18:575楼得分:0

我的目的就是自定义一个弹出窗口的函数,大家好像都没有看明白我的要求,就是自定义一个弹出窗口的函数....其他的办法我也有的,可是我要自定义一个这样的函数.

发表于：2007-02-25 20:26:236楼得分:0

关于这个问题我已经有详细的解答了,代码是这样的:
public sub showform（fform as form)
load fform
fform.show
end sub
'自定义一个弹出窗口的聚光灯,调用函数时,显示出一个窗口

private sub command1_click（)
showform form2
end sub
' 调用函数,显示窗口

就是这样的.只是大家都把我的问题理解错误了..

下一篇：关于文件二进制的一个源程序问题?（分不够可加）
上一篇：vb如何通过拖放来查找窗体句柄和进程

其他资讯