VB6.0中一个工程设置了多个窗体,工程运行后,窗体有层次的出现,要求只有最上面的窗体可以操作,怎么写?

如图所示,出现这种情况时,只要求登录窗体看可以操作,下面所有的窗体不能操作,程序该怎么写?跪求高手帮助!只需要“只要求登录窗体看可以操作,下面所有的窗体不能操作”这段的程序

第1个回答  2011-05-31
显示模式的更改就可以了。
比如说:你想要把窗体form2置前,那么在form1调用form2的时候把 form2.show 改成 form2.show 1
就可以了
第2个回答  2011-05-31
Form2.Show 1窗体以模态方式显示窗体,不能操作下面窗体。
Form2.Show 0窗体以无模式显示窗体,可以操作下面窗体。本回答被提问者采纳
第3个回答  2011-05-31
在登录窗口弹出事件中
其他form的enabled全改成FALSE不就行了?

我在做VB6.0的时候做了3个窗体。。我突然想把最后一个窗体变成打开程序...
在工程属性设置中有一项"启动窗体"的设置,是一个下拉框,在里面选择为你最后那个窗体的窗体名称,确认,就可以了.它默认是使用第一个窗体的.

VB6.0窗体form1总在最前的代码怎么写
Const HWND_TOPMOST = -1 Const SWP_SHOWWINDOW = &H40 Private Sub Form_load()Dim retValue As Long '将窗体设置为处于所有窗口的顶层,注意在 VB 中运行时,可能不行,但编译成EXE后就可以了 retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST,...

vb6.0中的窗体如何设置最前?
'用于确定窗体显示形式的常数为 hwnd_topmst=-1 将窗体保持在最前面 hwnd_notopmost=-2 不将窗体宝石在最前面 'swap_nosize=&h1 窗体装入时不改变原有尺寸 swap_nomove=&h2 窗体装入时保持原窗体设计师在屏幕上的位置 Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ...

VB6.0中我创建了一个窗体,其中添加了一个菜单栏,我想点击菜单栏让它显示...
要么把frmMater100窗体的Mdichild属性设置为False,让它和菜单所在窗体成为没有亲属关系的普通窗体;要么你就新添加一个MDI窗体,然后把当前窗体的菜单等等控件复制到新增的MDI窗体,再把启动对象设为这个新窗体,也就是把界面改为一父带多子的结构。

VB6.0窗口总在最前(如QQ那样)
Private Const HWND_TOPMOST& = -1 ' 将窗口置于列表顶部,并位于任何最顶部窗口的前面 Private Const SWP_NOSIZE& = &H1 ' 保持窗口大小 Private Const SWP_NOMOVE& = &H2 ' 保持窗口位置 Private Sub Form_Load()SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_...

VB6.0有多种类型的窗口,如何使个窗口显示或不显示
调用窗体事件:form.hide 隐藏窗体 form.show 显示窗体 设置窗体属性:Form1.Visible = True 窗体可见 Form1.Visible = False 窗体不可见

vb6.0窗体总是最前
SetWindowPos(),第二个参数用HWND_TOP或者HWND_TOPMOST,可以把窗口放到z序顶部。两个试一试,应该能解决你的问题

VB6.0中如何让一个窗体始终局于MID子窗体之上。
你想写类似查找替换那种窗口吧 frmfind.show 0,me 先看看是不是要这种效果?mdiform1:Private Sub MDIForm_Load()Form2.Show End Sub form1:'什么也没有 form2 '添加一个command1 'mdichild=true Private Sub Command1_Click()Form1.Show 0,MDIForm1 End Sub 工程属性里把启动设置为mdiform1...

VB6.0中如何让一个窗体始终局于MID子窗体之上。
你想写类似查找替换那种窗口吧 frmfind.show 0,me 先看看是不是要这种效果?mdiform1:Private Sub MDIForm_Load()Form2.Show End Sub form1:'什么也没有 form2 '添加一个command1 'mdichild=true Private Sub Command1_Click()Form1.Show 0, MDIForm1 End Sub 工程属性里把启动设置为mdiform...

vb6.0有多种类型的窗口,若想在设计时看到代码窗口,怎样操作?
打开代码窗口的三种方法:(1)选中工程窗口中的一个窗体或标准模块,并单击“查看代码按钮”。(2)双击窗体窗口的控件或窗体本身。(3)单击“视图”菜单中的“代码窗口”命令。不能打开对象窗口的操作是A 按下F2打开的是“对象浏览器”窗口 vb6.0 :VB 就是 Visual Basic 的意思,是一种常用的...

相似回答