# 哪有那样复杂

Posted by Honey on July 02, 1999 at 20:04:52:

In Reply to: Re: 可否明示 ....... posted by gg on July 02, 1999 at 08:28:03:

: : 唔 ... 不如使用 HWND 作为 parameter 吧 ...
: : 用 API 来显示应该可行的

: 先进可否明示实际的作法呢 ?

首先是语法错误
括号去掉就可以了 因为加括号的时候要有回传的值
但是sub没有回传值
showform Form2

不然前面要加个call
call showform(Form2)

另外如果很多表单都要用同一组程式码 有两种方式
如果每个表单都一样 只要用表单阵列的方式
执行时他会将表单复制(包含控制项 程式码)
例如现在有个表单Form2
可执行以下程式
Dim ek(1) As Form2
Dim CONX As Control
Set ek(1) = New Form2
For Each CONX In Form2.Controls
'/*复制表单内所有Controls*/
Next
ek(1).Show
另一种方式 只要将这段程式放在模组的sub 或Function
内前面要宣告成Public
例如
Public Function ds()

End Function

Follow Ups: