blob: 2d4e6e6b9e69670325e4c768ab43553b9478badd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
Public Class Titlebar
Public Property AppName As String
Set(value As String)
lbtitle.Text = value
End Set
Get
Return lbtitle.Text
End Get
End Property
Friend WithEvents prnt As Form = ParentForm
Private Sub Titlebar_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.Dock = DockStyle.Top
Me.BringToFront()
End Sub
Private Sub titlebar_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown, lbtitle.MouseDown
' Handle Draggable Windows
If boughtdraggablewindows = True Then
If e.Button = MouseButtons.Left Then
Me.Capture = False
lbtitle.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
Const HTCAPTION As Integer = 2
Dim msg As Message = _
Message.Create(ParentForm.Handle, WM_NCLBUTTONDOWN, _
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
End If
End Sub
Public Sub DetermineMyVisibility()
If boughtbasicwm = True Then
Me.Show()
ParentForm.WindowState = FormWindowState.Normal
ParentForm.Left = (Screen.PrimaryScreen.Bounds.Width - ParentForm.Width) / 2
ParentForm.Top = (Screen.PrimaryScreen.Bounds.Height - ParentForm.Height) / 2
ParentForm.TopMost = True
Else
Me.Hide()
ParentForm.WindowState = FormWindowState.Maximized
ParentForm.TopMost = False
End If
End Sub
End Class
|
