diff options
| -rw-r--r-- | AllLangHelp_sbasic.mk | 1 | ||||
| -rw-r--r-- | source/auxiliary/sbasic.tree | 1 | ||||
| -rw-r--r-- | source/text/sbasic/shared/doEvents.xhp | 61 |
3 files changed, 63 insertions, 0 deletions
diff --git a/AllLangHelp_sbasic.mk b/AllLangHelp_sbasic.mk index deab5e7f97..42de90dc28 100644 --- a/AllLangHelp_sbasic.mk +++ b/AllLangHelp_sbasic.mk @@ -406,6 +406,7 @@ $(eval $(call gb_AllLangHelp_add_helpfiles,sbasic,\ helpcontent2/source/text/sbasic/shared/CreateUnoSvcWithArgs \ helpcontent2/source/text/sbasic/shared/conventions \ helpcontent2/source/text/sbasic/shared/enum \ + helpcontent2/source/text/sbasic/shared/doEvents \ helpcontent2/source/text/sbasic/shared/ErrVBA \ helpcontent2/source/text/sbasic/shared/fragments \ helpcontent2/source/text/sbasic/shared/partition \ diff --git a/source/auxiliary/sbasic.tree b/source/auxiliary/sbasic.tree index 122ca55363..43f1b1eabf 100644 --- a/source/auxiliary/sbasic.tree +++ b/source/auxiliary/sbasic.tree @@ -137,6 +137,7 @@ <topic id="sbasic/text/sbasic/shared/03102100.xhp">Dim Statement</topic> <topic id="sbasic/text/sbasic/shared/03020404.xhp">Dir Function</topic> <topic id="sbasic/text/sbasic/shared/03090201.xhp">Do...Loop Statement</topic> + <topic id="sbasic/text/sbasic/shared/doEvents.xhp">DoEvents Function</topic> <topic id="sbasic/text/sbasic/shared/03090404.xhp">End Statement</topic> <topic id="sbasic/text/sbasic/shared/enum.xhp">Enum Statement [VBA]</topic> <topic id="sbasic/text/sbasic/shared/03130800.xhp">Environ Function</topic> diff --git a/source/text/sbasic/shared/doEvents.xhp b/source/text/sbasic/shared/doEvents.xhp new file mode 100644 index 0000000000..2900c44bf8 --- /dev/null +++ b/source/text/sbasic/shared/doEvents.xhp @@ -0,0 +1,61 @@ +<?xml version="1.0" encoding="UTF-8"?> +<helpdocument version="1.0"> + <!-- + * This file is part of the LibreOffice project. + * + * This Source Code Form is subject to the terms of the Mozilla Public + * License, v. 2.0. If a copy of the MPL was not distributed with this + * file, You can obtain one at http://mozilla.org/MPL/2.0/. + * + --> + <meta> + <topic id="org.LibreOffice.Help.DoEvents" indexer="include" status="PUBLISH"> + <title id="tit" xml-lang="en-US">DoEvents Function</title> + <filename>/text/sbasic/shared/doEvents.xhp</filename> + </topic> + </meta> + <body> + + <section id="doEvents"> + <bookmark branch="index" xml-lang="en-US" id="N0089"> + <bookmark_value>DoEvents function</bookmark_value> + </bookmark> + <bookmark id="bm_id341544551916349" xml-lang="en-US" branch="hid/zzzz" localize="false"/> + <h1 id="hd_id401544551916353"><link href="text/sbasic/shared/doEvents.xhp" name="DoEvents">DoEvents Function</link></h1> + <paragraph role="paragraph" id="N0091">Transfers control to the operating system during macro execution, so that it can process the events in waiting.</paragraph> + <note id="par_id511668006240908"><literal>DoEvents</literal> provides compatibility with VBA. It always returns 0. Using it in %PRODUCTNAME is not necessary.</note> + </section> + <embed href="text/sbasic/shared/00000003.xhp#functsyntax"/> + <bascode> + <paragraph role="bascode" id="N0092" localize="false">[Call] DoEvents[()] As Integer</paragraph> + </bascode> + <embed href="text/sbasic/shared/00000003.xhp#functexample"/> + <bascode> + <paragraph role="bascode" id="bas_id321668008155736" localize="false">Sub DoEventsExample</paragraph> + <paragraph role="bascode" id="bas_id971668008155959" localize="false"> Dim i As Long, sheet As Object, cell As Object</paragraph> + <paragraph role="bascode" id="bas_id441668008156303" xml-lang="en-US"> sheet = ThisComponent.Sheets.getByIndex(0) ' sheet 1</paragraph> + <paragraph role="bascode" id="bas_id316680008156501" xml-lang="en-US"> cell = sheet.getCellByPosition(0,0) ' cell A1</paragraph> + <paragraph role="bascode" id="bas_id816680081560679" localize="false"> For i = 1 To 20000</paragraph> + <paragraph role="bascode" id="bas_id421668008156870" localize="false"> cell.setString(Str(i))</paragraph> + <paragraph role="bascode" id="bas_id121668008157054" localize="false"> DoEvents</paragraph> + <paragraph role="bascode" id="bas_id601668008157253" localize="false"> Next i</paragraph> + <paragraph role="bascode" id="bas_id361668008158286" localize="false">End Sub ' DoEventsExample</paragraph> + </bascode> + <bascode> + <paragraph role="bascode" id="bas_id716680050893205" localize="false">Sub DoEvents_example</paragraph> + <paragraph role="bascode" id="bas_id601668005918217" localize="false"> Dim i As Long, uiDoc As Object</paragraph> + <paragraph role="bascode" id="bas_id901668005918762" localize="false"> GlobalScope.BasicLibraries.LoadLibrary("ScriptForge")</paragraph> + <paragraph role="bascode" id="bas_id561668005919132" localize="false"> Set ui = CreateScriptService("SFDocuments.Calc", ThisComponent)</paragraph> + <paragraph role="bascode" id="bas_id851668005919324" localize="false"> For i = 1 To 20000</paragraph> + <paragraph role="bascode" id="bas_id761668005919489" localize="false"> ui.SetValue("A1", i)</paragraph> + <paragraph role="bascode" id="bas_id981668005919668" localize="false"> DoEvents</paragraph> + <paragraph role="bascode" id="bas_id321668005919835" localize="false"> Next i</paragraph> + <paragraph role="bascode" id="bas_id816680059020060" localize="false"> ui.Dispose()</paragraph> + <paragraph role="bascode" id="bas_id421668005921071" localize="false">End Sub ' DoEvents_example</paragraph> + </bascode> + <section id="relatedtopics"> + <embed href="text/sbasic/shared/03/lib_ScriptForge.xhp#ScriptForge_lib"/> + </section> +</body> +</helpdocument> + |