如何让软件界面的布局随着显示器分辨率的变化而自动变化！

水族杰纶 2010-11-09 04:31:27
RT：
找到这几个过程
Public Sub ResizeInit(FormName As Form)

    Dim Obj     As Control

    FormOldWidth = FormName.ScaleWidth

    FormOldHeight = FormName.ScaleHeight

    On Error Resume Next

    For Each Obj In FormName

        Obj.Tag = Obj.Left & "   " & Obj.Top & "   " & Obj.Width & "   " & Obj.Height & "   "

    Next Obj

    On Error GoTo 0

End Sub

Public Sub ResizeForm(FormName As Form)

    Dim Pos(4)     As Double

    Dim i     As Long, TempPos       As Long, StartPos       As Long

    Dim Obj     As Control

    Dim ScaleX     As Double, ScaleY       As Double

    If FormOldWidth = 0 Then

        Exit Sub

    End If

    ScaleX = FormName.ScaleWidth / FormOldWidth

    ScaleY = FormName.ScaleHeight / FormOldHeight

    On Error Resume Next

    For Each Obj In FormName

        StartPos = 1

    For i = 0 To 4

        TempPos = InStr(StartPos, Obj.Tag, "   ", vbTextCompare)

        If TempPos > 0 Then

            Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)

            StartPos = TempPos + 1

        Else

            Pos(i) = 0

        End If

        Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY

    Next i

    Next Obj

    On Error GoTo 0

End Sub
但是有缺点就是组合框不能自动适用！
...全文
910 38 打赏 收藏 转发到动态 举报
写回复
用AI写文章
38 条回复
切换为时间正序
请发表友善的回复…
发表回复
hongsedigua 2011-12-26
  • 打赏
  • 举报
 回复
有没有C#的啊？
zdingyun 2010-11-10
  • 打赏
  • 举报
 回复
关注此帖.
水族杰纶 2010-11-10
  • 打赏
  • 举报
 回复
[Quote=引用 17 楼 lxq19851204 的回复:]
水哥，最近押宝战况如何.......
[/Quote]
输的一塌糊涂
水族杰纶 2010-11-10
  • 打赏
  • 举报
 回复
谢谢楼上各位大大
你们太热情了
呵呵
我好好看看你们的代码
dbcontrols 2010-11-10
  • 打赏
  • 举报
 回复
"针对不同的分辨率"谁能预料下一代显示器的分辨率是多少?

[Quote=引用 26 楼 veron_04 的回复:]
个人觉得，针对不同的分辨率加载时设置各个控件的位置和大小，这个办法虽然麻烦些，但绝对有效。只需要在加载前判断分辨率即可。
[/Quote]
bcrun 2010-11-10
  • 打赏
  • 举报
 回复
其实比较而言,随分辨率变化布局还算小事,随系统字体大小变化才算麻烦事,君不见,很多朋友就是受困于这个,一边使用着1920像素的高分辨率显示器,一边系统字体还使用的是96dpi的小字体,因为不少程序不是这个字体就显示很不正常.
咸清 2010-11-09
  • 打赏
  • 举报
 回复
学习了~~
rkdrc 2010-11-09
  • 打赏
  • 举报
 回复
貌似没有完美解决方案
叶子 2010-11-09
  • 打赏
  • 举报
 回复
VB6.0 不熟悉，友情up
lxq19851204 2010-11-09
  • 打赏
  • 举报
 回复
[Quote=引用 26 楼 veron_04 的回复:]
个人觉得，针对不同的分辨率加载时设置各个控件的位置和大小，这个办法虽然麻烦些，但绝对有效。只需要在加载前判断分辨率即可。
[/Quote]
+1
贝隆 2010-11-09
  • 打赏
  • 举报
 回复
个人觉得，针对不同的分辨率加载时设置各个控件的位置和大小，这个办法虽然麻烦些，但绝对有效。只需要在加载前判断分辨率即可。
cbm6666 2010-11-09
  • 打赏
  • 举报
 回复
这个题目问的有点别扭, 应该要问窗体内部控件自适应窗体大小, 因为分辨率变化, 只是像素颗粒大小的变化,人眼感觉大小不同, 其实尺寸是完全一样的


Dim FrmW!, FrmH!, RatioX!, RatioY!
Private Sub Form_Load()
FrmW = Me.Width: FrmH = Me.Height
End Sub

Private Sub Form_Resize()
Dim MyCon As Object
RatioX = Me.Width / FrmW: RatioY = Me.Height / FrmH
For Each MyCon In Me.Controls
With MyCon
.Left = Int(.Left * RatioX)
.Top = Int(.Top * RatioY)
.Width = Int(.Width * RatioX)
If Not TypeOf MyCon Is ComboBox And Not TypeOf MyCon Is DriveListBox Then .Height = Int(.Height * RatioY)
End With
Next MyCon
FrmW = Me.Width: FrmH = Me.Height
End Sub

jhone99 2010-11-09
  • 打赏
  • 举报
 回复
这个是自动缩放，和lz的有些区别
jhone99 2010-11-09
  • 打赏
  • 举报
 回复
参考一下，看是否有启发



Option Explicit

Private FormOldWidth    As Long    '保存窗体的原始宽度

Private FormOldHeight    As Long    '保存窗体的原始高度

  '在调用ResizeForm前先调用本函数

  Public Sub ResizeInit(FormName As Form)

      Dim Obj    As Control

      FormOldWidth = FormName.ScaleWidth

      FormOldHeight = FormName.ScaleHeight

      On Error Resume Next

      For Each Obj In FormName

          If TypeOf Obj Is ComboBox Then

                Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.FontSize & " "

          ElseIf TypeOf Obj Is CommandButton Then

                Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " " & Obj.FontSize & " "

          ElseIf TypeOf Obj Is Line Then

                Obj.Tag = Obj.X1 & " " & Obj.X2 & " " & Obj.Y1 & " " & Obj.Y2 & " " & Obj.BorderWidth & " "

          Else

                Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "



          End If

      Next Obj

      On Error GoTo 0

  End Sub



  '按比例改变表单内各元件的大小，在调用ReSizeForm前先调用ReSizeInit函数

  Public Sub ResizeForm(FormName As Form)

      Dim Pos(4)    As Double

      Dim i    As Long, TempPos      As Long, StartPos      As Long

      Dim Obj    As Control

      Dim ScaleX    As Double, ScaleY      As Double

      ScaleX = FormName.ScaleWidth / FormOldWidth          '保存窗体宽度缩放比例

      ScaleY = FormName.ScaleHeight / FormOldHeight          '保存窗体高度缩放比例

      On Error Resume Next

      For Each Obj In FormName

          StartPos = 1

          For i = 0 To 5

          '读取控件的原始位置与大小

              TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)

              If TempPos > 0 Then

                  Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)

                  StartPos = TempPos + 1

              Else

                  Pos(i) = 0

              End If

        '根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小

          Next i



            If TypeOf Obj Is ComboBox Then

                Obj.FontSize = Pos(3) * ScaleY

                Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX

            ElseIf TypeOf Obj Is CommandButton Then

                Obj.FontSize = Pos(4) * ScaleY

                Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY

            ElseIf TypeOf Obj Is Line Then

                Obj.X1 = Pos(0) * ScaleX

                Obj.X2 = (Pos(1) - Pos(0)) * ScaleX + Obj.X1

                Obj.Y1 = Pos(2) * ScaleY

                Obj.Y2 = (Pos(3) - Pos(2)) * ScaleY + Obj.Y1

                Obj.BorderWidth = Pos(4) * Sqr(ScaleX * ScaleX + ScaleY * ScaleY)

            Else

                Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY

            End If

      Next Obj

      On Error GoTo 0

  End Sub



Private Sub Form_Initialize()

    Call ResizeInit(Me)

End Sub



Private Sub Form_Resize()

    Call ResizeForm(Me)

End Sub


venice888 2010-11-09
  • 打赏
  • 举报
 回复
这个有兴趣。先顶再看
dbcontrols 2010-11-09
  • 打赏
  • 举报
 回复
各位，友情提示，这是技术贴，别扯淡。
lxq19851204 2010-11-09
  • 打赏
  • 举报
 回复
[Quote=引用 19 楼 dbcontrols 的回复:]
你把我当做什么人了？我能干那缺德事？


引用 18 楼 sysdzw 的回复:
引用 15 楼 dbcontrols 的回复:

不懂阁下在说啥
我说的推荐是给LZ推荐了篇文章，点击能打开的

引用 13 楼 sysdzw 的回复:
引用 9 楼 dbcontrols 的回复:

推荐
本来还蓝色高亮的，现在都取消了，还推荐呢。。
我以为你说让版主推荐的呢。.
[/Quote]
dbcontrols是大胡子吗？
dbcontrols 2010-11-09
  • 打赏
  • 举报
 回复
你把我当做什么人了？我能干那缺德事？

[Quote=引用 18 楼 sysdzw 的回复:]
引用 15 楼 dbcontrols 的回复:

不懂阁下在说啥
我说的推荐是给LZ推荐了篇文章，点击能打开的

引用 13 楼 sysdzw 的回复:
引用 9 楼 dbcontrols 的回复:

推荐
本来还蓝色高亮的，现在都取消了，还推荐呢。。
我以为你说让版主推荐的呢。.
[/Quote]
无·法 2010-11-09
  • 打赏
  • 举报
 回复
[Quote=引用 15 楼 dbcontrols 的回复:]

不懂阁下在说啥
我说的推荐是给LZ推荐了篇文章，点击能打开的

引用 13 楼 sysdzw 的回复:
引用 9 楼 dbcontrols 的回复:

推荐
本来还蓝色高亮的，现在都取消了，还推荐呢。。
[/Quote]我以为你说让版主推荐的呢。.
lxq19851204 2010-11-09
  • 打赏
  • 举报
 回复
水哥，最近押宝战况如何.......
加载更多回复（16）
在VFP中获取显示器分辨率
有时候，我们的程序要适应不同分辨率的显示器。 逼近，我们不能规定客户只能用1920*1200的显示器不是。 于是有了读取客户显示器分辨率，然后根据其大小自动调整界面布局的功能。 本示例用来解析如何读取显示器的分辨率。 适合VFP初学者
Android编程实现屏幕自适应方向尺寸与分辨率的方法
本文实例讲述了Android编程实现屏幕自适应方向尺寸与分辨率的方法。分享给大家供大家参考，具体如下： Android 屏幕自适应方向尺寸与分辨率，包括屏幕界面布局、多分辨率支持、获取屏幕尺寸、屏幕横屏与竖屏等，android 模拟器横屏，android 虚拟机横屏，android 判断横屏，android 禁止横屏，android 强制横屏，android 横屏事件，android 自适应分辨率，android 屏幕自适应，android 图片自适应，android 横屏布局。 屏幕界面布局 Android 手机屏幕大小有 480×320 、640×360, 、800×480 ，怎样让 A
淮南设计留言簿XP v1.0 Bate
界面采用百分比制表布局，基本上解决了显示器分辨率问题
PL/SQL Developer 12.0
PL/SQL Developer 12.0 数据库轻量工具 功能区用户界面 PL/SQL 开发人员现在使用新的功能区用户界面，而不是菜单用户界面： 功能区上方的快速访问工具栏包含最常用的功能，因此它们始终立即可用。您可以根据自己的喜好自定义快速访问工具栏。 喜欢使用类似菜单的系统来保留屏幕空间的用户可以选择自动隐藏功能区。在首选项中，您可以选择一个选项以恢复到 PL/SQL Developer 11.0 及更早版本中熟悉的工具栏布局。 单一文档界面 在“视图”功能区上，您现在可以在单文档界面（SDI）或多文档界面（MDI – 与PL / SQL Developer 11.0及更早版本中相同）之间进行选择。在SDI模式下，您始终只看到一个最大化窗口。窗口上方的选项卡控件允许您在窗口之间快速切换： 常规用户界面增强功能 PL/SQL Developer现在完全兼容高DPI屏幕，如4K显示器和笔记本电脑。所有控件和图像都将随分辨率缩放（某些插件可能仍需要增强）。单击下图以放大此 15 英寸 4K 笔记本电脑 （250% DPI） 示例： 现在，所有窗口类型都具有特定的图标颜色
benoitfreslon-layoutmanager:视觉布局管理器。 使用适用于Starling框架的Flash IDE构建布局，并与CitrusEngine框架兼容
benoitfreslon-layoutmanager 视觉布局管理器。 使用适用于框架的Flash IDE进行构建，并与框架兼容。 用于构建简单的游戏界面，平视显示器，菜单，弹出窗口等。 一键即可将Flash Pro IDE变成Starling 多分辨率支持 描述 使用Flash IDE构建视觉布局。 使用本机Starling对象（Sprite，Image，TextField，Button）构建布局。 使用自定义Flash组件，并使用LayoutManager类在游戏中实时显示布局。 使用Starling的基本班级或使用您自己的班级。 使用Starling类的本机属性（纹理，文本，颜色，字体等）。 在Flash IDE中使用实例名称，然后在您的类中获取对象。 在您自己的视觉对象中添加自定义参数。 使用Sprite容器将多个对象嵌入一个视觉对象中。 只需使用具有所有布
控件

1,451

社区成员

41,355

社区内容

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章