ChLCID.frm

   1 VERSION 4.00
   2 Begin VB.Form ChLCID
   3    BorderStyle     =   3  'Fixed Dialog
   4    Caption         =   "Changing Locale ID..."
   5    ClientHeight    =   1335
   6    ClientLeft      =   2670
   7    ClientTop       =   3180
   8    ClientWidth     =   3615
   9    Height          =   1740
  10    Icon            =   "ChLCID.frx":0000
  11    Left            =   2610
  12    LinkTopic       =   "Form1"
  13    MaxButton       =   0   'False
  14    MinButton       =   0   'False
  15    ScaleHeight     =   1335
  16    ScaleWidth      =   3615
  17    ShowInTaskbar   =   0   'False
  18    Top             =   2835
  19    Width           =   3735
  20    Begin VB.CommandButton Command2
  21       Cancel          =   -1  'True
  22       Caption         =   "&Cancel"
  23       Height          =   375
  24       Left            =   1920
  25       TabIndex        =   3
  26       Top             =   840
  27       Width           =   1335
  28    End
  29    Begin VB.CommandButton Command1
  30       Caption         =   "O&K"
  31       Default         =   -1  'True
  32       Height          =   375
  33       Left            =   360
  34       TabIndex        =   2
  35       Top             =   840
  36       Width           =   1335
  37    End
  38    Begin VB.TextBox Text1
  39       Height          =   285
  40       Left            =   120
  41       TabIndex        =   1
  42       Text            =   "0"
  43       Top             =   480
  44       Width           =   1215
  45    End
  46    Begin VB.Label Label1
  47       AutoSize        =   -1  'True
  48       Caption         =   "Type in the new locale ID for the file(s) below."
  49       Height          =   195
  50       Left            =   120
  51       TabIndex        =   0
  52       Top             =   120
  53       Width           =   3225
  54    End
  55 End
  56 Attribute VB_Name = "ChLCID"
  57 Attribute VB_Creatable = False
  58 Attribute VB_Exposed = False
  59 Option Explicit
  60 Private Sub Command1_Click()
  61 MpqEx.ChangeLCID Text1
  62 Unload Me
  63 End Sub
  64 Private Sub Command2_Click()
  65 Unload Me
  66 End Sub
  67 Private Sub Form_Load()
  68 Left = MpqEx.Left + 330 * 2
  69 If Left < 0 Then Left = 0
  70 If Left + Width > Screen.Width Then Left = Screen.Width - Width
  71 Top = MpqEx.Top + 315 * 2
  72 If Top < 0 Then Top = 0
  73 If Top + Height > Screen.Height Then Top = Screen.Height - Height
  74 End Sub
  75 Private Sub Text1_KeyPress(KeyAscii As Integer)
  76 Dim NewValue As Long
  77 If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> Asc("-") Then KeyAscii = 0
  78 On Error GoTo TooBig
  79 If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = Asc("-") Then NewValue = CLng(Text1 + Chr(KeyAscii))
  80 On Error GoTo 0
  81 Exit Sub
  82 TooBig:
  83 KeyAscii = 0
  84 End Sub
  85 Private Sub Text1_LostFocus()
  86 If Text1 = "" Then Text1 = 0
  87 End Sub