如何在程序中实现窗体的最大化？

2002-03-19 09:26:02 129 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

告别findViewById！用by viewModels()重构你的老旧Android项目（附兼容方案）本文针对老旧Android项目现代化改造，详细介绍了如何使用Kotlin的by viewModels()属性委托替代传统findViewById和冗长的ViewModel初始化代码。文章深入解析了其作为生命周期感知组件的核心优势，并提供了渐进式重构策略、低版本兼容方案以及Fragment间共享ViewModel等实战技巧，帮助开发者安全高效地提升代码质量。阅读详情

我现有一个窗体（BorderStyle=2:sizeable),我想在程序中将其最大化，并且不要标题栏，即样子像（BorderStyle=0),该如何实现？是不是得用SetWindowLong，但我用不好使，请高手指教！最好给出详细的代码！
谢谢！

...全文

Chain-of-Code：让大模型真正理解代码逻辑的推理链方法程序分析是软件工程的核心能力，涉及控制流、数据流与语义契约等基础概念；而大模型代码生成长期受限于黑箱式续写，缺乏可追溯的推理过程。Chain-of-Code通过结构化思维链（CoT）将符号执行、程序切片与SMT约束求解深度耦合，使模型从‘猜代码’转向‘证代码’——每一步推理都绑定具体代码片段、状态变更与可验证依据。该方法显著提升代码审查、竞态分析与技术债务识别等高风险场景的确定性与可审计性，为AI编程辅助从工具层跃迁至工程决策层提供关键技术路径。阅读详情

jiuweixie

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

xxlroad 2002-03-19

打赏
举报

Private Sub Form_Load()
'设置 form 的 BorderStyle = 0
Left = 0
Top = 0
Width = Screen.Width
Height = Screen.Height
End Sub

alex_xxx 2002-03-19

打赏
举报

BorderStyle=0

form1_load()
form1.top=0
form1.left=0
form1.width=screen.width
form1.height=screen.height

lily0000000 2002-03-19

打赏
举报

你既然知道BorderStyle=0，那就直接用它好了嘛

lqf 2002-03-19

打赏
举报

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000　　 ' WS_BORDER 或 WS_DLGFRAME
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000

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

Private Enum ESetWindowPosStyles
　　SWP_SHOWWINDOW = &H40
　　SWP_HIDEWINDOW = &H80
　　SWP_FRAMECHANGED = &H20 ' The frame changed: send WM_NCCALCSIZE
　　SWP_NOACTIVATE = &H10
　　SWP_NOCOPYBITS = &H100
　　SWP_NOMOVE = &H2
　　SWP_NOOWNERZORDER = &H200 ' Don't do owner Z ordering
　　SWP_NOREDRAW = &H8
　　SWP_NOREPOSITION = SWP_NOOWNERZORDER
　　SWP_NOSIZE = &H1
　　SWP_NOZORDER = &H4
　　SWP_DRAWFRAME = SWP_FRAMECHANGED
　　HWND_NOTOPMOST = -2
End Enum

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
　　Left As Long
　　Top As Long
　　Right As Long
　　Bottom As Long
End Type

Private Function ShowTitleBar(ByVal bState As Boolean)
Dim lStyle As Long
Dim tR As RECT

　　' 获取窗口的位置：
　　GetWindowRect Me.hwnd, tR

　　' 调整标题栏是否可见：
　　lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
　　If (bState) Then
　　Me.Caption = Me.Tag
　　If Me.ControlBox Then
　　　　lStyle = lStyle Or WS_SYSMENU
　　End If
　　If Me.MaxButton Then
　　　　lStyle = lStyle Or WS_MAXIMIZEBOX
　　End If
　　If Me.MinButton Then
　　　　lStyle = lStyle Or WS_MINIMIZEBOX
　　End If
　　If Me.Caption <> "" Then
　　　　lStyle = lStyle Or WS_CAPTION
　　End If
　　Else
　　Me.Tag = Me.Caption
　　Me.Caption = ""
　　lStyle = lStyle And Not WS_SYSMENU
　　lStyle = lStyle And Not WS_MAXIMIZEBOX
　　lStyle = lStyle And Not WS_MINIMIZEBOX
　　lStyle = lStyle And Not WS_CAPTION
End If
SetWindowLong Me.hwnd, GWL_STYLE, lStyle

' 重新设定窗口：
SetWindowPos Me.hwnd, 0, tR.Left, tR.Top, tR.Right - tR.Left, tR.Bottom - tR.Top, SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED
Me.Refresh

End Function
Private Sub Command1_Click()
　 form1.windowstate=2
　　ShowTitleBar false　　
End Sub

Private Sub Command2_Click()
　 form1.windowstate=2
　　ShowTitleBar true　
End Sub

mmccmmcc 2002-03-19

打赏
举报

一句话 form.windowstate=2 就搞定了你们不要误人子弟好吗???老兄

连delphi的语法都上来了我晕

lqf 2002-03-19

打赏
举报

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
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
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOMOVE = &H2
Private Const SWP_DRAWFRAME = &H20
Private Const GWL_STYLE = (-16)
Private Const WS_THICKFRAME = &H40000
Private Const WS_DLGFRAME = &H400000
Private Const WS_POPUP = &H80000000
Private Const WS_CAPTION = &HC00000
Private Const WS_SYSMENU = &H80000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZE = &H20000000
Private Const WS_MAXIMIZE = &H1000000

jiuweixie 2002-03-19

打赏
举报

有没有搞错，我想的是要在程序运行时由程序自己改变窗体的大小，而像上面的那样是不可能改变的！

如何在程序中实现窗体的最大化？

相关推荐