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
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
|