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

快速回復 返回頂部 返回列表
主站蜘蛛池模板: 91高清视频在线观看 | 国产精品一区二区在线播放 | 亚洲国产一区二区视频 | 99热在线观看精品 | 午夜激情小视频 | 天堂一区二区三区四区 | 国精产品一品二品国精在线观看 | 亚洲精品成人网 | 日韩一区二区在线视频 | 最新国产精品视频 | 日韩精品不卡 | 亚洲欧美视频 | av性色全交蜜桃成熟时 | 97精品国产 | 国产精品人人做人人爽 | 日韩电影免费观看中文字幕 | 一区二区三区国产 | 日日骚网| 成人午夜精品一区二区三区 | 国产精品亚洲一区 | 久久99精品久久久久久 | 成人亚洲精品 | 日韩视频在线一区二区 | 一级黄色片一级黄色片 | 黄色精品 | 久久精品超碰 | 亚洲成人激情在线观看 | 久久99精品久久久久蜜桃tv | 国产精品亚洲视频 | 国产人久久人人人人爽 | 国产男女精品 | 国产高清一区二区三区 | 蜜月aⅴ国产精品 | 亚洲免费福利视频 | 国产精品区一区二 | 久久久www成人免费精品张筱雨 | 日韩高清不卡 | 亚洲精品国产精品国自产在线 | 米奇狠狠鲁 | 密室大逃脱第六季大神版在线观看 | 亚洲成人久久久 |