immediate input box launch

[portroe]

Hi,

when my forms program starts, I want it to immeduately lauch two input
boxes, without the user having to do anything,

how do I do this?

thanks

Portroe

[Herfried K. Wagner [MVP]]

* portroe <bo*@sleigh.com> scripsit:

when my forms program starts, I want it to immeduately lauch two
input boxes, without the user having to do anything,

Create your own inputbox and show it twice...

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Armin Zingler]

"portroe" <bo*@sleigh.com> schrieb

when my forms program starts, I want it to immeduately lauch two
input boxes, without the user having to do anything,

how do I do this?

Shared Sub Main()
Dim a, b As String
a = InputBox("a")
b = InputBox("b")
'optionally:
Application.Run(New Form1)
End Sub

If in a Module, drop the 'shared' keyword.

--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Herfried K. Wagner [MVP]]

* "Armin Zingler" <az*******@freenet.de> scripsit:

when my forms program starts, I want it to immeduately lauch two
input boxes, without the user having to do anything,

how do I do this?

Shared Sub Main()
Dim a, b As String
a = InputBox("a")
b = InputBox("b")
'optionally:
Application.Run(New Form1)
End Sub

If in a Module, drop the 'shared' keyword.

This will launch 2 inputboxes -- one after the other...

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Cor]

Hi portroe,

I think you can make something like this

\\\form1
Private WithEvents frm3 As New Form3
Private WithEvents frm2 As New Form2
Private Sub frm2_VisibleChanged(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles frm2.VisibleChanged
If frm2.inputfield <> "" Then
Me.Show()
Me.Label1.Text = frm2.inputfield
frm2.Dispose()
End If
End Sub
Private Sub frm3_VisibleChanged(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles frm3.VisibleChanged
If frm3.inputfield <> "" Then
Me.Show()
Me.Label1.Text = frm3.inputfield
frm3.Dispose()
End If
End Sub

Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
frm3.Show()
frm3.TopLevel = True
frm2.Show()
frm2.TopLevel = True
End Sub
///
\\\form2 and 3 the same
Public inputfield As String
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click

inputfield = "sometext"
Me.Hide()
End Sub
///
I hope this helps a little bit?

Cor

when my forms program starts, I want it to immeduately lauch two input
boxes, without the user having to do anything,

how do I do this?

thanks

Portroe

[Armin Zingler]

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> schrieb

* "Armin Zingler" <az*******@freenet.de> scripsit:

when my forms program starts, I want it to immeduately lauch
two input boxes, without the user having to do anything,

how do I do this?

Shared Sub Main()
Dim a, b As String
a = InputBox("a")
b = InputBox("b")
'optionally:
Application.Run(New Form1)
End Sub

If in a Module, drop the 'shared' keyword.

This will launch 2 inputboxes -- one after the other...

Yes, why not? I focused on "immediatelly" and "withouth..do anything". Let's
wait what the poster will tell us.
--
Armin