수다닷컴

폼이름이 않바껴요
Private CName As String
Private Declare Function SetCapture Lib user32 (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib user32 () As Long
Private Declare Function GetCapture Lib user32 () As Long
Private Declare Function SendMessage Lib user32 Alias SendMessageA _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, IParam As Any) As Long
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1
Private Declare Function SetWindowRgn Lib user32 (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Private Declare Function CreateRoundRectRgn Lib gdi32 (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CreateEllipticRgn Lib gdi32 (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
CName = PropBag.ReadProperty(Caption, UserControl.Name)
lblCaption = CName
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty(Caption, CName, Empty)
End Sub

Public Property Get Caption() As String
Caption = CName
End Property

Public Property Let Caption(Str As String)
CName = Str
lblCaption = CName
End Property

Private Sub iBiDrag_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim IngReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
IngReturnValue = SendMessage(Parent.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub

Private Sub Picture1_Click()
Unload Parent
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = Image3.Picture
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (X 0) Or (Y 0) Or (X Picture1.Width) Or (Y Picture1.Height) Then
ReleaseCapture
Picture1.Picture = Image1.Picture
ElseIf GetCapture Picture1.hWnd Then
SetCapture Picture1.hWnd
Picture1.Picture = Image2.Picture
End If
End Sub

Private Sub UserControl_Resize()
On Error Resume Next
iBiDrag.Width = Width - 240
Picture1.Left = Width - 230
iUp.Left = iUpLeft.Width
iUp.Width = Width - iUpLeft.Width - iUpRight.Width
iUpRight.Left = iUpLeft.Width + iUp.Wid iUp.Width
iLeft.Top = iUp.Height
iCenter.Top = iUp.Height
iRight.Top = iUp.Height
iCenter.Left = iUp.Left
iCenter.Width = iUp.Width
iRight.Left = iUpRight.Left
iCenter.Height = Height - iUp.Height - idown.Height
iLeft.Height = Height - iUp.Height - idown.Height
iRight.Height = Height - iUp.Height - idown.Height
idownleft.Top = iUp.Height + iCenter.Height
idown.Top = iUp.Height + iCenter.Height
idownRight.Top = iUp.Height + iCenter.Height
idown.Left = iUp.Left
idown.Width = iUp.Width
idownRight.Left = iRight.Left
End Sub

신청하기