VB窗体初始最大化和改变窗体大小自动缩放控件及字体

于 2023-11-22 13:53:58 发布
阅读量1k 收藏
点赞数
文章标签： 后端
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq398010497/article/details/134551242
版权
这篇博客介绍了如何在VB中实现窗体初始最大化并确保在改变窗体大小时，控件和字体能够自动缩放。通过定义自定义类型、获取屏幕尺寸的函数以及处理窗体加载和尺寸改变的事件，实现了窗体及其控件的自动适配功能。
摘要由CSDN通过智能技术生成

1、模块代码：

'标准模块声明写入(自定义类型)
Type cp
    wp As Single
    hp As Single
    tp As Single
    lp As Single
    fp As Single
End Type

Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

'屏幕尺寸
Private Declare Function GetSystemMetrics32 Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Public ap() As cp  '定义窗体数组

'屏幕宽
Function ScreenWidth() As Long
    ScreenWidth = GetSystemMetrics32(0) * 15
End Function
'屏幕高，去除底部状态栏高度
Function ScreenHeight() As Long
    ScreenHeight = (GetSystemMetrics32(1) - 40) * 15
End Function

Public Function MyGetWinDirectory() As String
    Dim sBuffer As String
    Dim lSize As Long
    sBuffer = String(255, 0)
   

最低0.47元/天 解锁文章
光年_之外
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
vb窗体中控件自动随窗体变化大小(源码)
11-30 1668
源代码下载：http://blog.blogchina.com/upload/2004-12-07/20041207155830520878.rar在开发中,往往开发人员需要控制控件大小适应窗口的大小,使得软件在不同的分辨率下也显得比例协调.那么,怎么才能让窗体中控件自动随窗体变化大小呢?我觉得有一种原始方法很有用,不让窗体可以最大化:比如飞天餐饮软件.......当然这种方法是绕道而行.
VB 控件随窗体自动调整大小.rar
07-10
VB 控件随窗体自动调整大小，像窗口中的ListBox、Image、FileListBox、VB.Frame控件等，都可以随窗口的大小变化而变化，当用户拖动改变窗口大小时，这些控件的大小也会随之改变，这个功能的实现得益于自定义函数Form_Resize()，用此来控制各个控件的变化，来看代码： 　　Dim x, y As Long 　　x = Form1.Width - 200 - Frame1.Width - Image1.Width 　　y = (Frame1.Height - Drive1.Height - Drive1.Top - 200) 　　Frame1.Width = Frame1.Width x / 2 　　Image1.Left = Frame1.Left Frame1.Width 100 　　Image1.Width = Image1.Width x / 2 　　Image1.Height = Me.Height - 600 　　Frame1.Height = Image1.Height 　　Dir1.Width = Frame1.Width - 280 　　File1.Width = Dir1.Width 　　Drive1.Width = Dir1.Width 　　Dir1.Height = y / 3 　　File1.Top = Dir1.Top Dir1.Height 100 　　File1.Height = 2 / 3 * y 　　此段代码被封装在按钮事件中，请参见源代码文件。
VB自动调整窗口 控件按比例缩放代码
12-22
VB程序窗口调整 控件按比例缩放代码,非常有用,让程序最大化后不那么难看了
VB 窗体最大化，最小化，拖拽事件
boys1999的专栏
11-26 3142
Private Sub Form_Resize() If Me.WindowState = 1 Then MsgBox "窗体最小化" End If If Me.WindowState = 2 Then MsgBox "窗体最大化" End If MsgBox Me.Width & "窗体大小变化事件" End Sub
VB运行后去除窗体标题栏且可改变窗口大小及移动窗体
键盘上的舞指
01-27 2005
'新建一个标准模块，放入以下代码： Option Explicit Private Declare Function GetActiveWindow Lib “user32” () As Long '获取窗体焦点 Private Declare Function GetWindowLong Lib “user32” Alias “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Functio
VB6+Mo基础入门之地图放大、缩小、平移、漫游、全图、颜色修改等
fungis
12-25 1761
VB6+Mo基础入门之地图拉框放大、平移、固定放大、固定缩小、漫游、全图、颜色修改等 注意相关事件的添加，以及组件名称的修改！ 界面预览 地图拉框放大与平移功能 Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '如果鼠标点击的是左键，就通过鼠标绘...
动态改变窗体尺寸程序(VB6.0代码编写)
09-13
动态改变窗体尺寸程序(VB6.0代码编写) 当打开和关闭时窗体会动态改变尺寸 QQ223857666勾月
VB窗口大小,控件自动调整的问题
水木清华
12-15 5124
<br />很多人 还老在问VB窗口大小的问题<br />不多废话了,贴代码<br />Option Explicit Private nWndHeight As Long Private nWndWidth As Long Private nControl As Long Private lpTop() As Long Private lpLeft() As Long Private lpWidth() As Long Private lpHeight() As Long Pr
vb 6.0 From 窗口 打开直接最大化
weixin_30408675的博客
10-13 579
设置FORM的属性WINDOWSTATE 值选2 转载于:https://www.cnblogs.com/zanglaowei/p/4873589.html
vb最大化.doc
03-23
### VB实现窗口最大化时控件同步变化的知识点 在Visual Basic (VB) 开发环境中，开发者经常需要处理窗口尺寸变化时控件的自动调整问题。本文档“vb最大化.doc”详细介绍了如何通过VB代码实现当窗口最大化时，窗口内...
限制窗体尺寸大小，并设置在前显示的VB代码
06-09
限制窗体尺寸大小，并设置在前显示的VB代码! 值得下载看看!资源免费,大家分享!! 更多免费资源 http://ynsky.download.csdn.net/
VB编程，放大缩小窗口
06-20
使用vb编程，实现窗体的放大缩小 使用vb编程，实现窗体的放大缩小
使vb窗体可以自适应屏幕分辨率的大小
04-12
使vb窗体可以自适应屏幕分辨率的大小
VB禁窗口最大化小化拉大
06-21
VB禁窗口最大化小化拉大
VB双击顶部最大化窗口调整示例
06-25
双击顶部最大化窗口调整，演示一般的窗口界面美化方法，适合新手看看
VB程序设计窗体的设计PPT课件.pptx
10-07
- **Load事件**：在窗体加载时触发，通常用于初始化窗体和控件。 - **Unload事件**：当窗体关闭时触发，可用于清理资源。 - **Paint事件**：窗体部分或全部暴露，如移动或缩放后触发，常用于绘制窗体内容。 - **...
VB程序设计窗体的设计PPT学习教案.pptx
10-07
- **Load事件**：当窗体被加载时触发，常用于初始化窗体数据和控件。 - **Unload事件**：窗体被关闭或卸载时触发，用于释放资源。 - **Paint事件**：窗体需要重绘时触发，如移动或缩放后。 - **Resize事件**：...
vb滚动条用滚动条控制窗体应用实例
03-03
- **自适应调整大小**：当窗体最大化时，自动调整PictureBox和滚动条的大小。 - **缩放功能**：提供缩放选项，允许用户放大或缩小显示的图像。 - **自动滚动**：当鼠标移动到窗体边缘时，自动滚动显示内容。 通过...
vb窗体中控件自动随窗体变化大小源代码
yanhuaju9的专栏
04-05 1801
http://qian21h.bokee.com/viewdiary.15356105.htmlPrivate Sub Form_Resize()txt.Top = 200txt.Height = Me.Height - 1500 - txt.Toptxt.Left = 400txt.Width = Me.Width - 1000 - txt.LeftEnd Sub
VB6.0窗体最大化时，充满主屏和扩展屏
最新发布
05-27
在VB6.0中，可以通过编写代码实现窗体最大化时充满主屏和扩展屏的效果。具体方法如下： 1. 在窗体的Load事件中，添加以下代码： ``` If Screen.TwipsPerPixelX = 15 Then Me.Left = Screen.PrimaryScreen.WorkAreaLeft Me.Top = Screen.PrimaryScreen.WorkAreaTop Me.Width = Screen.PrimaryScreen.WorkAreaWidth Me.Height = Screen.PrimaryScreen.WorkAreaHeight Else Me.Left = Screen.PrimaryScreen.Bounds.Left Me.Top = Screen.PrimaryScreen.Bounds.Top Me.Width = Screen.PrimaryScreen.Bounds.Width Me.Height = Screen.PrimaryScreen.Bounds.Height End If ``` 2. 代码中的if语句用于判断当前的屏幕是否为主屏，如果是主屏，则使用WorkArea属性设置窗体位置和大小，如果不是主屏，则使用Bounds属性设置窗体位置和大小。 3. 通过这种方式，可以实现窗体最大化时充满主屏和扩展屏的效果。 注意：以上代码仅适用于Windows系统，且需要在多屏环境下测试。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值