VBS编程问题

来源：百度知道 编辑：UC知道 时间：2024/07/05 08:30:15
我想做一个程序
打开后就不停的弹出一个窗口
窗口的内容，名称由我顶，主要是没有 右上角的关闭选项
具体自动打开的窗口数目最好也由我定
谢谢各位大大

窗体没有“关闭按钮”－－－－－－
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 Co