home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / grafik / ico2bm / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-02-22  |  3.5 KB  |  125 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "ICO 2 BMP"
  4.    ClientHeight    =   1440
  5.    ClientLeft      =   3195
  6.    ClientTop       =   3165
  7.    ClientWidth     =   3435
  8.    Height          =   2130
  9.    Icon            =   FORM1.FRX:0000
  10.    Left            =   3135
  11.    LinkTopic       =   "Form1"
  12.    Picture         =   FORM1.FRX:0302
  13.    ScaleHeight     =   1440
  14.    ScaleWidth      =   3435
  15.    Top             =   2535
  16.    Width           =   3555
  17.    Begin PictureBox Picture1 
  18.       BorderStyle     =   0  'None
  19.       Height          =   615
  20.       Left            =   1800
  21.       ScaleHeight     =   615
  22.       ScaleWidth      =   975
  23.       TabIndex        =   3
  24.       Top             =   120
  25.       Width           =   975
  26.    End
  27.    Begin CommandButton Command3 
  28.       Caption         =   "Exit"
  29.       Height          =   495
  30.       Left            =   0
  31.       TabIndex        =   2
  32.       Top             =   960
  33.       Width           =   1335
  34.    End
  35.    Begin CommandButton Command2 
  36.       Caption         =   "Save As "
  37.       Enabled         =   0   'False
  38.       Height          =   495
  39.       Left            =   0
  40.       TabIndex        =   1
  41.       Top             =   480
  42.       Width           =   1335
  43.    End
  44.    Begin CommandButton Command1 
  45.       Caption         =   "Open File"
  46.       Height          =   495
  47.       Left            =   0
  48.       TabIndex        =   0
  49.       Top             =   0
  50.       Width           =   1335
  51.    End
  52.    Begin CommonDialog CMDialog1 
  53.       Filter          =   "Icons (*.ico)  | *.ico"
  54.       Left            =   1800
  55.       Top             =   960
  56.    End
  57.    Begin Menu File 
  58.       Caption         =   "File"
  59.       Begin Menu mnuFile 
  60.          Caption         =   "Open"
  61.          Index           =   1
  62.       End
  63.       Begin Menu mnuFile 
  64.          Caption         =   "Save As"
  65.          Enabled         =   0   'False
  66.          Index           =   2
  67.       End
  68.       Begin Menu mnuFile 
  69.          Caption         =   "Exit"
  70.          Index           =   3
  71.       End
  72.    End
  73.    Begin Menu About 
  74.       Caption         =   "About"
  75.    End
  76. Option Explicit
  77. Sub About_Click ()
  78. frmAbout.Show
  79. End Sub
  80. Sub Command1_Click ()
  81. mnuFile_Click (1)
  82. End Sub
  83. Sub Command2_Click ()
  84. mnuFile_Click (2)
  85. End Sub
  86. Sub Command3_Click ()
  87. mnuFile_Click (3)
  88. End Sub
  89. Sub Form_Load ()
  90. '    Command1_Click
  91. End Sub
  92. Sub mnuFile_Click (Index As Integer)
  93. Select Case Index
  94.     Case 1
  95.     CMDialog1.DialogTitle = "Open File"
  96.     CMDialog1.Filter = "Icons (*.ico) | *.ico |Bitmaps (*.bmp) | *.bmp"
  97.     CMDialog1.Action = 1
  98.     Picture1.AutoSize = -1
  99.     Picture1.Picture = LoadPicture(CMDialog1.Filename)
  100.     If CMDialog1.Filename <> "" Then
  101.         mnuFile(2).Enabled = True
  102.         Command2.Enabled = True
  103.     End If
  104.     Case 2
  105.     Dim pictype$
  106.     pictype$ = LCase(Right(CMDialog1.Filename, 3))
  107.     Select Case pictype$
  108.     Case "ico"
  109.         CMDialog1.Filename = Left(CMDialog1.Filename, (Len(CMDialog1.Filename) - 3)) + "bmp"
  110.         CMDialog1.DialogTitle = "Save As Picture File"
  111.         CMDialog1.Filter = "Picture (*.BMP) | *.bmp"
  112.         CMDialog1.DefaultExt = ".bmp"
  113.     Case "bmp"
  114.         CMDialog1.Filename = Left(CMDialog1.Filename, (Len(CMDialog1.Filename) - 3)) + "ico"
  115.         CMDialog1.DialogTitle = "Save As Icon File"
  116.         CMDialog1.Filter = "Icon (*.ico) | *.ico"
  117.         CMDialog1.DefaultExt = ".ico"
  118.     End Select
  119.     CMDialog1.Action = 2
  120.     SavePicture Picture1.Image, CMDialog1.Filename
  121.     Case 3
  122.     End
  123. End Select
  124. End Sub
  125.