Skip to content

Commit 5ef3f93

Browse files
fafalonefafalone
authored
Most recent public releases of VB6 versions
1 parent 2deac34 commit 5ef3f93

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

51 files changed

+58541
-0
lines changed

‎VB6/ucShellBrowse112/Demo/Form1.frm‎

Lines changed: 828 additions & 0 deletions
Large diffs are not rendered by default.

‎VB6/ucShellBrowse112/Demo/Form1.frx‎

3.56 KB
Binary file not shown.

‎VB6/ucShellBrowse112/Demo/ICO_UP32B.ico‎

14 KB
Binary file not shown.

‎VB6/ucShellBrowse112/Demo/ShellBrowseDemo.vbp‎

Lines changed: 46 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,46 @@
1+
Type=Exe
2+
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\Windows\SysWOW64\stdole2.tlb#OLE Automation
3+
Reference=*\G{F9015E81-CAAC-45C0-94E8-42B7DA5D7558}#4.7#0#..\..\..\..\Windows\SysWow64\oleexp.tlb#OLEEXP - Modern Shell Interfaces for VB6, v4.7
4+
UserControl=..\ucShellBrowse.ctl
5+
Form=Form1.frm
6+
Form=frmDirOnly.frm
7+
ResFile32="..\resDemo.RES"
8+
IconForm="Form1"
9+
Startup="Form1"
10+
HelpFile=""
11+
Title="ShellBrowseDemo"
12+
ExeName32="ShellBrowse-v111-RC1-Std01.exe"
13+
Command32=""
14+
Name="ShellBrowseDemo"
15+
HelpContextID="0"
16+
CompatibleMode="0"
17+
MajorVer=11
18+
MinorVer=1
19+
RevisionVer=531
20+
AutoIncrementVer=1
21+
ServerSupportFiles=0
22+
VersionComments="Demo project for ucShellBrowse control."
23+
VersionCompanyName="Fafalonian Productions"
24+
VersionLegalCopyright="(c) 2015-2022"
25+
VersionProductName="ShellBrowseDemo"
26+
CompilationType=0
27+
OptimizationType=0
28+
FavorPentiumPro(tm)=0
29+
CodeViewDebugInfo=0
30+
NoAliasing=0
31+
BoundsCheck=0
32+
OverflowCheck=0
33+
FlPointCheck=0
34+
FDIVCheck=0
35+
UnroundedFP=0
36+
StartMode=0
37+
Unattended=0
38+
Retained=0
39+
ThreadPerObject=0
40+
MaxNumberOfThreads=1
41+
42+
[Rubberduck]
43+
ProjectId=b573fd0d-46aa-4c6d-8b58-fe862a55a59c
44+
45+
[CodeSMART]
46+
Task_UID=17_12_18_05_54_01

‎VB6/ucShellBrowse112/Demo/frmDirOnly.frm‎

Lines changed: 110 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,110 @@
1+
VERSION 5.00
2+
Begin VB.Form frmDirOnly
3+
BorderStyle = 1 'Fixed Single
4+
Caption = "Directory Dropdown Only"
5+
ClientHeight = 4395
6+
ClientLeft = 45
7+
ClientTop = 375
8+
ClientWidth = 6000
9+
BeginProperty Font
10+
Name = "Tahoma"
11+
Size = 8.25
12+
Charset = 0
13+
Weight = 400
14+
Underline = 0 'False
15+
Italic = 0 'False
16+
Strikethrough = 0 'False
17+
EndProperty
18+
LinkTopic = "Form2"
19+
MaxButton = 0 'False
20+
MinButton = 0 'False
21+
ScaleHeight = 4395
22+
ScaleWidth = 6000
23+
StartUpPosition = 1 'CenterOwner
24+
Begin ShellBrowseDemo.ucShellBrowse ucShellBrowse2
25+
Height = 630
26+
Left = 45
27+
TabIndex = 4
28+
Top = 945
29+
Width = 5715
30+
_ExtentX = 10081
31+
_ExtentY = 1111
32+
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
33+
Name = "Tahoma"
34+
Size = 8.25
35+
Charset = 0
36+
Weight = 400
37+
Underline = 0 'False
38+
Italic = 0 'False
39+
Strikethrough = 0 'False
40+
EndProperty
41+
ControlType = 4
42+
GroupSubsetLinkText= ""
43+
ViewButton = 0 'False
44+
DetailsPane = 0 'False
45+
SimpleSelect = 0 'False
46+
End
47+
Begin VB.CommandButton Command1
48+
Caption = "Test"
49+
Height = 360
50+
Left = 75
51+
TabIndex = 3
52+
Top = 45
53+
Width = 990
54+
End
55+
Begin VB.ListBox List1
56+
Height = 1620
57+
Left = 30
58+
TabIndex = 2
59+
Top = 2685
60+
Width = 5925
61+
End
62+
Begin ShellBrowseDemo.ucShellBrowse ucShellBrowse1
63+
Height = 540
64+
Left = 120
65+
TabIndex = 0
66+
Top = 435
67+
Width = 5655
68+
_ExtentX = 9975
69+
_ExtentY = 953
70+
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
71+
Name = "Tahoma"
72+
Size = 8.25
73+
Charset = 0
74+
Weight = 400
75+
Underline = 0 'False
76+
Italic = 0 'False
77+
Strikethrough = 0 'False
78+
EndProperty
79+
ControlType = 1
80+
ComboType = 2
81+
GroupSubsetLinkText= ""
82+
DetailsPane = 0 'False
83+
ComboCanEdit = 0 'False
84+
SimpleSelect = 0 'False
85+
End
86+
Begin VB.Label Label1
87+
AutoSize = -1 'True
88+
BackStyle = 0 'Transparent
89+
Caption = "Events"
90+
Height = 195
91+
Left = 60
92+
TabIndex = 1
93+
Top = 2445
94+
Width = 495
95+
End
96+
End
97+
Attribute VB_Name = "frmDirOnly"
98+
Attribute VB_GlobalNameSpace = False
99+
Attribute VB_Creatable = False
100+
Attribute VB_PredeclaredId = True
101+
Attribute VB_Exposed = False
102+
Option Explicit
103+
104+
Private Sub Command1_Click()
105+
End Sub
106+
107+
Private Sub ucShellBrowse1_DirectoryChanged(ByVal sFullPath As String, siItem As oleexp.IShellItem, pidlFQ As Long)
108+
List1.AddItem "Directory changed to " & sFullPath
109+
End Sub
110+

‎VB6/ucShellBrowse112/Demo/fwd32.ico‎

2.19 KB
Binary file not shown.

‎VB6/ucShellBrowse112/Demo/jm1632.ico‎

1.12 KB
Binary file not shown.

‎VB6/ucShellBrowse112/Demo/search1632.ico‎

1.12 KB
Binary file not shown.

‎VB6/ucShellBrowse112/Demo/zip1632.ico‎

1.12 KB
Binary file not shown.

‎VB6/ucShellBrowse112/Demo2/Form1.frm‎

Lines changed: 56 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,56 @@
1+
VERSION 5.00
2+
Begin VB.Form Form1
3+
BorderStyle = 1 'Fixed Single
4+
Caption = "ucShellBrowse Simple Use"
5+
ClientHeight = 2850
6+
ClientLeft = 45
7+
ClientTop = 375
8+
ClientWidth = 3885
9+
BeginProperty Font
10+
Name = "Tahoma"
11+
Size = 8.25
12+
Charset = 0
13+
Weight = 400
14+
Underline = 0 'False
15+
Italic = 0 'False
16+
Strikethrough = 0 'False
17+
EndProperty
18+
LinkTopic = "Form1"
19+
MaxButton = 0 'False
20+
MinButton = 0 'False
21+
ScaleHeight = 2850
22+
ScaleWidth = 3885
23+
StartUpPosition = 3 'Windows Default
24+
Begin ShellBrowseDemoMini.ucShellBrowse ucShellBrowse1
25+
Height = 2730
26+
Left = 60
27+
TabIndex = 0
28+
Top = 15
29+
Width = 3780
30+
_ExtentX = 6668
31+
_ExtentY = 4815
32+
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
33+
Name = "Tahoma"
34+
Size = 8.25
35+
Charset = 0
36+
Weight = 400
37+
Underline = 0 'False
38+
Italic = 0 'False
39+
Strikethrough = 0 'False
40+
EndProperty
41+
ComboType = 2
42+
DefaultColumns = ""
43+
StatusSinglePanel= -1 'True
44+
ViewButton = 0 'False
45+
LockColumns = 2
46+
HideColumnHeader= -1 'True
47+
ComboCanEdit = 0 'False
48+
End
49+
End
50+
Attribute VB_Name = "Form1"
51+
Attribute VB_GlobalNameSpace = False
52+
Attribute VB_Creatable = False
53+
Attribute VB_PredeclaredId = True
54+
Attribute VB_Exposed = False
55+
Option Explicit
56+

0 commit comments

Comments
 (0)