ບໍລິການ SFWidgets.ToolbarButton

ບໍລິການ ToolbarButton ຊ່ວຍໃຫ້ສາມາດດຶງຂໍ້ມູນທີ່ກ່ຽວຂ້ອງກັບປຸ່ມແຖບເຄື່ອງມືທີ່ມີຢູ່ໃນແຖບເຄື່ອງມືທີ່ກຳນົດ. ດ້ວຍບໍລິການນີ້, ທ່ານສາມາດ:

ສະຫຼັບການສະແດງຜົນ (ເປີດ/ປິດ) ຂອງອົງປະກອບແຖບເຄື່ອງມື.
ປະຕິບັດຄຳສັ່ງທີ່ກ່ຽວຂ້ອງກັບປຸ່ມແຖບເຄື່ອງມືທີ່ກຳນົດ.

ການເອີ້ນໃຊ້ບໍລິການ

ກ່ອນທີ່ຈະໃຊ້ບໍລິການ ToolbarButton, ໄລບຣາລີ ScriptForge ຈະຕ້ອງຖືກໂຫຼດ ຫຼື ນຳເຂົ້າກ່ອນ:

• ມາໂຄຣ Basic ຕ້ອງມີການໂຫຼດຄັງສຳນວນ ScriptForge ໂດຍໃຊ້ຄຳສັ່ງດັ່ງນີ້:
GlobalScope.BasicLibraries.loadLibrary("ScriptForge")

• ສະຄຣິບ Python ຕ້ອງມີການນຳເຂົ້າຈາກໂມດູນ scriptforge:
from scriptforge import CreateScriptService

ບໍລິການ ToolbarButton ຖືກເອີ້ນໃຊ້ໂດຍວິທີການ ToolbarButtons ຈາກບໍລິການ Toolbar.

ໃນ Basic

ຕົວຢ່າງດ້ານລຸ່ມນີ້ຈະດຶງຊື່ຂອງປຸ່ມທັງໝົດທີ່ມີຢູ່ໃນແຖບເຄື່ອງມື Standard.


    oDoc = CreateScriptService("Document", ThisComponent)
    oToolbar = oDoc.Toolbars("standardbar")
    arrToolbarButtons = oToolbar.ToolbarButtons()
    MsgBox SF_String.Represent(arrToolbarButtons)

ໃຊ້ວິທີການ ToolbarButtons ໂດຍບໍ່ມີອາກິວເມນ ເພື່ອດຶງອາເຣຂອງຊື່ປຸ່ມແຖບເຄື່ອງມືທີ່ມີຢູ່ທັງໝົດ.

ຕົວຢ່າງດ້ານລຸ່ມນີ້ຈະສະຫຼັບການສະແດງຜົນຂອງປຸ່ມ Print ໃນແຖບເຄື່ອງມື Standard:


    oDoc = CreateScriptService("Document", ThisComponent)
    oToolbar = oDoc.Toolbars("standardbar")
    oToolbarButton = oToolbar.ToolbarButtons("Print")
    oToolbarButton.Visible = Not oToolbarButton.Visible

ຊື່ປຸ່ມທີ່ສົ່ງເປັນອາກິວເມນໄປຍັງວິທີການ ToolbarButtons ແມ່ນຊື່ປຸ່ມທີ່ແປເປັນພາສາທ້ອງຖິ່ນຕາມທີ່ກຳນົດໄວ້ໃນກ່ອງໂຕ້ຕອບ Tools - Customize - Toolbars.

ແຖບເຄື່ອງມືທີ່ບໍ່ໄດ້ເຮັດວຽກຈະບໍ່ມີປຸ່ມ. ດັ່ງນັ້ນ, ການເອີ້ນໃຊ້ວິທີການ ToolbarButtons ຈະເຮັດໃຫ້ແຖບເຄື່ອງມືສະແດງໃຫ້ເຫັນ.

ໃນ Python


    bas = CreateScriptService("Basic")
    doc = CreateScriptService("Document", bas.ThisComponent)
    toolbar = doc.Toolbars("standardbar")
    arr_toolbar_buttons = toolbar.ToolbarButtons()
    bas.MsgBox(repr(arr_toolbar_buttons))


    bas = CreateScriptService("Basic")
    doc = CreateScriptService("Document", bas.ThisComponent)
    toolbar = doc.Toolbars("standardbar")
    toolbar_button = toolbar.ToolbarButtons("Print")
    toolbar_button.Visible = not toolbar_button.Visible

ຄຸນສົມບັດ

ຊື່	ອ່ານຢ່າງດຽວ	ປະເພດ	ຄຳອະທິບາຍ
Caption	ແມ່ນ	String	ສົ່ງຄືນຊື່ຂອງປຸ່ມ.
Height	ແມ່ນ	Long	ສົ່ງຄືນຄວາມສູງຂອງປຸ່ມ, ເປັນພິກເຊວ.
Index	ແມ່ນ	Long	ສົ່ງຄືນລຳດັບ (index) ຂອງປຸ່ມໃນແຖບເຄື່ອງມືຫຼັກ.
OnClick	ບໍ່ແມ່ນ	String	ຄຳສັ່ງ UNO ຫຼື ສະຄຣິບທີ່ຖືກປະຕິບັດເມື່ອປຸ່ມຖືກກົດ. ອ່ານໜ້າ Wiki Scripting Framework URI Specification ເພື່ອຮຽນຮູ້ເພີ່ມເຕີມກ່ຽວກັບວິທີກຳນົດຂໍ້ຄວາມ URI.
Parent	ແມ່ນ	ບໍລິການ Toolbar	ສົ່ງຄືນອິນສະແຕນຊ໌ຂອງບໍລິການ Toolbar ທີ່ກົງກັບແຖບເຄື່ອງມືຫຼັກຂອງປຸ່ມແຖບເຄື່ອງມືປັດຈຸບັນ.
TipText	ບໍ່ແມ່ນ	String	ກຳນົດຂໍ້ຄວາມແນະນຳ (tooltip) ທີ່ຈະສະແດງເມື່ອຜູ້ໃຊ້ເລື່ອນເມົາສ໌ໄປວາງເທິງປຸ່ມແຖບເຄື່ອງມື.
Visible	ບໍ່ແມ່ນ	Boolean	ກຳນົດວ່າຈະໃຫ້ປຸ່ມແຖບເຄື່ອງມືສະແດງໃຫ້ເຫັນຫຼືບໍ່.
Width	ແມ່ນ	Long	ສົ່ງຄືນຄວາມກວ້າງຂອງປຸ່ມ, ເປັນພິກເຊວ.
X	ແມ່ນ	Long	ສົ່ງຄືນຄ່າພິກັດ X (ແນວນອນ) ຂອງມຸມເທິງຊ້າຍຂອງປຸ່ມ, ເປັນພິກເຊວ.
Y	ແມ່ນ	Long	ສົ່ງຄືນຄ່າພິກັດ Y (ແນວຕັ້ງ) ຂອງມຸມເທິງຊ້າຍຂອງປຸ່ມ, ເປັນພິກເຊວ.

ການໃຊ້ ToolbarButton ຮ່ວມກັບບໍລິການ PopupMenu

ກໍລະນີການໃຊ້ງານທົ່ວໄປຂອງຄຸນສົມບັດ X ແລະ Y ທີ່ໄດ້ກ່າວມາຂ້າງເທິງ ແມ່ນເພື່ອເປີດເມນູປັອບອັບໃນຕຳແໜ່ງທີ່ປຸ່ມແຖບເຄື່ອງມືຕັ້ງຢູ່.

ສົມມຸດວ່າທ່ານສ້າງສະຄຣິບດ້ານລຸ່ມນີ້ ແລະ ເຊື່ອມໂຍງມັນກັບປຸ່ມທີ່ຊື່ວ່າ "My Button" ໃນ standardbar. ເມື່ອມັນຖືກຄລິກ, ເມນູປັອບອັບຈະສະແດງຂຶ້ນພ້ອມກັບ 3 ຕົວເລືອກໃຫ້ຜູ້ໃຊ້ເລືອກ.

ໃນ Basic


    Sub OpenPopupMenu()
        GlobalScope.BasicLibraries.LoadLibrary("ScriptForge")
        oDoc = CreateScriptService("Document", ThisComponent)
        oToolbar = oDoc.Toolbars("standardbar")
        oButton = oToolbar.ToolbarButtons("My Button")
        oPopup = CreateScriptService("SFWidgets.PopupMenu", , oButton.X, oButton.Y + oButton.Height)
        oPopup.AddItem("Item A", "A")
        oPopup.AddItem("Item B", "B")
        oPopup.AddItem("Item C", "C")
        strResponse = oPopup.Execute(False)
        MsgBox "ທາງເລືອກຂອງທ່ານ: " & strResponse
    End Sub

ໃນ Python


    def open_popup_menu(args=None):
        bas = CreateScriptService("Basic")
        doc = CreateScriptService("Document", bas.ThisComponent)
        toolbar = doc.Toolbars("standardbar")
        toolbutton = toolbar.ToolbarButtons("My Button")
        popup = CreateScriptService("PopupMenu", None, toolbutton.X, toolbutton.Y + toolbutton.Height)
        popup.AddItem("Item A", "A")
        popup.AddItem("Item B", "B")
        popup.AddItem("Item C", "C")
        response = popup.Execute(False)
        bas.MsgBox(f"ທາງເລືອກຂອງທ່ານ: {response}")

ລາຍຊື່ວິທີການໃນບໍລິການ ToolbarButton
Execute

Execute

ປະຕິບັດຄຳສັ່ງ ຫຼື ສະຄຣິບທີ່ກ່ຽວຂ້ອງກັບປຸ່ມແຖບເຄື່ອງມື.

ວິທີການນີ້ຈະສົ່ງຄືນຄ່າທີ່ໄດ້ຈາກຄຳສັ່ງ ຫຼື ສະຄຣິບທີ່ຖືກປະຕິບັດ.

ໃຊ້ຄຸນສົມບັດ OnClick ເພື່ອກຳນົດຄຳສັ່ງ ຫຼື ສະຄຣິບທີ່ຈະຖືກປະຕິບັດ. ຖ້າຄຳສັ່ງ/ສະຄຣິບບໍສົ່ງຄືນຄ່າໃດໆ, ມັນຈະສົ່ງຄ່າ Null ກັບຄືນມາ.

ໄວຍາກອນ:

svc.Execute(): any

ຕົວຢ່າງ:

ຕົວຢ່າງດ້ານລຸ່ມນີ້ຈະປະຕິບັດຄຳສັ່ງຂອງປຸ່ມ Print ຈາກແຖບເຄື່ອງມື Standard:

ໃນ Basic


      oDoc = CreateScriptService("Document", ThisComponent)
      oToolbar = oDoc.Toolbars("standardbar")
      oToolbarButton = oToolbar.ToolbarButtons("Print")
      oToolbarButton.Execute()

ໃນ Python


      bas = CreateScriptService("Basic")
    doc = CreateScriptService("Document", bas.ThisComponent)
    toolbar = doc.Toolbars("standardbar")
    toolbar_button = toolbar.ToolbarButtons("Print")
    toolbar_button.Execute()

ຣູທີນ ຫຼື ຕົວລະບຸ Basic ຂອງ ScriptForge ທັງໝົດທີ່ຂຶ້ນຕົ້ນດ້ວຍເຄື່ອງໝາຍຂີດກ້ອງ "_" ແມ່ນສະຫງວນໄວ້ສຳລັບໃຊ້ພາຍໃນ. ພວກມັນບໍ່ໄດ້ມີໄວ້ໃຫ້ໃຊ້ໃນມາໂຄຣ Basic ຫຼື ສະຄຣິບ Python.

ບໍລິການ SFWidgets.Toolbar