ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽﾆみゑｿｽｿｽｿｽ 2006/04/09(ｿｽｿｽ) 19:33:42

VB6ｿｽAWindowsNTｿｽﾉて趣ｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽfｿｽBｿｽXｿｽvｿｽｿｽｿｽCｿｽｿｽtｿｽﾉフｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽJｿｽｿｽｿｽﾂ具ｿｽｿｽﾅ会ｿｽﾊゑｿｽｿｽｿｽｿｽﾏゑｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽJｿｽｿｽｿｽﾂ具ｿｽｿｽｿｽｿｽ蛯ｫｿｽｿｽｿｽ像度ｿｽﾌデｿｽBｿｽXｿｽvｿｽｿｽｿｽCｿｽﾉなゑｿｽﾆ茨ｿｽtｿｽﾅはなゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽB

ｿｽdｿｽｿｽｿｽﾅの開ｿｽｿｽｿｽﾈのでソｿｽ[ｿｽXｿｽﾍ記ｿｽﾚでゑｿｽｿｽﾜゑｿｽｿｽがヒｿｽｿｽｿｽgｿｽ轤ｵｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽ黷ｵｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽﾊゑｿｽｿｽﾄみゑｿｽ 2006/04/09(ｿｽｿｽ) 21:08:35

ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ大きｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾈゑｿｽAｿｽﾅ大化ｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌでは・ｿｽEｿｽEｿｽH
ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾈどの大きｿｽｿｽｿｽｿｽﾏゑｿｽｿｽｿｽﾈゑｿｽAｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾅ大化ｿｽｿｽｿｽﾄゑｿｽｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽﾌ大きｿｽｿｽｿｽｿｽｿｽｿｽvｿｽZｿｽｿｽｿｽｿｽｿｽｿｽﾎ厄ｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ

K.J.K. 2006/04/10(ｿｽｿｽ) 07:57:18

ｿｽPｿｽｿｽｿｽﾉ、

Private Sub Form_Load()
    Call Me.Move(0, 0, Screen.Width, Screen.Height)
End Sub

ｿｽｿｽｿｽﾆまゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽ?

ｿｽｿｽ 2006/04/10(ｿｽｿｽ) 16:27:19

ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽﾉゑｿｽｿｽｿｽuWindowStateｿｽvｿｽｿｽu2 - ｿｽﾅ大化ｿｽvｿｽﾉゑｿｽｿｽｿｽﾎ、
ｿｽ像度ｿｽﾖ係ｿｽﾈゑｿｽｿｽfｿｽBｿｽXｿｽvｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽc

ｿｽﾆみゑｿｽｿｽｿｽ 2006/04/10(ｿｽｿｽ) 23:01:58

ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB

ｿｽｿｽﾊ趣ｿｽｿｽﾌは最大化ｿｽEｿｽﾅ擾ｿｽｿｽｿｽｿｽEｿｽﾂゑｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽﾍ使ｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽA
ｿｽeｿｽLｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽRｿｽｿｽｿｽ{ｿｽ{ｿｽbｿｽNｿｽXｿｽAｿｽ{ｿｽ^ｿｽｿｽｿｽﾈどゑｿｽｿｽｿｽﾌ解像度ｿｽﾌ比率ｿｽﾉ搾ｿｽｿｽせｿｽAｿｽｿｽｿｽｿｽｿｽ笊晢ｿｽAXYｿｽｿｽｿｽWｿｽｿｽﾏゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽﾍゑｿｽScreen.Width, Screen.Heightｿｽ@ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ 2006/04/10(ｿｽｿｽ) 23:33:33

ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽ準ｿｽﾆなゑｿｽ像度ｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽiｿｽ痰ｦｿｽｿｽ800x600ｿｽjｿｽｿｽﾅ擾ｿｽｿｽﾉ搾ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽScreen.Width,Heightｿｽｿｽｿｽｿｽ準ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾆの縦ｿｽAｿｽｿｽ
ｿｽｿｽｿｽ黷ｼｿｽｿｽﾌ倍ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
For Each ｿｽ`ｿｽ@In Controls
ｿｽﾆゑｿｽｿｽﾅｿｽｿｽ[ｿｽvｿｽｿｽｿｽﾄ各ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌ大きｿｽｿｽｿｽAｿｽtｿｽHｿｽｿｽｿｽgｿｽｿｽｿｽﾉ指ｿｽｿｽ{ｿｽｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾆ案外ｿｽyｿｽﾉ出ｿｽｿｽｿｽ驍ｩｿｽｿｽB

ｿｽtｿｽｿｽｿｽｿｽ 2006/04/11(ｿｽｿｽ) 08:56:46

ｿｽｿｽｿｽｿｽﾍゑｿｽScreen.Width, Screen.Heightｿｽ@ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽﾍ本ｿｽｿｽﾈゑｿｽResizerｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌ購ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽScreenｿｽEｿｽEｿｽEｿｽｿｽｿｽ邇ｩｿｽﾍで計ｿｽZｿｽｿｽｿｽﾈゑｿｽｿｽﾆ解像度ｿｽｿｽｿｽﾄわかｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽ

ｿｽｿｽ 2006/04/11(ｿｽｿｽ) 09:12:14

> ｿｽeｿｽLｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽRｿｽｿｽｿｽ{ｿｽ{ｿｽbｿｽNｿｽXｿｽAｿｽ{ｿｽ^ｿｽｿｽｿｽﾈどゑｿｽｿｽｿｽﾌ解像度ｿｽﾌ比率ｿｽﾉ搾ｿｽｿｽせｿｽAｿｽｿｽｿｽｿｽｿｽ笊晢ｿｽAXYｿｽｿｽｿｽWｿｽｿｽﾏゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽ邇ｸｿｽ轤ｵｿｽﾄ…ｿｽｿｽｿｽeｿｽﾉゑｿｽｿｽﾄは費ｿｽｿｽﾉ抵ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ厄ｿｽﾉ暦ｿｽｿｽﾄてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ(_orz

Option Explicit
'class ClipControl
'ｿｽPｿｽｿｽｿｽﾉ、ｿｽeｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉ有ｿｽｿｽqｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌ縦ｿｽｿｽｿｽｿｽ等倍ｿｽｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽﾅゑｿｽ
'   ｿｽgｿｽｿｽｿｽｿｽ
'   ｿｽPｿｽ@ｿｽeｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉゑｿｽｿｽﾌクｿｽｿｽｿｽXｿｽﾌイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽX hoge ｿｽｿｽｿｽｿｽ
'   ｿｽQｿｽ@hoge.enClipControls Me ｿｽﾈどとゑｿｽｿｽﾄ、ｿｽeｿｽｿｽｿｽgｿｽｿｽoｿｽ^ｿｽｿｽｿｽｿｽ

Public Event Resize()
Private WithEvents ParentEventForm          As Form
Private ClipControls                        As Collection

Public Sub enClipControls(ByRef ParentForm As Form)
    
    Dim Child                               As Object
    Dim ParentWidth                         As Double
    Dim ParentHeight                        As Double
    
    Set ClipControls = New Collection
    Set ParentEventForm = ParentForm
    
    ParentWidth = ParentForm.ScaleWidth
    ParentHeight = ParentForm.ScaleHeight
    
    For Each Child In ParentForm.Controls
        ClipControls.Add GetSize(Child, ParentWidth, ParentHeight)
    Next
    
End Sub

Public Sub deClipControls()
    
    Set ClipControls = Nothing
    Set ParentEventForm = Nothing
    
End Sub

Private Function GetSize(ByRef Control As Object, ByRef ParentWidth As Double, ByRef ParentHeight As Double) As Variant()
    
    Dim ret(0 To 4)                         As Variant
    
    On Error Resume Next
    Set ret(0) = Control
    ret(1) = Control.Left / ParentWidth
    ret(2) = Control.Top / ParentHeight
    ret(3) = Control.Width / ParentWidth
    ret(4) = Control.Height / ParentHeight
    GetSize = ret
    
End Function

Private Sub ParentEventForm_Resize()
    
    Dim Child                               As Variant
    Dim ParentWidth                         As Double
    Dim ParentHeight                        As Double
    
    If ClipControls.Count > 0 Then
        ParentWidth = ParentEventForm.ScaleWidth
        ParentHeight = ParentEventForm.ScaleHeight
        On Error Resume Next
        For Each Child In ClipControls
            With Child(0)
                .Left = Child(1) * ParentWidth
                .Top = Child(2) * ParentHeight
                .Width = Child(3) * ParentWidth
                .Height = Child(4) * ParentHeight
            End With
        Next
    End If
    
    RaiseEvent Resize
    
End Sub

ｿｽﾊゑｿｽｿｽﾄみゑｿｽ 2006/04/11(ｿｽｿｽ) 16:23:00

ｿｽﾂ具ｿｽｿｽﾉゑｿｽｿｽｿｽﾄ、ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆは途ｿｽｿｽｿｽﾅ解像度ｿｽｿｽｿｽﾏゑｿｽｿｽけｿｽﾅはなゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽｿｽ
ｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽﾅ大化ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌではなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾅ大化ｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽﾇゑｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾔで最大化ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ

ｿｽｿｽｿｽgｿｽﾌコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉ関ゑｿｽｿｽﾄは、ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ大きｿｽｿｽｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽﾆゑｿｽｿｽｿｽｿｽﾌは撰ｿｽｿｽｿｽﾏみなので省暦ｿｽ

ｿｽﾆみゑｿｽｿｽｿｽ 2006/04/13(ｿｽｿｽ) 23:35:19

ｿｽﾔ難ｿｽｿｽxｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽﾅ大化ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ、ｿｽ{ｿｽ^ｿｽｿｽｿｽ窿会ｿｽxｿｽｿｽｿｽﾈどを数値ｿｽﾅ表ｿｽｿｽｿｽｿｽｿｽﾛ、
ｿｽ像度ｿｽﾉゑｿｽｿｽｿｽﾄははみ出ｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽB

ｿｽﾆみゑｿｽｿｽｿｽ 2006/04/13(ｿｽｿｽ) 23:35:54

ｿｽｿｽｿｽa

ｿｽｿｽ試ゑｿｽｿｽﾄみまゑｿｽ

ｿｽﾆみゑｿｽｿｽｿｽ 2006/04/15(ｿｽy) 21:01:43

ｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽﾌソｿｽ[ｿｽXｿｽﾅ確ｿｽFｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.