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 EditTItem \r
3 BorderStyle = 3 'Fixed Dialog\r
4 ClientHeight = 2535\r
5 ClientLeft = 1890\r
6 ClientTop = 2145\r
7 ClientWidth = 5535\r
8 Height = 2940\r
9 Icon = "EditTItem.frx":0000\r
10 Left = 1830\r
11 LinkTopic = "Form1"\r
12 MaxButton = 0 'False\r
13 MinButton = 0 'False\r
14 ScaleHeight = 2535\r
15 ScaleWidth = 5535\r
16 ShowInTaskbar = 0 'False\r
17 Top = 1800\r
18 Width = 5655\r
19 Begin VB.CommandButton cmdBrowse \r
20 Caption = "&Browse..."\r
21 Height = 285\r
22 Left = 4560\r
23 TabIndex = 2\r
24 Top = 1680\r
25 Width = 855\r
26 End\r
27 Begin VB.CommandButton cmdCancel \r
28 Cancel = -1 'True\r
29 Caption = "&Cancel"\r
30 Height = 375\r
31 Left = 3120\r
32 TabIndex = 4\r
33 Top = 2040\r
34 Width = 1455\r
35 End\r
36 Begin VB.CommandButton cmdOK \r
37 Caption = "O&K"\r
38 Default = -1 'True\r
39 Height = 375\r
40 Left = 960\r
41 TabIndex = 3\r
42 Top = 2040\r
43 Width = 1455\r
44 End\r
45 Begin VB.TextBox txtCommand \r
46 Height = 285\r
47 Left = 120\r
48 TabIndex = 1\r
49 Top = 1680\r
50 Width = 4335\r
51 End\r
52 Begin VB.TextBox txtName \r
53 Height = 285\r
54 Left = 120\r
55 TabIndex = 0\r
56 Top = 480\r
57 Width = 5295\r
58 End\r
59 Begin VB.Label Label1 \r
60 Caption = "Title: (Use a && before a letter to make it the key for the menu option. Use &&&& to display a &&.)"\r
61 Height = 390\r
62 Left = 120\r
63 TabIndex = 5\r
64 Top = 0\r
65 Width = 5295\r
66 WordWrap = -1 'True\r
67 End\r
68 Begin VB.Label Label2 \r
69 Caption = $"EditTItem.frx":000C\r
70 Height = 870\r
71 Left = 120\r
72 TabIndex = 6\r
73 Top = 840\r
74 Width = 5295\r
75 WordWrap = -1 'True\r
76 End\r
77 End\r
78 Attribute VB_Name = "EditTItem"\r
79 Attribute VB_Creatable = False\r
80 Attribute VB_Exposed = False\r
81 Option Explicit\r
82 \r
83 Dim ClickedOK As Boolean, Finished As Boolean\r
84 Function EditItem(FormCaption As String, cName As String, cCommand As String) As String\r
85 Left = ToolList.Left + 330\r
86 If Left < 0 Then Left = 0\r
87 If Left + Width > Screen.Width Then Left = Screen.Width - Width\r
88 Top = ToolList.Top + 315\r
89 If Top < 0 Then Top = 0\r
90 If Top + Height > Screen.Height Then Top = Screen.Height - Height\r
91 Caption = FormCaption\r
92 txtName = cName\r
93 txtCommand = cCommand\r
94 Finished = False\r
95 ClickedOK = False\r
96 Show 1\r
97 If ClickedOK = True Then\r
98 EditItem = txtName + vbCrLf + txtCommand\r
99 Else\r
100 EditItem = cName + vbCrLf + cCommand\r
101 End If\r
102 Finished = True\r
103 Unload Me\r
104 End Function\r
105 Private Sub cmdBrowse_Click()\r
106 Dim OldFileName As String, OldPath As String\r
107 CD.Flags = &H1000 Or &H4 Or &H2\r
108 CD.Filter = "Programs (*.exe;*.com;*.bat)|*.exe;*.com;*.bat|All Files (*.*)|*.*"\r
109 OldFileName = CD.FileName\r
110 OldPath = CurDir\r
111 If Mid(App.Path, 2, 1) = ":" Then\r
112 ChDrive Left(App.Path, 1)\r
113 ChDir Left(App.Path, 2) + "\"\r
114 End If\r
115 CD.FileName = ""\r
116 CD.hwndOwner = hWnd\r
117 If ShowOpen(CD) = False Then GoTo Cancel\r
118 txtCommand = Chr(34) + CD.FileName + Chr(34)\r
119 Cancel:\r
120 CD.FileName = OldFileName\r
121 If Mid(OldPath, 2, 1) = ":" Then ChDrive Left(OldPath, 1)\r
122 ChDir OldPath\r
123 End Sub\r
124 Private Sub cmdCancel_Click()\r
125 Hide\r
126 End Sub\r
127 Private Sub cmdOK_Click()\r
128 ClickedOK = True\r
129 Hide\r
130 End Sub\r
131 Private Sub Form_Unload(Cancel As Integer)\r
132 If Finished = False Then\r
133 Cancel = True\r
134 Hide\r
135 End If\r
136 End Sub\r
|