久久久久久久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 單片機教程網

快速回復 返回頂部 返回列表
主站蜘蛛池模板: 国产99精品| 日日夜夜天天干 | 99久久久国产精品 | 91av在线电影 | 欧美日韩专区 | 婷婷中文字幕 | 日韩有码一区二区三区 | 日韩美女在线看免费观看 | 中文字幕在线不卡播放 | 91伊人网 | 成人网在线观看 | 超碰在线影院 | h视频在线观看免费 | 天堂亚洲| 国产精品免费一区二区三区 | 久久久久久av | k8久久久一区二区三区 | 久久久久久久久久久91 | 色精品视频 | 欧美中文字幕 | 久久精品网 | 免费观看羞羞视频网站 | 91精品一区二区三区久久久久 | 亚洲综合在线一区二区 | 中文字幕成人网 | 羞羞的视频在线 | 天天操天天摸天天干 | 国产激情精品一区二区三区 | 色av一区二区三区 | 欧美一级二级视频 | 欧美在线一区二区三区 | 欧美成人精品一区二区男人看 | 久久中文字幕一区 | 欧美成人精品激情在线观看 | 亚洲福利一区 | 天天爽综合网 | 婷婷精品 | 久久www免费人成看片高清 | 久久综合伊人一区二区三 | 欧美中文字幕在线 | 亚洲精品二区 |