---

hallo zusammen

evtl. kann mir "hier drüben" jemand zum offenen problem helfen?
http://ww3.cad.de/foren/ubb/Forum442/HTML/000227.shtml

.

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Sirus,

ich kann deinem Problem nicht ganz folgen?
Möchtest du einfach einen Dialog, in welchem der Anwender nach Eingaben abgefragt wird?
Da kann ich dich nur auf das Kapitel 15 im Visual Basic Openbook verweißen.

------------------
Mfg Daniel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo danile

danke für deine rasche antwort.
ich habe keine entwicklerumgebung und bin auch nicht programmierer.

ich bin auf der suche nach dem code selber!
wie du ja an meinem programm siehst bringe ich das hin,
leider aber mit 3 fenstern anstelle von einem!

wie muss das prog aussehen???

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wenn du so etwas machen möchtest würde ich dir sehr empfehlen dich in die Programmierung einzuarbeiten.
Ein "Wie sieht der Code aus?" bringt doch nichts!
Es handelt sich dabei um absolute Grundlagen, welche man kennen sollte.
Beispiele sind in diesem Kapitel und auf vielen anderen Seiten im Netz verfügbar!

------------------
Mfg Daniel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo daniel

ja, ich gebe dir 100% recht.
ich bin auch daran mich in die programmierung einzuarbeiten.

jedoch habe ich ein konkretes programm zu machen,
und mir läuft die zeit davon (chef), also wollte ich mir hilfe zum letzten offenen
punkt aus dem netz holen, dies scheint aber leider schwieriger als ich dachte....
schade....

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Also jetzt noch mal ganz langsam zum Mitmeiseln!
Kapitel 15.9 Dialogfenster. Lesse dir das durch, mehr kann ich nicht sagen.
Oder willst du, dass ich dir das jetzt programmiere und vorkaue?
Es wird kein, genau auf dich abgestimmtes Beispiel geben sondern nur allgemeine Informationen, welche du in deinem Programm verwenden und anpassen kannst!

------------------
Mfg Daniel

   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo daniel
>>Oder willst du, dass ich dir das jetzt programmiere und vorkaue?

ja, das wäre doch toll!

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo zusammen

ihr habt recht, es geht mit einer entwicklungsumgebung (sharp Develop) sehr einfach.
sorry an alle, wusste gar nicht das es sowas cooles gibt!

frage dazu:

unten nun mein "gebasteltes" eingabefenster.
nun hat mir evtl. jemand noch einen typ, wie ich es schaffe,
das die eingaben auch als string weiterhin im programm zur verfügung stehen.

darauf bin ich leider noch nicht gekommen,
vielen dank für euer hilfe schon im voraus!

------------------

Option Strict Off
Imports System
Imports System.Drawing
Imports System.Windows.Forms

Imports NXOpen

Module NXJournal

Dim theSession As Session = Session.GetSession()
Dim theUI As UI = UI.GetUI()

Public Class MainForm

Inherits System.Windows.Forms.Form
Private label3 As System.Windows.Forms.Label
Private button2 As System.Windows.Forms.Button
Private label2 As System.Windows.Forms.Label
Private button As System.Windows.Forms.Button
Private label As System.Windows.Forms.Label
Private textBox As System.Windows.Forms.TextBox
Private textBox3 As System.Windows.Forms.TextBox
Private textBox2 As System.Windows.Forms.TextBox

Public Shared Sub Main

Dim fMainForm As New MainForm
fMainForm.ShowDialog()

End Sub

Public Sub New()
MyBase.New

Me.InitializeComponent

End Sub

Private Sub InitializeComponent()

Me.textBox2 = New System.Windows.Forms.TextBox
Me.textBox3 = New System.Windows.Forms.TextBox
Me.textBox = New System.Windows.Forms.TextBox
Me.label = New System.Windows.Forms.Label
Me.button = New System.Windows.Forms.Button
Me.label2 = New System.Windows.Forms.Label
Me.button2 = New System.Windows.Forms.Button
Me.label3 = New System.Windows.Forms.Label
Me.SuspendLayout

'textBox2

Me.textBox2.Location = New System.Drawing.Point(8, 144)
Me.textBox2.Name = "textBox2"
Me.textBox2.Size = New System.Drawing.Size(272, 21)
Me.textBox2.TabIndex = 1
Me.textBox2.Text = ""

'textBox3

Me.textBox3.Location = New System.Drawing.Point(8, 88)
Me.textBox3.Name = "textBox3"
Me.textBox3.Size = New System.Drawing.Size(272, 21)
Me.textBox3.TabIndex = 2
Me.textBox3.Text = ""

'textBox

Me.textBox.Location = New System.Drawing.Point(8, 32)
Me.textBox.Name = "textBox"
Me.textBox.Size = New System.Drawing.Size(272, 21)
Me.textBox.TabIndex = 0
Me.textBox.Text = ""

'label

Me.label.Location = New System.Drawing.Point(8, 8)
Me.label.Name = "label"
Me.label.Size = New System.Drawing.Size(272, 23)
Me.label.TabIndex = 5
Me.label.Text = "Abfrage 1"

'button "OK"

Me.button.DialogResult = System.Windows.Forms.DialogResult.OK
Me.button.Location = New System.Drawing.Point(64, 184)
Me.button.Name = "button"
Me.button.TabIndex = 3
Me.button.Text = "OK"

'label2

Me.label2.Location = New System.Drawing.Point(8, 64)
Me.label2.Name = "label2"
Me.label2.Size = New System.Drawing.Size(264, 23)
Me.label2.TabIndex = 6
Me.label2.Text = "Abfrage 2"

'button "Cancel"

Me.button2.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.button2.Location = New System.Drawing.Point(152, 184)
Me.button2.Name = "button2"
Me.button2.TabIndex = 4
Me.button2.Text = "Cancel"

'label3

Me.label3.Location = New System.Drawing.Point(8, 120)
Me.label3.Name = "label3"
Me.label3.Size = New System.Drawing.Size(272, 23)
Me.label3.TabIndex = 7
Me.label3.Text = "Abfrage 3"

'MainForm

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14)
Me.ClientSize = New System.Drawing.Size(292, 222)
Me.Controls.Add(Me.label3)
Me.Controls.Add(Me.label2)
Me.Controls.Add(Me.label)
Me.Controls.Add(Me.button2)
Me.Controls.Add(Me.button)
Me.Controls.Add(Me.textBox3)
Me.Controls.Add(Me.textBox2)
Me.Controls.Add(Me.textBox)
Me.Name = "MainForm"
Me.Text = "Eingabeaufforderung"
Me.ResumeLayout(false)

End Sub

End Class

End Module

-------------

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

das lässt sich leicht mit einer Dialog Funktion realisieren.
Zum Beispiel so:

Code:

---

    Friend Function DialogFunktion(ByRef sEingabe1 As String, _
                ByRef sEingabe2 As String, ByRef sEingabe3 As String) As Boolean
        If Me.ShowDialog = Windows.Forms.DialogResult.OK Then
            sEingabe1 = Me.TextBox.Text
            sEingabe2 = Me.TextBox2.Text
            sEingabe3 = Me.TextBox3.Text
            Return True
        Else
            Return False
        End If
    End Function

---

Diese fügst du einfach in dein Formular ein und rufst Sie von einer anderen Klasse oder Formular auf.

------------------
Mfg Daniel

   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo daniel

vielen dank für deine antwort.
wie du ja weisst bin ich noch anfänger...

habe noch nicht ganz begriffen wo ich das im prog einfügen muss,
hast du mir noch mehr infos dazu, vielen dank.

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP