如图所示,出现这种情况时,只要求登录窗体看可以操作,下面所有的窗体不能操作,程序该怎么写?跪求高手帮助!只需要“只要求登录窗体看可以操作,下面所有的窗体不能操作”这段的程序
我在做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 的意思,是一种常用的...