you know how in vb you have the the toolbar and you csn make it stik to the side . How can i do that in my project just making it stay on the side , if you can help me thank you.
Printable View
you know how in vb you have the the toolbar and you csn make it stik to the side . How can i do that in my project just making it stay on the side , if you can help me thank you.
You mean dock a window?
Code:Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Dim StartMenu As Long
Dim What As RECT
Public Sub BorderToRight(FormName As Form)
For TempNum = 1 To 999
TempString$ = Space$(128)
TempNum2 = GetClassName(TempNum, TempString$, 128)
TempNum3 = Left$(TempString$, TempNum2)
If LCase(TempNum3) = "shell_traywnd" Then GoTo StartMenuFound
Next TempNum
StartMenuFound:
GetWindowRect TempNum, What
StartMenu = What.Top * 15
FormName.Move Screen.Width - FormName.Width, 0, FormName.Width, StartMenu
End Sub
Usage: Call BorderToRight(Me)
no no i mean liek its lke a magnet it like go to the side if it it like 50pix away then it like magnets to the side like winamp when you bring the playlist close to one of the other windows it like locks the winodws together
this will make the form move to the left side of the screen if it is within 1000 pixels away
if flickers a little bit though :(Code:Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 50
End Sub
Private Sub Timer1_Timer()
If Me.Left < 1000 Then Me.Left = 0
If Me.Left < 1000 Then Exit Sub
End Sub
I posted something on http://www.planet-source-code.com. Here is the link: http://www.planet-source-code.com/vb...txtCodeId=9070