Seite 1 von 1
[teilgelöst] Alternative zur Inputbox ?
Verfasst: Fr 5. Aug 2022, 18:35
von wega
Hallo zusammen,
gibt es in BASIC noch eine andere Möglichkeit
als die "Inputbox" ?
Mit freundlichem Gruß
Werner
Re: Alternative zur Inputbox ?
Verfasst: Fr 5. Aug 2022, 19:17
von craig
Hallo Werner,
z.B. einen Dialog mit Textbox (ein- oder mehrzeilig) und einem OK-Button, usw.
Re: Alternative zur Inputbox ?
Verfasst: Fr 5. Aug 2022, 20:31
von 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
Re: Alternative zur Inputbox ?
Verfasst: Sa 6. Aug 2022, 12:03
von 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.
- 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
- 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
- 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.
Re: Alternative zur Inputbox ?
Verfasst: Sa 6. Aug 2022, 17:36
von 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