Commit | Line | Data |
62046253 |
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 |