请问vb中有几种方法实现,界面一运行就充满整个屏幕?

shradish 2005-04-07 04:54:26
希望能知道详细的实现步骤。。

谢谢
...全文
146 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
szmickylee 2005-04-07
  • 打赏
  • 举报
回复
1) 窗体Form_Load事件,自动调节高度、宽度
Private Sub Form_Load()
Me.Left = 0
Me.Top=0
Me.Width=Screen.Width
Me.Height=Screen.Height
End Sub

2) 窗体Form_Load事件,设置WindowState
Private Sub Form_Load()
Me.WindowState = 2
End Sub

3) 直接设置Form的WindowState属性为 2 - Maximized
viena 2005-04-07
  • 打赏
  • 举报
回复
要做成最顶端窗口,否则没法遮住任务栏
pcwak 2005-04-07
  • 打赏
  • 举报
回复
Option Explicit

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MAXIMIZE = &HF030&

Private Sub Form_Load()
PostMessage Me.hwnd, WM_SYSCOMMAND, SC_MAXIMIZE, 0
End Sub
pcwak 2005-04-07
  • 打赏
  • 举报
回复
2>Form_Load()中设置:
left=0
top=0
Me.Width=Screen.Width
Me.Height=Screen.Height
Gutta 2005-04-07
  • 打赏
  • 举报
回复
1>WindowState属性设置为2(Maximized)

2>Form_Load()中设置:
Me.Width=Screen.Width
Me.Height=Screen.Height

7,789

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧