vb6.0中怎样让窗体全屏显示？

1、首先在开发工具中打开VBA编辑器。

2、在单元格区域当中输入一些内容作为例子。

3、在VBA编辑器中插入模块。

4、在模块当中输入如下代码，然后运行Private Sub UserForm_Initialize() Me.Height=Application.Height '窗体高度等于Excel程序的高度 Me.Width=Application.Width  '窗体宽度等于Excel程序的宽度End Sub。

5、用快捷键F5运行窗体，则窗体全屏显示。

应该是always .....不记得了,我很久没有碰过VB了,不过那个属性应该是有一个always的,你看看吧!!! 有一个Api函数···代码我等会给你···呵呵·· 好了···在下面···

Option Explicit

'控制任务栏的隐藏和显示的函数。函数的参数分别为 窗体句柄 窗体显示方式 窗体坐标 窗体坐标 窗体坐标 窗体坐标 函数工作方式标志

'用于确定窗体显示形式的常数为 hwnd_topmst=-1 将窗体保持在最前面 hwnd_notopmost=-2 不将窗体宝石在最前面

'swap_nosize=&h1 窗体装入时不改变原有尺寸 swap_nomove=&h2 窗体装入时保持原窗体设计师在屏幕上的位置

Private 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

Const hwnd_topmost = -1

Const swp_nosize = &H1

Const swp_nmove = &H2

Private Sub Form_Load()

SetWindowPos Me.hwnd, hwnd_topmost, 0, 0, 0, 0, swp_nosize Or swp_nmove

'只有swp_nosize的时候大小不变但位置移到了左上角即（0，0）点；只有swp_nmove时位置不变但大小相当于为零；

'这里的“或”的关系是“逻辑加”，因为0001或0010为0011，1+2=3.这里不能用and,用and便为两个都为1才为1，所以结果为0000

End Sub

方法很多个。

可以使用API函数Sleep

Private Declare Sub Sleep Lib "kernel32.DLL" (ByVal dwMilliseconds As Long)

调用比如睡眠1秒:Sleep(1000)

另外还有一种延时方法，即获取当前系统时间+延时时间=等待结束时间，等到了等待结束时间到了就往下执行。

Private Declare Function GetTickCount Lib "kernel32" () As Long

'自编应用函数

Private Sub WaitForMS(MillSeconds As Long)

Dim S as Long

S=GetTickCount+MillSeconds

Do

If GetTickCount=S Then Exit Sub

Loop

End Sub

这个函数的调用跟上面的相似，单位是ms。

---