Code Sample funktioniert leider auch nicht. Man kann die Postion nicht verändern. Standlard Location ohne Parameter ist middle of Screen. anny Value puts the msg left Top of the scren
InputBox(Prompt As String, [Title As String], [Default As String], [XPos], [YPos], [HelpFile, Context]) As String
Wenn jemand eine Lösung hat, Hilfe wird gerne angenommen. Danke im Voraus.
Hier mal ein paar Beispiele:
Private Sub Coding_DblClick(Cancel As Integer)
'Dim Mldg, Titel, Voreinstellung, Wert1
'Mldg = "Meldung " ' Aufforderung festlegen.
'Titel = "Titlexxxx" ' Titel festlegen.
'Voreinstellung = "Default" ' Voreinstellung festlegen.
' Meldung, Titel und Standardwert anzeigen.
'Wert1 = inputBox(Mldg, Titel, Voreinstellung)
' Hilfedatei und Kontext verwenden. Die Schaltfläche "Hilfe".
' wird automatisch hinzugefügt.
'Wert1 = inputBox(Mldg, Titel, , , , "DEMO.HLP", 10)
' Dialog an der Position 200,50 anzeigen.
'Wert1 = inputBox(Mldg, Titel, Voreinstellung, -100, -200)
'___________________________________________________________
Dim Ausgabe As String
Dim Prompt As String
Dim Title As String
Dim Default As String
Dim xPos As String
Dim yPos As String
Dim Helpfile As String
Dim context As String
Prompt = "Geben Sie einen Wert ein"
Title = "Wert = "
Default = "5"
xPos = ""
yPos = ""
Helpfile = ""
context = ""
'Ausgabe = inputBox([Prompt], [Title], [Default], [xPos], [yPos], [Helfile], [context])as String
Ausgabe = inputBox(Prompt, Title, Default, 0, 0)
End Sub
