On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.
Course Of The Month
Become a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Place vb6 form above System Tray
Posted on 2009-04-03
Dear
I need to Place one Form in Vb6 Just above System Tray with 6 cm in length and 2.5 cm in width.
Any suggestions, Need Help
With Thankx and Regards
I need to Place one Form in Vb6 Just above System Tray with 6 cm in length and 2.5 cm in width.
Any suggestions, Need Help
With Thankx and Regards
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
3
2-
2
7 Comments
Use Screen.Width and Screen.Height to get the size of the screen.
Then position your form at:
Form1.Width = Screen.Width - Form1.Width - 15
Form1.Height = Screen.Height - Form1.Height - 50
Tweak the number at the end to take into account borders on your form, and the taskbar at the bottom of the screen.
Then you can size your form to be whatever size you like and it should appear in the bottom right corner.
You may also want to set your borderstyle to "None" or "Toolbar" so that the border isn't quite as thick and in the way.
Then position your form at:
Form1.Width = Screen.Width - Form1.Width - 15
Form1.Height = Screen.Height - Form1.Height - 50
Tweak the number at the end to take into account borders on your form, and the taskbar at the bottom of the screen.
Then you can size your form to be whatever size you like and it should appear in the bottom right corner.
You may also want to set your borderstyle to "None" or "Toolbar" so that the border isn't quite as thick and in the way.
Active today
Using Screen.XXX alone may actually put your form on TOP of the System TaskBar and/or other DeskBands that are running. What if the TaskBar is made bigger (taller) or they have other such apps running? What if the TaskBar is dragged to the Top of the screen? Then your app will be in the bottom right but not flush with the edges...
To properly place your form in the bottom right without obscuring the TaskBar/DeskBands you need to use the SystemParametersInfo() API with the SPI_GETWORKAREA flag:
http://msdn.microsoft.com/en-us/library/ms724947(VS.85).aspx
SPI_GETWORKAREA: Retrieves the size of the work area on the primary display monitor. The work area is the portion of the screen not obscured by the system taskbar or by application desktop toolbars.
An Example:
To properly place your form in the bottom right without obscuring the TaskBar/DeskBands you need to use the SystemParametersInfo() API with the SPI_GETWORKAREA flag:
http://msdn.microsoft.com/en-us/library/ms724947(VS.85).aspx
SPI_GETWORKAREA: Retrieves the size of the work area on the primary display monitor. The work area is the portion of the screen not obscured by the system taskbar or by application desktop toolbars.
An Example:
Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Const SPI_GETWORKAREA = 48
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Sub Form_Load()
Dim desktopRect As RECT
Dim formHeight As Single
Dim formWidth As Single
formHeight = 150 ' desired height of form in pixels
formWidth = 150 ' desired width of form in pixels
Call SystemParametersInfo(SPI_GETWORKAREA, vbNull, desktopRect, 0)
Call SetWindowPos(Me.hwnd, 0, desktopRect.Right - formWidth, desktopRect.Bottom - formHeight, formWidth, formHeight, 0)
End Sub
Dear Idle Mind,
Thanks for your reply. It is working fine. I accept your reply but need one more little help if you could. Is there any way to give some Effects to this form. Like 3d, or something other than that, should be Interactive.
Thank you and Regards
Thanks for your reply. It is working fine. I accept your reply but need one more little help if you could. Is there any way to give some Effects to this form. Like 3d, or something other than that, should be Interactive.
Thank you and Regards
Active today
Sorry. I don't have any recommendations for making the form "prettier"...I code plain looking apps. =)
Maybe Frosty has some ideas?...
Maybe Frosty has some ideas?...
I don't know what you mean by 3D effects, but there are a number of utilities out there to let you "skin" a vb6 form (make it non-rectangular).
See this EE question:
http://www.experts-exchange.com/Programming/Languages/Q_20358281.html
This example:
http://www.freevbcode.com/ShowCode.Asp?ID=1813
See this EE question:
http://www.experts-exchange.com/Programming/Languages/Q_20358281.html
This example:
http://www.freevbcode.com/ShowCode.Asp?ID=1813
Making your form "Always On Top":
-------------------- FORM1.FRM ------------------------
Private Sub Command1_Click()
If (MsgBox("Should The Window Be Topmost?", vbQuestion+vbYesNo,"Question") = vbYes) Then
' Set Window to Topmost
SetTopmost(Me, True)
Else
' Cancel Topmost
SetTopmost(Me, False)
End If
End Sub
-------------------- ALWAYSONTOP.BAS -------------------
Option Explicit
Global ipbans As String
Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal uFlags As Long) As Long
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOACTIVATE = &H10
Public Sub SetTopmost(Form As Form, ByVal Topmost As Boolean)
Dim hWndInsertAfter As Long
If Topmost Then
hWndInsertAfter = HWND_TOPMOST
Else
hWndInsertAfter = HWND_NOTOPMOST
End If
SetWindowPos Form.hWnd, hWndInsertAfter, 0, 0, 0, 0, _
SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOACTIVATE
End Sub
Featured Post
MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Introduction
In a recent article (http://www.experts-exchange.com/A_7811-A-Better-Concatenate-Function.html) for the Excel community, I showed an improved version of the Excel Concatenate() function. While writing that article I realized that no o…
When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month7 days, 13 hours left to enroll
Earn Certification
CompTIA IT Fundamentals
$49.00$44.10
632 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.