home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / With_Mouse2147363212009.psc / EXAMPLE / Form1.frm next >
Text File  |  2001-01-01  |  7KB  |  247 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   45
  6.    ClientTop       =   315
  7.    ClientWidth     =   4560
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   4020
  12.    ScaleWidth      =   4560
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.PictureBox SHOWPicture 
  16.       AutoRedraw      =   -1  'True
  17.       AutoSize        =   -1  'True
  18.       Height          =   1980
  19.       Left            =   720
  20.       ScaleHeight     =   1920
  21.       ScaleWidth      =   1920
  22.       TabIndex        =   0
  23.       Top             =   720
  24.       Width           =   1980
  25.    End
  26.    Begin VB.Label GRPPicture 
  27.       AutoSize        =   -1  'True
  28.       BackColor       =   &H000000FF&
  29.       BorderStyle     =   1  'Fixed Single
  30.       Height          =   1095
  31.       Index           =   0
  32.       Left            =   1320
  33.       TabIndex        =   1
  34.       Top             =   13000
  35.       Width           =   1065
  36.    End
  37. End
  38. Attribute VB_Name = "Form1"
  39. Attribute VB_GlobalNameSpace = False
  40. Attribute VB_Creatable = False
  41. Attribute VB_PredeclaredId = True
  42. Attribute VB_Exposed = False
  43. Option Explicit
  44. Dim i As Integer
  45. Dim XGrip(2) As Long, YGrip(2) As Long
  46. Dim bMoving As Boolean, bSizing As Boolean
  47. Dim xStart As Long, yStart As Long
  48. Const GripSize = 90
  49. Private Sub MoveGrips()
  50.    On Error Resume Next
  51.    XGrip(0) = SHOWPicture.Left - GripSize
  52.    XGrip(1) = SHOWPicture.Left + SHOWPicture.Width / 2 - GripSize / 2
  53.    XGrip(2) = SHOWPicture.Left + SHOWPicture.Width
  54.    YGrip(0) = SHOWPicture.Top - GripSize
  55.    YGrip(1) = SHOWPicture.Top + SHOWPicture.Height / 2 - GripSize / 2
  56.    YGrip(2) = SHOWPicture.Top + SHOWPicture.Height
  57.    GRPPicture(0).Move XGrip(0), YGrip(0)
  58.    GRPPicture(1).Move XGrip(0), YGrip(1)
  59.    GRPPicture(2).Move XGrip(0), YGrip(2)
  60.    GRPPicture(3).Move XGrip(1), YGrip(2)
  61.    GRPPicture(4).Move XGrip(2), YGrip(2)
  62.    GRPPicture(5).Move XGrip(2), YGrip(1)
  63.    GRPPicture(6).Move XGrip(2), YGrip(0)
  64.    GRPPicture(7).Move XGrip(1), YGrip(0)
  65. End Sub
  66. Private Sub ShowGrip(bShow As Boolean)
  67.    On Error Resume Next
  68.    Dim i As Integer
  69.    SHOWPicture.Move 100, 100, 600, 600
  70.    SHOWPicture.Visible = bShow
  71.    For i = 0 To 7
  72.       GRPPicture(i).Visible = bShow
  73.    Next i
  74.   SHOWPicture.Height = 1900
  75.  SHOWPicture.Width = 1900
  76.  MoveGrips
  77. End Sub
  78.  
  79. Private Sub InitGrip()
  80.    On Error Resume Next
  81.    Dim i As Integer
  82.    GRPPicture(0).Width = GripSize
  83.    GRPPicture(0).Height = GripSize
  84.    For i = 1 To 7
  85.       Load GRPPicture(i)
  86.       GRPPicture(i).MousePointer = i + 4 * Int((9 - i) / 4)
  87.    Next i
  88.    GRPPicture(0).MousePointer = 8
  89.    ShowGrip False
  90. End Sub
  91.  
  92. Private Sub Command2_Click()
  93.  
  94. End Sub
  95.  
  96. Private Sub Form_Activate()
  97.  AddINFORM SHOWPicture, "Qkby  u;k   [kksyks  j[kks caa| djkks", Form1
  98. End Sub
  99.  
  100. Private Sub Form_Load()
  101.  On Error Resume Next
  102.  
  103.  
  104.   
  105.  
  106.  
  107. SHOWPicture.Picture = LoadPicture(App.Path & "\G-1.JPG")
  108.  
  109.  
  110. InitGrip
  111. picStrech
  112. ShowGrip True
  113.  
  114. End Sub
  115.  
  116.  
  117. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  118.   Dim lft As Long, tp As Long
  119.       For i = 0 To 7
  120.  GRPPicture(i).Visible = False
  121. Next i
  122. End Sub
  123.  
  124. Private Sub GRPPicture_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  125.     On Error Resume Next
  126.    bSizing = False
  127.    SHOWPicture.Enabled = True
  128.  
  129. End Sub
  130. Private Sub SHOWPicture_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  131.    On Error Resume Next
  132.   Dim lft As Long, tp As Long
  133.       For i = 0 To 7
  134.  GRPPicture(i).Visible = True
  135. Next i
  136.    If Button = vbLeftButton Then
  137.       bMoving = True
  138.       xStart = X: yStart = Y
  139.       SHOWPicture.MousePointer = 5
  140. End If
  141. End Sub
  142.  
  143. Private Sub SHOWPicture_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  144.    On Error Resume Next
  145.    Dim lft As Long, tp As Long
  146.    
  147.    If bMoving Then
  148.       lft = SHOWPicture.Left + X - xStart
  149.       tp = SHOWPicture.Top + Y - yStart
  150.       If lft <= 0 Then lft = 0
  151.       If tp <= 0 Then tp = 0
  152.       
  153.       SHOWPicture.Move lft, tp
  154.       MoveGrips
  155.    End If
  156. End Sub
  157. Private Sub GRPPicture_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  158.     On Error Resume Next
  159.    
  160.    
  161.    If Button = vbLeftButton Then
  162.       bSizing = True
  163.       xStart = X: yStart = Y
  164.       SHOWPicture.Enabled = False
  165.    
  166.    End If
  167. End Sub
  168.  
  169. Private Sub GRPPicture_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  170.     On Error Resume Next
  171.    On Error Resume Next
  172.    Dim lft As Long, tp As Long, wdt As Long, hgt As Long
  173.    If bSizing Then
  174.      
  175. picStrech
  176.  
  177.       
  178.       Select Case Index
  179.          Case 0
  180.               lft = SHOWPicture.Left + X - xStart
  181.               tp = SHOWPicture.Top + Y - yStart
  182.               wdt = SHOWPicture.Width - X + xStart
  183.               hgt = SHOWPicture.Height - Y + yStart
  184.          Case 1
  185.               lft = SHOWPicture.Left + X - xStart
  186.               tp = SHOWPicture.Top
  187.               wdt = SHOWPicture.Width - X + xStart
  188.               hgt = SHOWPicture.Height
  189.          Case 2
  190.               lft = SHOWPicture.Left + X - xStart
  191.               tp = SHOWPicture.Top
  192.               wdt = SHOWPicture.Width - X + xStart
  193.               hgt = SHOWPicture.Height + Y - yStart
  194.          Case 3
  195.               lft = SHOWPicture.Left
  196.               tp = SHOWPicture.Top
  197.               wdt = SHOWPicture.Width
  198.               hgt = SHOWPicture.Height + Y - yStart
  199.          Case 4
  200.               lft = SHOWPicture.Left
  201.               tp = SHOWPicture.Top
  202.               wdt = SHOWPicture.Width + X - xStart
  203.               hgt = SHOWPicture.Height + Y - yStart
  204.          Case 5
  205.               lft = SHOWPicture.Left
  206.               tp = SHOWPicture.Top
  207.               wdt = SHOWPicture.Width + X - xStart
  208.               hgt = SHOWPicture.Height
  209.          Case 6
  210.               lft = SHOWPicture.Left
  211.               tp = SHOWPicture.Top + Y - yStart
  212.               wdt = SHOWPicture.Width + X - xStart
  213.               hgt = SHOWPicture.Height - Y + yStart
  214.          Case 7
  215.               lft = SHOWPicture.Left
  216.               tp = SHOWPicture.Top + Y - yStart
  217.               wdt = SHOWPicture.Width
  218.               hgt = SHOWPicture.Height - Y + yStart
  219.    
  220.       End Select
  221.       
  222.       SHOWPicture.Move lft, tp, wdt, hgt
  223.       MoveGrips
  224.    
  225.    End If
  226. End Sub
  227. Private Sub SHOWPicture_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  228.     On Error Resume Next
  229.    bMoving = False
  230.    SHOWPicture.MousePointer = 0
  231.  
  232. End Sub
  233. Sub picStrech()
  234.     On Error Resume Next
  235.     SHOWPicture.ScaleMode = 3
  236.     SHOWPicture.AutoRedraw = True
  237.     SHOWPicture.PaintPicture SHOWPicture.Picture, _
  238.         0, 0, SHOWPicture.ScaleWidth, SHOWPicture.ScaleHeight, _
  239.         0, 0, _
  240.         SHOWPicture.Picture.Width / 26.46, _
  241.         SHOWPicture.Picture.Height / 26.46
  242.    End Sub
  243.  
  244. Private Sub lblShape_Click()
  245.  
  246. End Sub
  247.