Current News Archived News Search News Discussion Forum Old Forum Install Programs More Downloads... Troubleshooting Source Code Format Specs. Misc. Information Non-SF Stuff Links Small banner for links to this site: |
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
|