久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

 找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 5457|回復: 8
打印 上一主題 下一主題
收起左側

VB:所有控件自適應窗口大小 .

[復制鏈接]
跳轉到指定樓層
樓主
ID:127229 發表于 2016-6-19 16:29 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
Option Explicit

Private FormOldWidth As Long
'保存窗體的原始寬度
Private FormOldHeight As Long

'保存窗體的原始高度
'
在調用ResizeForm前先調用本函數
Private 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

'按比例改變表單內各元件的大小,在調用ReSizeForm前先調用ReSizeInit函數
Private 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 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

'開發軟件時候,把這個modal裝入程序中.然后加入如下代碼:
Private Sub Form_Load()
    Call ResizeInit(Me) '在程序裝入時必須加入
End Sub

Private Sub Form_Resize()
    Call ResizeForm(Me) '確保窗體改變時控件隨之改變
End Sub

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏4 分享淘帖 頂 踩
回復

使用道具 舉報

沙發
ID:200118 發表于 2017-5-18 19:51 | 只看該作者
很好,學習
回復

使用道具 舉報

板凳
ID:241242 發表于 2017-11-16 16:47 | 只看該作者
非常棒
回復

使用道具 舉報

地板
ID:241242 發表于 2017-12-8 09:09 | 只看該作者
太好了,親測好用
回復

使用道具 舉報

5#
ID:64765 發表于 2019-3-16 14:10 | 只看該作者
謝謝分享。
回復

使用道具 舉報

6#
ID:681272 發表于 2020-1-10 05:19 | 只看該作者
謝謝分享。
回復

使用道具 舉報

7#
ID:702600 發表于 2020-3-25 09:51 | 只看該作者
謝謝分享,剛好需要。
回復

使用道具 舉報

8#
ID:64765 發表于 2020-3-28 14:43 | 只看該作者
好資料,學習了,謝謝分享。以前搞過VB,再學習一下,很好。
回復

使用道具 舉報

9#
ID:298008 發表于 2020-3-29 18:38 | 只看該作者
謝謝樓主分享!!!
回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術交流QQ群281945664

Powered by 單片機教程網

快速回復 返回頂部 返回列表
主站蜘蛛池模板: 欧美日韩精品免费观看 | 欧美一级在线观看 | 中文字幕av第一页 | 天天干狠狠| 国产98色在线 | 日韩 | 亚洲精品九九 | 精品久久久久久久 | 99精品国产一区二区三区 | 亚洲视频一区在线播放 | 国产精品久久久久久久模特 | 国产高清在线视频 | 精品国产一区二区三区久久 | 免费看一级毛片 | 久久久久亚洲精品 | 国产二区视频 | 欧美一级一区 | 91精品国产91久久久久久 | 久久精品免费 | 黄色亚洲 | av中文在线 | 色播视频在线观看 | 日韩在线一区二区 | 伊人狼人影院 | 国产免费麻豆视频 | 91麻豆精品一区二区三区 | 色播久久 | 久久大陆 | 毛片99 | 一级视频在线免费观看 | 黄色在线免费看 | 久久精品亚洲欧美日韩精品中文字幕 | 美女视频黄的 | 日韩在线一区二区三区 | 四虎影院在线免费观看 | 成人一区二区三区在线 | 在线观看av网站永久 | 中文字幕一区二区三区四区五区 | 久久久国产精品 | 成人网av| 国精产品一区二区三区 | 中文字幕在线观看视频一区 |