ChLCID.frm

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