So I have this to create a window.
Since I've only ever programmed in C++ I don't know how to manipulate the message loop like in C++.
I've searched google for hours and I've literally found nothing. Can anyone here help me?
Code:
Imports System.Drawing
Imports System.Drawing.Color
Imports System.Windows.Forms
Module Module1
Sub Main()
Dim Window1 As New Form()
Window1.Width = Screen.PrimaryScreen.Bounds.Width / 2
Window1.Height = Screen.PrimaryScreen.Bounds.Height / 2
Window1.Text = "Untitled v1"
Window1.BackColor = Gray
Window1.FormBorderStyle = FormBorderStyle.Sizable
Window1.MaximizeBox = True
Window1.MinimizeBox = True
Window1.StartPosition = FormStartPosition.Manual
Window1.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 4, Screen.PrimaryScreen.Bounds.Height / 4)
Window1.ShowDialog()
End Sub
End Module
Imports System.Drawing.Color
Imports System.Windows.Forms
Module Module1
Sub Main()
Dim Window1 As New Form()
Window1.Width = Screen.PrimaryScreen.Bounds.Width / 2
Window1.Height = Screen.PrimaryScreen.Bounds.Height / 2
Window1.Text = "Untitled v1"
Window1.BackColor = Gray
Window1.FormBorderStyle = FormBorderStyle.Sizable
Window1.MaximizeBox = True
Window1.MinimizeBox = True
Window1.StartPosition = FormStartPosition.Manual
Window1.Location = New Point(Screen.PrimaryScreen.Bounds.Width / 4, Screen.PrimaryScreen.Bounds.Height / 4)
Window1.ShowDialog()
End Sub
End Module
Since I've only ever programmed in C++ I don't know how to manipulate the message loop like in C++.
Code:
while (msg.message != WM_QUIT)
{
...
}
{
...
}
I've searched google for hours and I've literally found nothing. Can anyone here help me?