home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / leadtools / ocx32.lt / NEW1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-03-27  |  5.9 KB  |  195 lines
  1. VERSION 5.00
  2. Begin VB.Form NewForm 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "New"
  5.    ClientHeight    =   1650
  6.    ClientLeft      =   2025
  7.    ClientTop       =   2610
  8.    ClientWidth     =   4365
  9.    Icon            =   "NEW1.frx":0000
  10.    LinkTopic       =   "NewForm"
  11.    LockControls    =   -1  'True
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    PaletteMode     =   1  'UseZOrder
  15.    ScaleHeight     =   1650
  16.    ScaleWidth      =   4365
  17.    ShowInTaskbar   =   0   'False
  18.    Begin VB.CommandButton Command2 
  19.       Cancel          =   -1  'True
  20.       Caption         =   "Cancel"
  21.       BeginProperty Font 
  22.          Name            =   "MS Sans Serif"
  23.          Size            =   8.25
  24.          Charset         =   0
  25.          Weight          =   700
  26.          Underline       =   0   'False
  27.          Italic          =   0   'False
  28.          Strikethrough   =   0   'False
  29.       EndProperty
  30.       Height          =   375
  31.       Left            =   2955
  32.       TabIndex        =   7
  33.       Top             =   600
  34.       Width           =   1200
  35.    End
  36.    Begin VB.CommandButton Command1 
  37.       Caption         =   "OK"
  38.       Default         =   -1  'True
  39.       BeginProperty Font 
  40.          Name            =   "MS Sans Serif"
  41.          Size            =   8.25
  42.          Charset         =   0
  43.          Weight          =   700
  44.          Underline       =   0   'False
  45.          Italic          =   0   'False
  46.          Strikethrough   =   0   'False
  47.       EndProperty
  48.       Height          =   375
  49.       Left            =   2955
  50.       TabIndex        =   6
  51.       Top             =   165
  52.       Width           =   1200
  53.    End
  54.    Begin VB.ComboBox Combo1 
  55.       BeginProperty Font 
  56.          Name            =   "MS Sans Serif"
  57.          Size            =   8.25
  58.          Charset         =   0
  59.          Weight          =   700
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       Height          =   300
  65.       ItemData        =   "NEW1.frx":000C
  66.       Left            =   900
  67.       List            =   "NEW1.frx":0024
  68.       Style           =   2  'Dropdown List
  69.       TabIndex        =   5
  70.       Top             =   1155
  71.       Width           =   1815
  72.    End
  73.    Begin VB.TextBox Text2 
  74.       BeginProperty Font 
  75.          Name            =   "MS Sans Serif"
  76.          Size            =   8.25
  77.          Charset         =   0
  78.          Weight          =   700
  79.          Underline       =   0   'False
  80.          Italic          =   0   'False
  81.          Strikethrough   =   0   'False
  82.       EndProperty
  83.       Height          =   285
  84.       Left            =   900
  85.       TabIndex        =   3
  86.       Text            =   "Text2"
  87.       Top             =   675
  88.       Width           =   735
  89.    End
  90.    Begin VB.TextBox Text1 
  91.       BeginProperty Font 
  92.          Name            =   "MS Sans Serif"
  93.          Size            =   8.25
  94.          Charset         =   0
  95.          Weight          =   700
  96.          Underline       =   0   'False
  97.          Italic          =   0   'False
  98.          Strikethrough   =   0   'False
  99.       EndProperty
  100.       Height          =   285
  101.       Left            =   900
  102.       TabIndex        =   1
  103.       Text            =   "Text1"
  104.       Top             =   195
  105.       Width           =   735
  106.    End
  107.    Begin VB.Label Label3 
  108.       Caption         =   "&Format"
  109.       BeginProperty Font 
  110.          Name            =   "MS Sans Serif"
  111.          Size            =   8.25
  112.          Charset         =   0
  113.          Weight          =   700
  114.          Underline       =   0   'False
  115.          Italic          =   0   'False
  116.          Strikethrough   =   0   'False
  117.       EndProperty
  118.       Height          =   255
  119.       Left            =   150
  120.       TabIndex        =   4
  121.       Top             =   1185
  122.       Width           =   720
  123.    End
  124.    Begin VB.Label Label2 
  125.       Caption         =   "&Height"
  126.       BeginProperty Font 
  127.          Name            =   "MS Sans Serif"
  128.          Size            =   8.25
  129.          Charset         =   0
  130.          Weight          =   700
  131.          Underline       =   0   'False
  132.          Italic          =   0   'False
  133.          Strikethrough   =   0   'False
  134.       EndProperty
  135.       Height          =   255
  136.       Left            =   150
  137.       TabIndex        =   2
  138.       Top             =   705
  139.       Width           =   630
  140.    End
  141.    Begin VB.Label Label1 
  142.       Caption         =   "&Width"
  143.       BeginProperty Font 
  144.          Name            =   "MS Sans Serif"
  145.          Size            =   8.25
  146.          Charset         =   0
  147.          Weight          =   700
  148.          Underline       =   0   'False
  149.          Italic          =   0   'False
  150.          Strikethrough   =   0   'False
  151.       EndProperty
  152.       Height          =   255
  153.       Left            =   165
  154.       TabIndex        =   0
  155.       Top             =   240
  156.       Width           =   600
  157.    End
  158. Attribute VB_Name = "NewForm"
  159. Attribute VB_GlobalNameSpace = False
  160. Attribute VB_Creatable = False
  161. Attribute VB_PredeclaredId = True
  162. Attribute VB_Exposed = False
  163. Dim NewWidth As Integer
  164. Dim NewHeight As Integer
  165. Dim NewBitsPerPixel As Integer
  166. Dim fUserGo As Boolean
  167. Private Sub Command1_Click()
  168.     fUserGo = True
  169.     NewWidth = CInt(Text1)
  170.     NewHeight = CInt(Text2)
  171.     NewBitsPerPixel = Combo1.ItemData(Combo1.ListIndex)
  172.     Hide
  173. End Sub
  174. Private Sub Command2_Click()
  175.     fUserGo = False
  176.     Hide
  177. End Sub
  178. Private Sub Form_Load()
  179.     Text1 = CStr(640)
  180.     Text2 = CStr(480)
  181.     Combo1.ListIndex = 0
  182. End Sub
  183. Public Function GetWidth() As Integer
  184.     GetWidth = NewWidth
  185. End Function
  186. Public Function GetHeight() As Integer
  187.     GetHeight = NewHeight
  188. End Function
  189. Public Function GetBitsPerPixel() As Integer
  190.     GetBitsPerPixel = NewBitsPerPixel
  191. End Function
  192. Public Function UserResult() As Boolean
  193.     UserResult = fUserGo
  194. End Function
  195.