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_Vi175446662004.psc / frmPicView.frm < prev    next >
Text File  |  2004-06-06  |  2KB  |  68 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form frmPicView 
  4.    Caption         =   "Image Viewer"
  5.    ClientHeight    =   4860
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   7050
  9.    Icon            =   "frmPicView.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   324
  12.    ScaleMode       =   3  'Pixel
  13.    ScaleWidth      =   470
  14.    StartUpPosition =   1  'CenterOwner
  15.    Begin VB.CommandButton Command1 
  16.       Caption         =   "Browse"
  17.       Height          =   375
  18.       Left            =   5880
  19.       TabIndex        =   1
  20.       Top             =   3600
  21.       Width           =   975
  22.    End
  23.    Begin Project1.PicControl PC1 
  24.       Height          =   4695
  25.       Left            =   120
  26.       TabIndex        =   0
  27.       Top             =   120
  28.       Width           =   6855
  29.       _ExtentX        =   12091
  30.       _ExtentY        =   8281
  31.       ScrollSpeed     =   10
  32.       Appearance      =   0
  33.       TipTextPicView  =   "Picture size: 100%"
  34.       TipTextMagnifier=   "1.5x magnification"
  35.       Magnify         =   1.5
  36.    End
  37.    Begin MSComDlg.CommonDialog CommonDialog1 
  38.       Left            =   0
  39.       Top             =   1200
  40.       _ExtentX        =   847
  41.       _ExtentY        =   847
  42.       _Version        =   393216
  43.    End
  44. End
  45. Attribute VB_Name = "frmPicView"
  46. Attribute VB_GlobalNameSpace = False
  47. Attribute VB_Creatable = False
  48. Attribute VB_PredeclaredId = True
  49. Attribute VB_Exposed = False
  50. Option Explicit
  51.  
  52. Private Sub Command1_Click()
  53. On Error Resume Next
  54.  
  55. CommonDialog1.Filter = "*.jpg*.bmp*.gif"
  56. CommonDialog1.ShowOpen
  57.     
  58. PC1.Picture = LoadPicture(CommonDialog1.FileName)
  59. End Sub
  60.  
  61. Private Sub Form_Resize()
  62. On Error Resume Next
  63.  
  64. PC1.Width = Me.ScaleWidth - 15
  65. PC1.Height = Me.ScaleHeight - 15
  66. Command1.Left = Me.ScaleWidth - Command1.Width - 13
  67. End Sub
  68.