---

hallo zusammen

ist es möglich das nachfolgenden prog so anzupassen,
dass die eingabe mit der "enter"-taste abgeschlossen werden kann?

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

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpenUI

Module NXJournal
Sub Main

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

'Eingabeaufforderung

Dim ib As NXInputBox

Dim EINGABE1 As String
EINGABE1 = ib.GetInputString("Abfrage 1", "Eingabeaufforderung", "Text")

End Sub
End Module

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

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

---

hallo zusammen

41 forums-besucher haben diese beitrag gelesen.
nun frage ich mich, ob hier wirklich keiner helfen kann,
da es keine lösung gibt, oder es zu einfach ist um hier eine
antwort zu geben, weil zu stolz...

jedoch finde ich, dass genau dieses forum dafür da ist,
den anderen die in der klemme sitzen zu helfen, auch wenn es
eine einfache frage ist!

würde mich also über lösungsansätze freuen,
auch über infos wie zb: "ich kenne leider keine lösung dafür"...
oder was das einfach etwas "licht ins dunkle" bringt, vielen danke.

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

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

---

Hallo Sirus,
nimm die "normale" Inputbox-Funktion.
Dann klappts auch mit der Enter-Taste.

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpenUI

Module NXJournal
Sub Main
Dim theSession As Session = Session.GetSession()
Dim theUI As UI = UI.GetUI()
'Eingabeaufforderung
Dim EINGABE1 As String = inputbox("Abfrage 1", "Eingabeaufforderung", "Text")
End Sub
End Module

MfG
Chris

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

---

hallo chris

vielen dank!!! 

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

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

---

hallo

kann die position der box auch noch definiert werden?

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

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

---

Der Beitrag ist zwar schon etwas her, aber Gockel(n) hilft immer noch 
http://msdn2.microsoft.com/de-de/library/6z0ak68w(VS.80).aspx

Code:

---

Public Function InputBox( _
  ByVal Prompt As String, _
  Optional ByVal Title As String = "", _
  Optional ByVal DefaultResponse As String = "", _
  Optional ByVal Xpos As Integer = -1, _
  Optional ByVal YPos As Integer = -1 _
) As String

---

XPos
Optional. Ein numerischer Ausdruck, der den Abstand des linken Dialogfeldrands vom linken Bildschirmrand in Pixel angibt. Wenn Sie XPos und YPos weglassen, wird das Dialogfeld auf dem Bildschirm zentriert.

YPos
Optional. Ein numerischer Ausdruck, der den Abstand des oberen Dialogfeldrands vom oberen Bildschirmrand in Pixel angibt. Wenn Sie XPos und YPos weglassen, wird das Dialogfeld auf dem Bildschirm zentriert.

Code:

---

Option Strict Off
Imports System
Imports NXOpen

Module NXJournal
Sub Main

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

Dim message, title, defaultValue As String
Dim myValue As Object
' Set prompt.
message = "Enter a value between 1 and 3"
' Set title.
title = "InputBox Demo"
defaultValue = "1"  ' Set default value.

' Display message, title, and default value.
myValue = InputBox(message, title, defaultValue)
' If user has clicked Cancel, set myValue to defaultValue
If myValue Is "" Then myValue = defaultValue

' Display dialog box at position 100, 100.
myValue = InputBox(message, title, defaultValue, 100, 100)
' If user has clicked Cancel, set myValue to defaultValue
If myValue Is "" Then myValue = defaultValue

End Sub
End Module

---

Cheers

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