home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Video_Grab213908122009.psc / frmLang.frm < prev    next >
Text File  |  2009-01-01  |  2KB  |  69 lines
  1. VERSION 5.00
  2. Begin VB.Form frmLang 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Video Grabber - [ Language ]"
  6.    ClientHeight    =   1185
  7.    ClientLeft      =   45
  8.    ClientTop       =   435
  9.    ClientWidth     =   4770
  10.    BeginProperty Font 
  11.       Name            =   "Verdana"
  12.       Size            =   8.25
  13.       Charset         =   162
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "frmLang.frx":0000
  20.    LinkTopic       =   "Form2"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    Moveable        =   0   'False
  24.    ScaleHeight     =   1185
  25.    ScaleWidth      =   4770
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin VB.CommandButton Command1 
  28.       Caption         =   "Save"
  29.       Height          =   390
  30.       Left            =   3165
  31.       TabIndex        =   2
  32.       Top             =   615
  33.       Width           =   1470
  34.    End
  35.    Begin VB.ComboBox Combo1 
  36.       Height          =   315
  37.       ItemData        =   "frmLang.frx":030A
  38.       Left            =   1260
  39.       List            =   "frmLang.frx":030C
  40.       Style           =   2  'Dropdown List
  41.       TabIndex        =   1
  42.       Top             =   180
  43.       Width           =   3405
  44.    End
  45.    Begin VB.Label Label1 
  46.       Caption         =   "Language :"
  47.       Height          =   315
  48.       Left            =   195
  49.       TabIndex        =   0
  50.       Top             =   195
  51.       Width           =   1200
  52.    End
  53. End
  54. Attribute VB_Name = "frmLang"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. Private Sub Command1_Click()
  60.     saveLangData frmLang.Combo1
  61.     MsgBox langVar(0).strFull(33), vbOKOnly + vbInformation + vbApplicationModal, "Video Grabber"
  62.     Unload Me
  63. End Sub
  64.  
  65. Private Sub Form_Load()
  66.     InitCommonControlsVB
  67.     loadLangList frmLang.Combo1
  68. End Sub
  69.