winzip icon

xFrame Control 1.6.6

Email
Submitted on: 1/21/2018 3:39:17 PM
By: Quake 
Level: Intermediate
User Rating: By 6 Users
Compatibility: VB 6.0
Views: 13863
 
     (UPDATE: 12/24/2017-3:30pm)This is an Update to the xFrame done by Xander
SubZero DeZigns All rights reserved Copyrighted 2016 - 2017

Version Info:
User Control
* Added: Mouse Events
MouseDown, MouseMove, MouseUp
Timer Control
* Added: Mouse Events
* Fixed: Button Detection
Header Paint
* Fixed: Error if Picture = 0 on True
* Added: Ontop Header True/False
picHeader MouseMove
* Fixed: Revised Code
* Fixed: Mouse Coordinates
* Added: Button Detection
picHeader Click
* Added: Mouse Events
* Added: Picture Button Detection
Declarations
* Fixed: Event ImgClick
* Fixed: Type REC, HeaderOnTop
Clean up
* Revised: to With...EndClean up
4 New Skins
* Added: Green Apple
* Added: Pink Ribbon
* Added: Purple Viking
* Added: Black Metal
Editable Header Lines
* Added: Line 1
* Added: Line 2
User Control
* Added: Get hWnd
* Added: Refresh
* Removed: Timer
______________________________
Version Info: 1.3 / 1.3.1
1 New Skins
* Added: Blood Red
User Control
* Added: Mouse Icon
______________________________
Version Info: 1.4.1
User Control
* Added: ReleaseCapture
(MouseUp Event on ReleaseCapture - 1.4.1)
* Added: Move Form
* Added: Move Control
* Re-Added: Timer
(Control would crash on using Menu Exit)
______________________________
Version Info: 1.5.0/1.5.2
User Control
* Added: Header Gradient 45º
* Added: Frame Gradient 45º
* Added: Blends
* Added: HeaderGradient Option
(Used for Plain Frame)
* Added: FrameLine Removel
(Used for Plain Frame)
* Added: ReSize Option
* Added: ReSize Parent
* Added: ReSize Contrainer
Mouse Events
* Added: Resize N, E, W, S
* Added: Resize NWSE, NESW, SENW, SWNE
* Added: More MouseDown variants
User Control .1
* Added: Control Resize
(Fixes the ability to SET Control POS's)
User Control .2
* Fixed: Control Resize Height
______________________________
Version Info: 1.6.0/1.6.5
User Control
Mouse Events
* Added: MouseDrag Modes
(This (ADDS) 12 Mouse variation/s)
(See: Resize Test Setparent)
* Fixed: MouseDrag Offsets
* Fixed: Bug: Memory leak
1 New Skin
* Added: Custom Skin Ability
Main Form
Testing
* Testing: Setparent Form/s
* Testing: Cascade Form/s
* Testing: Maximize, Minimize
* Testing: Form Position/s
User Control .5
* Added: ToolTipText to Header
* Added: Caption Resizer to Header
* Added: Visible HeaderBottomLines True/False
* Fixed: Button Click
* Edited: Public Enabled lUserControlOrigHeight(Set Height)
* Edited: Private tmrMouseMove
* Edited: ImgClick to IcoClick
* Edited: Public bMouseOver - See xFrame1_Click() Example
* Edited: Public bFrameButton - See xFrame1_Click() Example
* Edited: Public bFrameButton - Denies Click if lUserControlOrigHeight =0
______________________________
Version Info: 1.6.6/1.6.#
User Control .6
* Edited: Re-Enabled Refresh
Mouse Events
* Added: ToolTips Ico, Button, Pin
______________________________
Comments:
Thanks to Alexander Mungall for providing the original code on PSC: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=68342&lngWId=1
CompanyName:
SubZero DeZigns
FileDescription:
Draws a Frame control for your projects.
Title:
xFrame_2
Version: 1.6.6

 
winzip iconDownload code

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:
  1. Re-scan downloaded files using your personal virus checker before using it.
  2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
  3. 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


Other 32 submission(s) by this author

 


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Intermediate category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)
 

Other User Comments

9/22/2016 11:20:05 PMkibe

I use this uc many years in my project. old previously build, but work fine with some minors :) thanks, good control!
(If this comment was disrespectful, please report it.)

 
12/12/2017 5:43:31 PMQuake

1.6.2
* Added: Caption Resizer to Header
* Crops your text with flexibility
1.6.3
* Added: Visible HeaderBottomLines True/False
* Hide/Show Header lines. Great for using the header as Footer text object.

Enjoy,
Quake
aka SubZero DeZigns
(If this comment was disrespectful, please report it.)

 
12/18/2017 5:46:13 PMQuake

1.6.4
* Fixed: Button Click
* Edited: Public Enabled lUserControlOrigHeight(Set Height)
- If you use the Frame in a Minimized state at Startup you must give it a Height Value. Example:
Form_Load()
xFrame1.lUserControlOrigHeight = 1200
End sub
* Edited: Private tmrMouseMove
- No longer makes your project window Flicker.

Thanks, Quake aka SubZero DeZigns
(If this comment was disrespectful, please report it.)

 
12/18/2017 6:04:53 PMQuake

Forgot to mention.
If you used the ImgClick function you must move your code into xFrame1_IcoClick()

Change ImgClick to IcoClick

Enjoy,
Quake
aka SubZero DeZigns
(If this comment was disrespectful, please report it.)

 
12/18/2017 6:43:13 PMQuake

1.6.4.5
Example Expand - Collapse Frames
If xFrame1.bMouseOver = True And xFrame1.bFrameButton = True Then
If xFrame1.Height = 315 Then
xFrame3.Top = 2160
If xFrame3.Expanded = True Then xFrame3.Height = 3855
Else
xFrame3.Top = 480
If xFrame3.Expanded = True Then xFrame3.Height = 5535
End If
End If


(If this comment was disrespectful, please report it.)

 
12/20/2017 1:07:21 AMQuake

1.6.5 is only a minor Update. It "DENIES" click of the button. If the user does not set lUserControlOrigHeight if used in Collapsed(minimized) mode.

Thanks,
Quakes
AKA SubZero DeZigns
(If this comment was disrespectful, please report it.)

 
12/23/2017 2:49:11 AMQuake

Re-Upload 1.6.5 only adjusted the code for the Demonstration Model. No code was fixed, adjusted, or altered in the control.

Thanks,
Quake
(If this comment was disrespectful, please report it.)

 
12/24/2017 8:33:56 PMQuake

Version Info: 1.6.6/1.6.#
User Control .6
* Edited: Re-Enabled Refresh Mouse Events
* Added: ToolTips Ico, Button, Pin

Enjoy,
Quake
(If this comment was disrespectful, please report it.)

 
12/25/2017 12:13:35 AMEddie Bole

Many thanks Alex (Quake) for working on this fantastic Frame control. I see you are getting close to 9000 hits. I love all the Xander controls. Merry Xmas to you. Can't wait to play around with the updated control. Take care.
(If this comment was disrespectful, please report it.)

 
12/29/2017 11:34:29 AMNaveen Soni

hello friend,

i want to make a transparent user control in visual basic. if you able to make please contact me. i will pay for work you done for me.
(If this comment was disrespectful, please report it.)

 
1/21/2018 3:38:22 PMQuake

@Eddie,Thanks!
May the new year bring more complex codes in your dreams. lol
@Naveen, There's plenty of examples around to start from. Problem with Transparency is: When you start putting controls ontop of controls they don't grab the transparency under that control. It's complex. There is examples on here for that. Just use the search.
(If this comment was disrespectful, please report it.)

 
1/27/2018 11:07:17 AMBen

Really good frame control the best I seen so far, will come in handy to add a bit of spark to my apps. Thanks for shareing, 5 from me *****
(If this comment was disrespectful, please report it.)

 
2/6/2018 4:47:55 AMQuake

Adding Mouse Click Detection to the IcoClick aka Icon Image Click

Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer
Private Const VK_LBUTTON = &H1
Private Const VK_RBUTTON = &H2

Private Sub xFrame_IcoClick()
If GetAsyncKeyState(VK_LBUTTON) Then
PopupMenu frmMenu.mnuFile
ElseIf GetAsyncKeyState(VK_RBUTTON) Then
PopupMenu frmMenu.mnuDatabase
Else
End If
End Sub

(If this comment was disrespectful, please report it.)

 
2/9/2018 8:13:20 PMCPMARIO

Excelente, muchas gracias Quake.
(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.)
 

To post feedback, first please login.