Keine Werbeeinblendungen für registrierte User

❤ SPENDEN Sie jetzt für das ❤
🙏 LibreOffice Forum 🙏



  🌹 Danke für Ihre Unterstützung 🌹


[teilgelöst] Alternative zur Inputbox ?

Alles zur Programmierung im LibreOffice.
Antworten
wega
Beiträge: 87
Registriert: Mi 16. Jul 2014, 19:15

[teilgelöst] Alternative zur Inputbox ?

Beitrag von wega » Fr 5. Aug 2022, 18:35

Hallo zusammen,

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

Mit freundlichem Gruß
Werner
Zuletzt geändert von wega am Sa 6. Aug 2022, 17:37, insgesamt 1-mal geändert.

craig
Beiträge: 1134
Registriert: Do 21. Apr 2016, 11:42

Re: Alternative zur Inputbox ?

Beitrag von craig » Fr 5. Aug 2022, 19:17

Hallo Werner,

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

Craig

Nie die Sicherungskopie vergessen!

════════════════════════════════════════════════
WIN 10 Pro 64-Bit • LO 7.1.0.3 (x64) • AOO 4.1.8

wega
Beiträge: 87
Registriert: Mi 16. Jul 2014, 19:15

Re: Alternative zur Inputbox ?

Beitrag von wega » Fr 5. Aug 2022, 20:31

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
Beiträge: 1134
Registriert: Do 21. Apr 2016, 11:42

Re: Alternative zur Inputbox ?

Beitrag von craig » Sa 6. Aug 2022, 12:03

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.
Gruß

Craig

Nie die Sicherungskopie vergessen!

════════════════════════════════════════════════
WIN 10 Pro 64-Bit • LO 7.1.0.3 (x64) • AOO 4.1.8

wega
Beiträge: 87
Registriert: Mi 16. Jul 2014, 19:15

Re: Alternative zur Inputbox ?

Beitrag von wega » Sa 6. Aug 2022, 17:36

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

Antworten