Question

VBS编程问题

我想做一个程序
打开后就不停的弹出一个窗口
窗口的内容，名称由我顶，主要是没有 右上角的关闭选项
具体自动打开的窗口数目最好也由我定
谢谢各位大大

Answer 1

窗体没有“关闭按钮”－－－－－－
1。选择窗体
2。属性页中将“BorderStyle”的值改为“0 - None”

打开N个相同窗体
假设要打开N此的窗体的NAME属性值为“Form1"
显示同样的新窗体的代码如下
DIM NewForm as New Form1
NewForm.show
如果要显示指定数量的窗体可如下写代码
DIM NewForm(10) as New Form1
For i=0 to 10
NewForm(i).show
Next i
如果窗体数量不定，则使用Redim语句即可

不停地弹出一个窗体做什么用的？给你个将窗体设置在最前端的代码

第一步。向工程中加入一模块将以下代码粘贴进去：

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const HWND_TOPMOST = -1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const FLAGS = SWP_NOSIZE Or SWP_NOMOVE

第二步：

在需要设置在最前端的窗体的加载事件（Form_Load事件）中加入下面代码：
DIM A as Long
A = FindWindow(vbNullString, "窗体名称")
If A <> 0 Then SetWinOnTop = SetWindowPos(A, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
'说明：将第二行语句中的“窗体名称”改成当前窗体的名称，就是此窗体的Caption属性的值就OK了

Answer 2

不停地弹出一个窗体
你想搞恶啊，马上会死机了的啊，