mirror of
https://github.com/Histacom/Histacom.git
synced 2025-01-23 01:22:03 -05:00
29 lines
1.2 KiB
VB.net
29 lines
1.2 KiB
VB.net
|
Public Class formcalculator
|
|||
|
|
|
|||
|
|
Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click
|
|||
|
|
Me.Close()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub formcalculator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|||
|
|
look.Start()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
|
|||
|
|
If e.Button = MouseButtons.Left Then
|
|||
|
|
programtopbar.Capture = False
|
|||
|
|
|
|||
|
|
Const WM_NCLBUTTONDOWN As Integer = &HA1S
|
|||
|
|
Const HTCAPTION As Integer = 2
|
|||
|
|
Dim msg As Message = _
|
|||
|
|
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
|
|||
|
|
New IntPtr(HTCAPTION), IntPtr.Zero)
|
|||
|
|
Me.DefWndProc(msg)
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick
|
|||
|
|
Me.programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor
|
|||
|
|
Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage
|
|||
|
|
Me.programname.BackColor = Windows95.exampleprogramtext.BackColor
|
|||
|
|
End Sub
|
|||
|
|
End Class
|