LibreOffice 7.5 Help
рд╕рдВрд╡рд╛рджрдорд╛ рдкреНрд░реЛрдореНрдкреНрдЯ рдкреНрд░рджрд░реНрд╢рди рдЧрд░реНрджрдЫ рдЬрд╕рдорд╛ рдкреНрд░рдпреЛрдЧрдХрд░реНрддрд╛рд▓реЗ рдЖрдЧрдд рдкрд╛рдардорд╛ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХреНрдЫрди ред рдпреЛ рдЖрдЧрдд рдЪрд▓рд▓рд╛рдИ рдорд╛рдирд╛рдЩреНрдХрди рдЧрд░рд┐рдиреНрдЫ ред
рдЖрдЧрдд рдмрд╛рдХрд╕ рд╕рдВрд╡рд╛рджрдмрд╛рдЯ рдкрд╛рдардорд╛ рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреЗ рд╕реБрдмрд┐рдзрд╛рдпреБрдХреНрдд рддрд░реАрдХрд╛рдХреЛ рдХрдерди рд╣реЛ ред 'рдареАрдХ рдЫ' рдмрдЯрди рдХреНрд▓рд┐рдХ рдЧрд░реЗрд░ рд╡рд╛ 'рдлрд░реНрдХрдиреБрд╣реЛрд╕реН' рдерд┐рдЪреЗрд░ рдЖрдЧрдд рдпрдХреАрди рдЧрд░реНрдиреБрд╣реЛрд╕реН ред рдпреЛ рдЖрдЧрдд рдкреНрд░рдХрд╛рд░реНрдп рдорд╛рди рдлрд░реНрдХрд┐рдП рдЬрд╕рд░рд┐ рдлрд░реНрдХрд╛рдЗрдиреНрдЫ ред рдпрджрд┐ 'рд░рджреНрдж рдЧрд░реНрдиреБрд╣реЛрд╕реН' рдмрд╛рдЯрд╕рдВрд╡рд╛рдж рдмрдиреНрдж рдЧрд░реНрдиреБрднрдпреЛ рднрдиреЗ,рдЖрдЧрдд рдмрд╛рдХрд╕рд╢реВрдиреНрдп-рд▓рдореНрдмрд╛рдЗ рд╕реНрдЯреНрд░рд┐рдЩ("")рдорд╛ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
InputBox (Prompt As String[, Title As String[, Default As String[, xpostwips As Integer, ypostwips As Integer]]]) As String
prompt: String expression displayed as the message in the dialog box.
title: String expression displayed in the title bar of the dialog box.
default: String expression displayed in the text box as default if no other input is given.
xpostwips: Integer expression that specifies the horizontal position of the dialog. The position is an absolute coordinate and does not refer to the window of LibreOffice.
ypostwips: Integer expression that specifies the vertical position of the dialog. The position is an absolute coordinate and does not refer to the window of LibreOffice.
If xpostwips and ypostwips are omitted, the dialog is centered on the screen. The position is specified in twips.
рд╕реНрдЯреНрд░рд┐рдЩ
Sub ExampleInputBox
Dim sText As String
sText =рдЖрдЧрдд рдмрд╛рдХрд╕("рдХреГрдкрдпрд╛ рдПрдЙрдЯрд╛ рд╡рд╛рдХреНрдпрд╛рдВрд╢ рдкреНрд░рд╡рд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реЛрд╕реН:","рдкреНрд░рд┐рдп рдкреНрд░рдпреЛрдЧрдХрд░реНрддрд╛ ")
рд╕рдВрд╡рд╛рдж рдмрд╛рдХрд╕ ( sText , ремрек, "рд╡рд╛рдХреНрдпрд╛рдВрд╢рдХреЛ рдпрдХреАрди ")
End Sub