diff options
| author | TheUltimateHacker <[email protected]> | 2015-05-21 20:33:08 -0400 |
|---|---|---|
| committer | TheUltimateHacker <[email protected]> | 2015-05-21 20:33:08 -0400 |
| commit | ed36135241a8d6d8ab4005a55f89ab8765f1a969 (patch) | |
| tree | a16e0f408cb0c330b530a7ab7454ddab4f53ba16 /shiftos_next/basicwm_infobox.vb | |
| parent | 1fcbee8dab0524cb2b1aecd5bb2521acdfe6b541 (diff) | |
| download | shiftos-next-ed36135241a8d6d8ab4005a55f89ab8765f1a969.tar.gz shiftos-next-ed36135241a8d6d8ab4005a55f89ab8765f1a969.tar.bz2 shiftos-next-ed36135241a8d6d8ab4005a55f89ab8765f1a969.zip | |
Commit for latest Alpha (0.0.1 Alpha 1)
See the post on shiftos.net for more info.
Diffstat (limited to 'shiftos_next/basicwm_infobox.vb')
| -rw-r--r-- | shiftos_next/basicwm_infobox.vb | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/shiftos_next/basicwm_infobox.vb b/shiftos_next/basicwm_infobox.vb new file mode 100644 index 0000000..e4ffa55 --- /dev/null +++ b/shiftos_next/basicwm_infobox.vb @@ -0,0 +1,19 @@ +Public Class basicwm_infobox + + Public userinput As String + + Public Sub showinfo(title As String, message As String, Optional showtextbox As Boolean = False) + lbtitle.Text = title + lbmessage.Text = message + btnok.Text = "> OK <" + txtuserinput.Visible = showtextbox + Me.StartPosition = FormStartPosition.CenterScreen + Me.TopMost = True + Me.ShowDialog() + End Sub + + Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click + userinput = txtuserinput.Text + Me.Close() + End Sub +End Class
\ No newline at end of file |