[teilgelöst] Alternative zur Inputbox ?

[wega]

Hallo zusammen,

gibt es in BASIC noch eine andere Möglichkeit
als die "Inputbox" ?

Mit freundlichem Gruß
Werner

[craig]

Hallo Werner,

z.B. einen Dialog mit Textbox (ein- oder mehrzeilig) und einem OK-Button, usw.

[wega]

Hallo Craig,

danke für Deine schnelle Antwort.

Ja, Dialog ist mir bekannt.
Ich dachte an eine Lösung ohne Dialog, ähnlich
wie "Inputbox". Nur eben in der Größe einstellbar,
denn "Inputbox" geht ja beinahe über die ganze Bildschirmbreite.

mit freundlichem Gruß
Werner

[craig]

Hallo Werner,

die Höhe und Breite der Inputbox wird von der Höhe und Breite des Meldungstextes automatisch bestimmt.
Funktion InputBox

Also wenn der Meldungs-Parameter kurz ist, dann hat die Box eine geringe Breite.
Es gibt keine Möglichkeit die Breite anders zu beeinflussen, einzig die Positionierung läßt
sich per Parameter(x_Position_twips und y_Position_twips) beeinflussen.

1. Meldungsparameter Min-Breite und -Höhe:

   Code: Alles auswählen

   Sub ExampleInputBox1
   Dim sText As String
       sText = InputBox ("K","Lieber Benutzer")
       MsgBox ( sText , 64, "Bestätigung des Gedankens")
   End Sub
   

2. Meldungsparameter sehr breit

   Code: Alles auswählen

   Sub ExampleInputBox2
   Dim sText As String
       sText = InputBox ("Bitte geben einen Gedanken ein: Bitte geben einen Gedanken ein: Bitte geben einen Gedanken ein: Bitte geben einen Gedanken ein: ","Lieber Benutzer")
       MsgBox ( sText , 64, "Bestätigung des Gedankens")
   End Sub
   

3. Meldungsparameter geringere Breite, dafür höher

   Code: Alles auswählen

   Sub ExampleInputBox3
   Dim sText As String
       sText = InputBox ("Bitte geben einen Gedanken ein: " & Chr(10) & _
       					"Bitte geben einen Gedanken ein:  " & Chr(10) & _
       						"Bitte geben einen Gedanken ein:  " & Chr(10) & _
       							"Bitte geben einen Gedanken ein: " & Chr(10) & _
       								"Bitte geben einen Gedanken ein: ","Lieber Benutzer")
       MsgBox ( sText , 64, "Bestätigung des Gedankens")
   End Sub
   

Mit einem zweckentfremdeten Dialog man mehr Einstellparameter.

[wega]

Hallo Craig,

vielen Dank für Deine Mühen.
So weit war mir das mit der "Inputbox" bekannt.
Eigentlich ist es schade, dass die Entwickler noch keine "Inputanweisung" geschrieben haben,
die von der Textlänge abhängig ist, wie:

sText = Input ("Anfangswert x = : ")

Das wäre eine Eingabefunktion, wie man sie auch ähnlich bei anderen BASIC's findet.

Mit Gruß
Werner