home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Picture_Wo1781558132004.psc / Forms / frmPic.frm < prev    next >
Text File  |  2004-05-03  |  3KB  |  121 lines
  1. VERSION 5.00
  2. Begin VB.Form frmPic 
  3.    Caption         =   "V2 Softwares"
  4.    ClientHeight    =   3600
  5.    ClientLeft      =   3285
  6.    ClientTop       =   2850
  7.    ClientWidth     =   5250
  8.    LinkTopic       =   "Form1"
  9.    MDIChild        =   -1  'True
  10.    ScaleHeight     =   240
  11.    ScaleMode       =   3  'Pixel
  12.    ScaleWidth      =   350
  13.    Begin VB.HScrollBar hScroll 
  14.       Height          =   195
  15.       LargeChange     =   5
  16.       Left            =   150
  17.       Max             =   100
  18.       Min             =   1
  19.       TabIndex        =   3
  20.       Top             =   2310
  21.       Value           =   1
  22.       Visible         =   0   'False
  23.       Width           =   1245
  24.    End
  25.    Begin VB.VScrollBar vScroll 
  26.       Height          =   1245
  27.       LargeChange     =   5
  28.       Left            =   4800
  29.       Max             =   100
  30.       Min             =   1
  31.       TabIndex        =   2
  32.       Top             =   60
  33.       Value           =   1
  34.       Visible         =   0   'False
  35.       Width           =   195
  36.    End
  37.    Begin VB.PictureBox picMain 
  38.       Appearance      =   0  'Flat
  39.       AutoRedraw      =   -1  'True
  40.       AutoSize        =   -1  'True
  41.       BackColor       =   &H80000005&
  42.       ForeColor       =   &H80000008&
  43.       Height          =   2250
  44.       Left            =   150
  45.       Picture         =   "frmPic.frx":0000
  46.       ScaleHeight     =   148
  47.       ScaleMode       =   3  'Pixel
  48.       ScaleWidth      =   307
  49.       TabIndex        =   1
  50.       Top             =   60
  51.       Width           =   4635
  52.    End
  53.    Begin VB.FileListBox PlugFile 
  54.       Height          =   480
  55.       Left            =   3360
  56.       TabIndex        =   0
  57.       Top             =   2700
  58.       Visible         =   0   'False
  59.       Width           =   1245
  60.    End
  61. End
  62. Attribute VB_Name = "frmPic"
  63. Attribute VB_GlobalNameSpace = False
  64. Attribute VB_Creatable = False
  65. Attribute VB_PredeclaredId = True
  66. Attribute VB_Exposed = False
  67. Dim LeftExtra As Long
  68. Dim TopExtra As Long
  69.  
  70.  
  71. Public Sub Form_Resize()
  72.     
  73.     If WindowState = vbMinimized Then Exit Sub
  74.     If ScaleWidth < 100 Or ScaleHeight < 100 Then Exit Sub
  75.     
  76.     If picMain.Width > ScaleWidth Then
  77.         hScroll.Move 3, ScaleHeight - hScroll.Height - 3, ScaleWidth - 6
  78.         hScroll.Visible = True
  79.         GetLeft
  80.     Else
  81.         hScroll.Visible = False
  82.         picMain.Left = (ScaleWidth / 2) - (picMain.ScaleWidth / 2)
  83.     End If
  84.         
  85.     If picMain.Height > ScaleHeight Then
  86.         vScroll.Move ScaleWidth - vScroll.Width - 6, 3, vScroll.Width, ScaleHeight - 6
  87.         vScroll.Visible = True
  88.         picMain.Top = GetTop
  89.     Else
  90.         vScroll.Visible = False
  91.         picMain.Top = (ScaleHeight / 2) - (picMain.ScaleHeight / 2)
  92.     End If
  93. End Sub
  94.  
  95. Private Function GetLeft() As Long
  96.  
  97.     LeftExtra = (picMain.Width - ScaleWidth) * -1
  98.     hScroll.Max = LeftExtra - 30
  99. End Function
  100.  
  101. Private Function GetTop() As Long
  102.     TopExtra = (picMain.Height - ScaleHeight) * -1
  103.     vScroll.Max = TopExtra - 30
  104. End Function
  105.  
  106. Private Sub hScroll_Change()
  107.     hScroll_Scroll
  108. End Sub
  109.  
  110. Private Sub hScroll_Scroll()
  111.     picMain.Left = (LeftExtra + hScroll.Value) + 30
  112. End Sub
  113.  
  114. Private Sub vScroll_Change()
  115.     vScroll_Scroll
  116. End Sub
  117.  
  118. Private Sub vScroll_Scroll()
  119.     picMain.Top = (TopExtra + vScroll.Value) + 30
  120. End Sub
  121.