ucBrowse - Theme-Aware Browse for Folder Control
ucBrowse is a single file, self-subclassed sited (Form Bound) Browse for Folder replacement control which supports customization. Each control supports the following independent properties: Appearance (Flat, 3D), CheckBoxes, FullRowSelect, HasLines, HotTracking, Path, Root and Theme Detection (Auto, Classic, Blue, HomeStead, and Metallic, None). As a bonus, this submission also includes a Theme Aware version of ucPickBox, which is a self-subclassed Theme-Aware control which wraps up the Browse for Folder, Color, SaveAs, Open and Printer dialogs (see PCS ID 63905). So, if your project needs a Browse for Folder functionality while remaining sited on a form, then this control might be just what the doctor ordered. [Update 16Oct07] Added Unicode support for OS >= Win2K, added HideSelection property (Default = True) to remedy focus management issues, added HasButtons property to allow simple line styles. [Update 28Oct07] Added IsFolder and IsFile support, fixed minor bug in QualifyPath which incorrectly added a backslash to file paths (thanks Ruturaj for catching this!).
Enjoy!! TerriTop…
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come
out every day, so no prevention program can catch 100% of them. For your own safety, please:
Re-scan downloaded files using your personal virus checker before using it.
NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
Scan the source code with Minnow's Project Scanner
If you don't have a virus scanner, you can get one at many places on the net
including:McAfee.com
Terms of Agreement:
By using this code, you agree to the following terms...
You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
Enmity, thanks for the heads up. I'll look into this...just for clarity, do you mean the UserControl tooltips or the BFF? Thanks TerriTop (If this comment was disrespectful, please report it.)
Very nice. When selecting the "controls" folder I got run time error 'Wrong number of arguments ..' (If this comment was disrespectful, please report it.)
Nice Submission! Actually in the year 2002, I was thrilled to see such type thing demonstrated by Bobo (don't know his real name). If interested, see his submission here at code ID 40007, of course in PSC VB6 section itself. But that's in one module and you've built a nice and easy to include Usercotrol. Thanks for sharing your code!
I understand we're actually using the same Browse For Folder here. But it will be great if you can override BFF's default Right-click context menu with Windows Explorer's context menu for selected item. Also how about adding support for "Show Files"?? We all know this is also possible in BFF dialog. Please let me know your opinion on these suggestions. Thanks! -- Ruturaaj. (If this comment was disrespectful, please report it.)
Some suggestions: Add HideSelection property (Use TVS_SHOWSELALWAYS (&H20) in SetSysTreeStyle). Detect if Windows2k or higher and use SHBrowseForFolderW and SHGetPathFromIDListW to enable Unicode return values.
I'll PM you more info.
(If this comment was disrespectful, please report it.)
Nice. BTW, a still unsolved issue: focus managing. Suggestion: HideSelection property (enabled by default). (If this comment was disrespectful, please report it.)
Paul Turcksin, the issue with "Controls" has been resolved in the current version (v1.0.42). This was an object conflict using the none qualified enum (i.e. ucBrowse1.Controls). To avoid this in the current version the enum has been changed to ControlPanel. Thanks for catching this!! TerriTop (If this comment was disrespectful, please report it.)
Ruturaaj, thanks for the note. The project was originally inspired by Mr. Bobos excellent submission over a year ago. My goal was to build this for a project that I needed this BFF support, but wanted the UserControl object to deal with the mess of handing the setup / teardown, and of course painting with Theme colors. The current version allows for BFF flag support, see the FolderFlag property and simply "Or" the flags as you see fit, just be aware that not all Flags apply (i.e. UseNewUI), but I have included them for completness. As for the context menu...Hmmmm, I need to do more to research on that... TerriTop (If this comment was disrespectful, please report it.)
Ian Welch & Carles P.V., thanks for both of your suggestions. I have implemented the Unicode and HideSelection window style in the current version (v1.0.42). HideSelection is by default "True", but there may still need to be some tweaking on this as it does not seem to "hide" the node selection as I would have anticipated. Cheers TerriTop (If this comment was disrespectful, please report it.)
Just as an FYI, the version cited in the responses to Paul Turcksin, Ruturaaj, Ian Welch, and Carles P.V., the version should have read v1.0.44...sorry for the confusion! TerriTop (If this comment was disrespectful, please report it.)
Not too bad at all. Would be great if there was an option for Pattern matching on the selected Folder too. Maybe with an Event returning the Path and Pattern count? 5Gs (If this comment was disrespectful, please report it.)
sorry answer late, I mean the tooltiptext for each folder, where those folder path(name) is too long(out of the right border of the control), the tooltiptext won't correctly display (If this comment was disrespectful, please report it.)
BUT YOU DID NOT HAVE " only ONE HD DRIVE" FOR example "C:\" OR "D:\" Beacuse I used to choice one drive form a ComboBox then show only HD likes "c:\" or "E:\" .... THANKS YOU very much.
(If this comment was disrespectful, please report it.)
fancytom, Thanks for the message. I am not sure I understand the request, but if you are looking to use this to display drives only, you might try playing with the FolderFlags property, which can be combined with "Or" opperators between. As for the appearance, you need to set the Theme to "None" or "Classic"....hope this helps!! TerriTop (If this comment was disrespectful, please report it.)
I did not explain clearly (sorry, my bad). In fact I was referring to two diferent things: first one was related to navigation through controls using TAB key, second one was a suggestion itself (related to focus, too :-) (If this comment was disrespectful, please report it.)
Taner, Unfortunely, this control does not provide filtering as you describe. This is because this is a BFF placed on a UserControl via API manipulation and subclassing. If you need this support, you might need to build a just in time FolderTree, but this can be a daunting task ;-) As for further work on this control, I have moved onto .Net technology and do not develop in classic VB6 much more...Good luck in your quest! TerritTop (If this comment was disrespectful, please report it.)
TerriTop, is it possible save last selected folder in ucPickBox after app exit? and, after running again, check is it path exists, if no, setting ucPickBox to default - "Locate Folder..." (If this comment was disrespectful, please report it.)
so, problem in ucPickBox was when choose folder, and after that if mouse over on btn then path set to text "Locate Folder..." (If this comment was disrespectful, please report it.)
must be replaces with: ... Case [ucFolder] ' Update the Folder PickBox Values .txtResult.Locked = True If m_UseDialogText Then If (m_Path = vbNullString) Or (Left$(m_Path, 3) <> Left$(.txtResult.Text, 3)) Then .txtResult.Text = m_DialogMsg([ucFolder]) End If Else .txtResult.Text = "" End If .cmdPick.ToolTipText = m_ToolTipText([ucFolder]) ... (If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
Download code
10/15/2007 5:57:00 AM: 
