blob: aed56ebe9e290a1152228b5154877d7f20daec3b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Public Class basicwm_infobox
Public userinput As String
Public Sub showinfo(title As String, message As String, Optional showtextbox As Boolean = False)
Titlebar.AppName = title
Titlebar.shiftorium_special()
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
|
