by cpsim (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 5.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: (5 Votes)
i did some changes to the code but the credit is to douglass sheffer. is his code not asking for votes or anything. i am working on xp style controls as well and custom basic controls. in c++ as well as vb. if you like let me know.
the original code is at https://vbcoders.com/vb/scripts/ShowCode.asp?txtCodeId=30137&lngWId=1
Inputs
you need to set the form borderstyle=0
and you need to set the form showintaskbar=true
Private Sub Titlebar1_Closed()
End
End Sub
Private Sub Titlebar1_Maximized()
Me.WindowState = 2
End Sub
Private Sub Titlebar1_Minimized()
Me.WindowState = 1
End Sub
Private Sub Titlebar1_Normal()
Me.WindowState = 0
End Sub
Private Sub Form_Resize()
Titlebar1.Height = Me.Height
Titlebar1.Width = Me.Width
Titlebar1.Top = 0
Titlebar1.Left = 0
End Sub
Download xp style (53 KB)