Results for "Category: Custom Controls/ Forms/ Menus"

A few ActiveX controls for you usercontrol folder including 2 types of ToggleSwitch's, A Progressbar, L.E.D., Custom CheckBox, And an easy to use SystemTray control.

Shrink Window on Unload

I have just done a major update! This Form with Scroll Bars Control has everything that you always dreamed of on a Scrolling Form and more! Following is a list of the most important features available on this versatile ActiveX Control: ____________________________________________________ (1) The Form will scroll vertically and horizontally! ____________________________________________________ (2) It will scroll automatically to the field with focus if the field is out of site. ____________________________________________________ (3) It will highlight the field or button that has the Focus (Actually, any Control inside of the Scrolling Form that can get focus). ____________________________________________________ (4) Besides been able to optimize the space on your applications by been able to scroll in any direction, you can now flip pages! This feature is much like a wizard’s page. The control will track the number of added pages and which page is currently been viewed. ____________________________________________________ (5) The control will memorize the last field selected and the scroll bars position on every page. Therefore, whenever you move to a new page, you can opt to have the Scrolling Form ActiveX automatically select the last field selected on the corresponding page or select the first field of the page. ____________________________________________________ (6) The Control can automatically select the text of every Text Box selected. ____________________________________________________ (7) You can add a background picture to the control. This picture will be set as the background picture of every added page! ____________________________________________________ (8) You can set the background color of the control. This color will be set as the background color of every added page! ____________________________________________________ All of these features are neatly packed as an ActiveX Control. It is very easy to use! What are you waiting for?!! Go ahead and download it! The Source Code of the OCX is included and is heavily commented!!

This is a control that will allow you to create a form that can be scrolled by the user. It is very simple to implement. This submission is heavily based on another submission by Fred_Cpp: http://www.planet-source-code.com/vb/scripts/showcode.asp?lngWId=1&txtCodeId=31896 I hope that Fred doesn't get mad at me for tweaking his code! :) My modified version has little changes. When there is no need to scroll horizontally or vertically, the scroll bar is hidden. The scroll bars do not have the annoying blinking anymore. I did a lot of clean up on the code and added a few comments in "English". I think that the example looks better, too. It would be good if you guys could give me some feedback. ============================================ I have just uploaded an ActiveX Control that is much better. The URL Is: ============================================ http://www.planet-source-code.com/vb/default.asp?lngCId=32374&lngWId=1

This ActiveX Control (OCX) will create a simple interface so the user can enter a determined time. It then validates the time entered and will always return a correct time. This control can be very useful if you are writing a program like an Alarm Clock or something like this. It can be, also, very instructive for those who want to learn how to program an ActiveX Control.

This button was created to be an enhanced replacement for Visual Basic's standard command button by adding more options, visual effects, and compatibility. I cannot guarantee that this code is bug free although I have made every attempt to make it such. If you have any problems with this code please contact me and I'll do what I can to help you through the problem. Release 1.3.0: + New: - Added Picture Alignment (Thanks Edwin Vermeer) - Added Elliptical and Box Gradients - Added Caption and Picture Alignment Cushions (Almost like margins) - Added BackGround/Control Autosizing (Picture Modes) - Added HSL Gradient Blending (Thanks Ulli & Edwin Vermeer) - Added Gradient Repetitions (Thanks Edwin Vermeer) - Added Hover options which allow Full Hover Effects / Border Only Hover / All Hover Effects except Border - Added Mouse Pointer/Icon handling for Disabled, Down, and Hover states. + Fixed: - Bug in Enabled Property (Design Mode, Control would appear enabled even though control was disabled after a form with control on it was closed then re-opened, Bug has present since Release 1.0.0) (Thanks for reporting problem, Edwin Vermeer) - Bug in scaling that would cause the button to crash when placed on a parent that did not have ScaleMode available (PictureBox on an MDI form, etc...). Now if Parent.ScaleMode is not available button will scale co-ordinates to Twips (Thanks for reporting problem, costamar) - Bug in ToolTips that would cause button to crash when used in environments without the extender object (Access VBA, etc...) (Thanks for reporting problem, Edwin Vermeer) + Improved: - Caption Alignment has been improved to allow for positioning in any of 9 different positions [Changed existing enumeration which will cause some problems when upgrading] (Left Top / Left Middle / Left Bottom / Center Top Center Middle / Center Bottom / Right Top / Right Middle / Right Bottom) - Enabled/Disabled coding to allow more control over the Disabled state of the control. Now prevents event processing instead of disabling the user control. - ToolTips to allow using ToolTips in environments that don't support the Extender.

This is a custom container control which is designed to act as an enhanced container that a designer can use in place of VB's Frame control. It includes several caption styles, appearances, control styles, and caption alignments. I've tried to make this as bug free as possible, but I can't guarantee that it is. If you have any problems please contact me and I'll try to help you through the problem as best I can. Release 1.1.0: + New: - Added Elliptical and Box Gradients - Added Caption Alignment Cushion (Almost like margins) - Added BackGround/Control Autosizing (Picture Mode) - Added HSL Gradient Blending (Thanks Ulli & Edwin Vermeer) - Added Gradient Repetitions (Thanks Edwin Vermeer) + Fixed: - Bug in Enabled Property (Design Mode, Control would appear enabled even though control was disabled after a form with control on it was closed then re-opened) - Bug in scaling that would cause the button to crash when placed on a parent that did not have ScaleMode available (PictureBox on an MDI form, etc...). Now if Parent.ScaleMode is not available button will scale co-ordinates to Twips

The purpose of this control was to replace the standard VB command button with a button that was far more configurable and had many more options so that it would require less programming on the part of the developer to use nice looking buttons. This release corrects a problem with pushing the button several times very quickly and the button would only show the animation once per two quick clicks. Also fixed a bug in the Option Button implementation that would allow an option button to become "un-clicked" (value of false) without having another option button with a value of true. I've improved the modularity of the HSL color code and decided to use HSL blending for the new style borders and for the caption styles. This should be the last VB release of Gradient Button assuming there are no major bugs. The C++ version (v2.0.0) is coming along quite well, but there is still alot of work to be done. I still have to add an About box, OLE events and code, code tweaking, lots of documentation and lots of testing. It is still probably a few months away from full release.

This button was created to be an enhanced replacement for Visual Basic's standard command button by adding 2 more Border appearance schemes, 2 more button styles, hover effects, 5 more caption styles, and state button compatibility. I cannot guarantee that this code is bug free although I have made every attempt to make it such. If you have any problems with this code please contact me and I'll do what I can to help you though the problem. Release 1.1.0: + New - 5 Caption Styles - State Button Capability (sort of like a checkbox) + Fixed - Bug in caption wrapping that would lose a character if a single "word" was longer than the caption width. + Improved - Slight speed increase from de-coupling the caption wrapping and drawing. Release 1.1.1: + Fixed - Bug that would not re-process the caption for display if the caption was changed in code at run time, unless a refresh was done. (Bug introduced in Release 1.1.0) Release 1.2.0: + New - Added Picture and Graphical Picture modes - Added Bevel Appearance Type - Added Bevel Width and Intensity properties (for customizing the bevel border) - Added UseClassicBorders property (to allow switching between blending and classic borders) - Added Option Button Compatibility and changed the structure of the State Button compatibility some + Improved - Borders have been revamped to allow blending with the gradient/picture on the button + Fixed - Fixed a minor issue with the ValueChanged event (event would not fire if changed via code) - Rewrote description text for properties / events / methods to be completely accurate Release 1.2.1: + Fixed - ToolTips are finally fixed and working. (I thought this important enough for another release just for this one issue)

I just took Todd Herman's project and added a simple search form to let you pick your own .ANI file. Check out Todd's original project at http://www.planetsourcecode.com/xq/ASP/txtCodeId.26016/lngWId.1/qx/vb/scripts/ShowCode.htm

Silly, fun animated About Box for your applications (use your own pictures!) Even plays dopey sound effects!

Automatically completes text entry according to a listbox contents. Autofill/Autotext uses one text control and one listbox control to simulate an autotext feature. Works fast thanks to SendMessage API (supports loooong lists w/o trouble). Supports Up and Down arrow keys as well as PgUp and PgDn. Enter key behaves like tab. Highly commented code.

This snippet creates an uneditable textbox/label whose contents can be copied to the clipboard. This is just like the textboxes in the File properties of Windows (open Windows Explorer, right-click on a file and select PROPERTIES, you'll see that several fields here can be copy/pasted although they cannot be modified). Straightforward and commented code.

Update of the Usercontrol that emulates the menubar on the side of dialogs on system using the newest version of comctl32.ocx (I think). vbaccelerator image list is now built right in through a class, so there is no need to distribute his ocx (Steve mcMahon). Header and scrolling have been added to allow for a light emulation of an outlook menubar (only one bar though). Allows changing of backcolor, forecolor(text), Header Forecolor, Header Caption, and toggling of Scrollbar and Header Visibility. Also allows for images to be loaded from file and from a STDPicture object. If you are wondering why I went to such lengths to include the vbaccelerator image list in a class wrapper?? it supports color depths up to 32 bit, try that with the normal MS image list!!. All in all a nice control with a pretty small footprint.

Application that shows you how to dynamically select skins. Lots of API calls and user controls.

jeffLabel is a replacement usercontrol for the standard Visual Basic label control. The control started out simply as a usercontrol containing two labels (for creating a simple drop shadow effect). Things got a bit more involved when it came time for the new label to be a transparent label. The solution was, while in transparent backstyle mode, for the label shadow and text to be drawn directly onto the device context of the parent control. While in transparent mode, this label demonstrates advanced usage of the DrawText API call, specifically, drawing text in any font regardless of the current font in the device context. Additionally, the GetTextFace, GetTextMetrics, GetTextColor, SetTextColor, SelectObject, and CreatFontIndirect functions are demonstrated for converting standard vb font objects into logical fonts, and device context font metrics into standard vb font objects. This is version .1 of this control, so there are some bugs I am aware of already including: transparent user controls have no .hWnd and so do not capture mouse and keyboard events (will need to subclass the parent to trap these events), when in .AutoSize mode (as the test project will demonstrate) the control has a curious effect of growing when the .Caption value is repeatedly changed (this is most likely related to my use of the standard VB controls to do the initial text sizing; this method will need to be dropped in version 1). However, despite these current bugs, if you've been looking for a label with built in drop shadow effect, or you've been trying to figure out how to create genuine transparent usercontrols in vb, this project should sufficiently jump start you on your way. =) Not many examples can be found on Planet Source Code of creating true transparent usercontrols (usercontrol.backstyle = vbTransparent), and since this certainly is still a work in progress, your comments or suggestions below would be much appreciated.

OK... not looking to blow away the world with this one, but felt lead to make the post after reading this article. http://www.planet-source-code.com/vb/scripts/showcode.asp?txtCodeId=26999&lngWId=1 At work, I have an app that is an mdi based program... and while the sub forms don't need a menu bar of their own, they do need popup context menus. Since adding even an invisible menu to a mdichild form will cause it to over write the parent mdi's menu bar, I needed a way to create menus for the child forms on the fly. This simple class demonstrates using the API calls to create a popup menu, display it, and return the item that was clicked (if any). It is simple and self-contained, but this will at least get you started on your way to wrapping the API menu functions in VB classes. I can already see I will be expanding this class, since getting this far was actually quite easy. The ultimate goal would be to "InsertMenuItem"s not just in a popup, but in the menu bar of the parent mdi form as well. I'll repost the class when I've taken it that far. (just updated to include .ItemEnabled property for the popup menu)

O.K. This is the debut of both jeffButton and jeffSplitter. =) jeffButton is a custom control replacement for the VB command button. The enhancements it provides are: location of the caption, providing for the "soft button" effect, and most importantly, automatically creating disabled versions of your button icons... just like the standard vb toolbar. However, I must state now that the API calls I use to achieve this are newer, and probably won't work in Win95 and potentially early versions of Win98 and NT. Works fine on current Win98se, WinME, and Win2K. Anyways... the controls also demonstrates the mouse capturing API calls. The button control also supports hot and disabled icons if you so wish to provide them. =) Addditionally, this project post also exhibits my custom splitter control. I think, at the least, you will find my approach unique. Again, this control demonstrates the mouse capturing API calls. You can set the splitter's orientation, and bounds. And event fires every time the bar moves, allowing you to custom resize controls at will... which is what I like to do. Most implementations I have seen of splitter controls that automatically resize controls for you aren't very complicated, or else they end up adding a lot of overhead. jeffSplitter is simply and based on Edanmo's VB5 ocx splitter controls which provide the splitter but allow you the flexability to implement your own resize techniques (useful when a frame or toolbar is resized in the same section along with a grid or treeview). =) Anyways... hope you guys enjoy my latest offering. I cut with my previous policy of distinguishing between public and private code on this project, so additionally, any of you code hounds out there will also find in this project a rich library of base vb functions and API function definitions and constants in the two files: tools6.bas and mapiconstants.bas. =) I use this module base in both work and recreation projects. If you like it or the latest controls, please gimme a vote. ;) (it don't take long to vote, honest)

This user control is my own personal replacement for the VB frame control. It more closely emulates the "panels" found in many 3rd party control libraries. It is an excellent example of using the DrawEdge API function. The control exposes 3 properties to this affect: BorderWidth, BorderEdges, and BorderStyle. The sample app visually demonstrates how these properties affect the control. In all of my personal code, I maintain 2 base modules: 1 for declaring constants and API stuff, and the other for containing generic function. Thus, the sample project includes a subset of those 2 files, plus the UserControl... and a test harness screen that allows you to set the frame properties on the fly. For the current versions of this control, or other cool controls or code, hit my web page:                                                                                                          http://members.tripod.com/thefrogprince/                                                                                                          If you are not currently involved in the coding contest, I WOULD REALLY APPRECIATE YOU VOTING FOR MY CODE. Will only take a minute or two to make an account, and while it won't make me any money... =) it will encourage me to keep posting good quality code and controls like this one.

This control is my replacement for the standard VB masked edit control. It came about by my need to add a .Locked property to the masked edit control... and my utter disgust with the colors and performance of the masked edit controls available in the 3rd party libraries. For the most part, I was pleased with the performance of the MS masked edit control, but it needed some tweaking (in addition to the .Locked property). For starters, I needed an alignment property because I wanted to use the masked edit with numeric and money fields. Then, for the purpose of money fields, I wanted to be able to apply a .Format, and then programmatically block certain keystrokes (alpha characters, for instance). And referring to fields, yes, it had to be data bindable. I accomplished all of these things, while retaining the MS masked edit control at the heart of my user control. This preserved the flexibility that was generally lost in the 3rd party controls... and spared me from the much more difficult chore of trying (like other examples I have seen) to implement a masked edit control using a plain ol' text box. In my research, I came across several examples, and none had gone so far as to perfectly preserve the flexibility of the masked edit. Anyway, this user control adds the following properties to the standard masked edit control: .Alignment, .AutoSelectAll, .Locked, and .AllowedKeys (a clever and easy to enhance enum; check it out). For updates to this or other useful VB stuff, check my page:                                                                                                          http://members.tripod.com/thefrogprince/                                                                                                          If you are not currently involved in the coding contest, I WOULD REALLY APPRECIATE YOU VOTING FOR MY CODE. Will only take a minute or two to make an account, and while it won't make me any money... =) it will encourage me to keep posting good quality code and controls like this one.