久久久久久久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的网址 | 日韩久久久久久 | 欧美视频免费在线 | 新91| 一级毛片免费完整视频 | 偷拍亚洲色图 | 日本一道本| 日韩欧美三区 | 国产乱码久久久 | 欧美一级一区 | 久久精品欧美一区二区三区不卡 | 毛片免费视频 | h视频在线免费 | 久草视频在线播放 | 精品国产欧美 | 国产精品精品视频一区二区三区 | 亚洲www. | 日韩精品一区二区三区在线 | 草草视频在线观看 | 久久久亚洲成人 | 日本色高清 | 成人在线小视频 | 精品一区二区av | 中文字幕一级毛片 | 国产视频久久 | 久久欧美高清二区三区 | 黄色网址在线免费播放 | 91精品国产综合久久国产大片 | www.国产一区| 国产欧美日韩一区二区三区在线 | 国产免费观看一区 | 成人av电影免费在线观看 | 久久精品亚洲精品国产欧美 | www视频在线观看 | 最新中文字幕第一页视频 | 日韩欧美国产电影 | 97国产一区二区精品久久呦 | 91精品国产91久久久久久 | 欧美影院|