Π‘ΡΠ΅Π΄Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ IDE ΡΠ·ΡΠΊΠ° ΠΠ. ΠΎ Basic ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π½Π΅ ΡΠΎΠ»ΡΠΊΠΎ ΠΌΠ΅Ρ
Π°Π½ΠΈΠ·ΠΌ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ², Π½ΠΎ ΠΈ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ ΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΡΠ΅ ΡΠΎΡΠΌΡ (ΠΎΠΊΠ½Π° Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ² ΠΈΠ»ΠΈ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΈ) Π΄Π»Ρ Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΡ Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ. ΠΠ°ΠΌΠ΅ΡΠΈΠΌ, ΡΡΠΎ Π² VBA Π°Π½Π°Π»ΠΎΠ³ΠΎΠΌ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ² ΡΠ²Π»ΡΡΡΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠ΅ ΡΠΎΡΠΌΡ.
ΠΠΈΠ°Π»ΠΎΠ³ ΠΠ. ΠΎ Basic ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΎΠΊΠ½ΠΎ Π΄ΠΈΠ°Π»ΠΎΠ³Π° (ΡΠΎΡΠΌΡ), ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΡΠ°ΠΊΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ, ΠΊΠ°ΠΊ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠ΅ ΠΏΠΎΠ»Ρ, ΠΊΠΎΠΌΠ°Π½Π΄Π½ΡΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ, ΡΠΏΠΈΡΠΊΠΈ, ΠΊΠΎΠΌΠ±ΠΈΠ½ΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΡΠΏΠΈΡΠΊΠΈ, ΠΊΠ½ΠΎΠΏΠΊΠΈ Ρ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΠΉ ΡΠΈΠΊΡΠ°ΡΠΈΠ΅ΠΉ ΠΈ Π΄Ρ.[1]
ΠΠ°ΠΏΡΡΠΊ ΠΈ Π·Π°ΠΊΡΡΡΠΈΠ΅ Π΄ΠΈΠ°Π»ΠΎΠ³Π° ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡΡΡΠ΅ΡΡΠ²ΠΈΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
Dim oDlg As Object Sub StartDialog ().
'Π·Π°Π³ΡΡΠ·ΠΊΠ° Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ
DialogLibraries.LoadLibrary («Standard»).
' ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ° ΡΠΎΡΠΌΡ
oDlg = CreateUnoDialog (DialogLibraries.Standard.MForm) oDlg. execute () 'Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΡ ΡΠΎΡΠΌΡ End Sub.
Sub CloseDialog 'Π·Π°ΠΊΡΡΡΠΈΠ΅ ΡΠΎΡΠΌΡ
oDlg.endExecute ().
End Sub.
Π ΡΡΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ Standard — Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ°, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π½Π°Ρ
ΠΎΠ΄ΠΈΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ MForm. ΠΡΠΎΡΠ΅Π΄ΡΡΡ StartDialog ΠΈ CloseDialog ΠΌΠΎΠ³ΡΡ Π½Π°Π·Π½Π°ΡΠ°ΡΡΡΡ ΠΊΠ°ΠΊ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΡ «ΠΡΠΏΠΎΠ»Π½ΠΈΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅» Π΄Π»Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΡ
ΠΊΠ½ΠΎΠΏΠΎΠΊ Π΄ΠΈΠ°Π»ΠΎΠ³Π° Π² Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠΌ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ΅ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ². Π ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ StartDialog Π²Π½Π°ΡΠ°Π»Π΅ Π·Π°Π³ΡΡΠΆΠ°Π΅ΡΡΡ (ΠΌΠ΅ΡΠΎΠ΄ LoadLibrary) ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠ°Ρ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° (Π² Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Standard). ΠΠ°Π»Π΅Π΅ ΠΏΠΎΡΠ»Π΅ ΠΈΠ½ΠΈΡΠΈΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π΄ΠΈΠ°Π»ΠΎΠ³Π° Π² oDlg (ΠΌΠ΅ΡΠΎΠ΄ CreateUnoDialog) ΠΏΠΎ ΠΌΠ΅ΡΠΎΠ΄Ρ Execute Π΄ΠΈΠ°Π»ΠΎΠ³ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ. ΠΡΠΎΡΠ΅Π΄ΡΡΠ° CloseDialog ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅Ρ Π·Π°ΠΊΡΡΡΠΈΠ΅ ΠΎΠΊΠ½Π° Π΄ΠΈΠ°Π»ΠΎΠ³Π° ΠΏΠΎ ΠΌΠ΅ΡΠΎΠ΄Ρ endExecute.
ΠΡΠΈ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠΈ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ dispose Π΄Π»Ρ ΠΎΡΠ²ΠΎΠ±ΠΎΠΆΠ΄Π΅Π½ΠΈΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ
Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠΌ ΡΠ΅ΡΡΡΡΠΎΠ². ΠΠ»Ρ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΠΌΠΎΠ³ΠΎ ΠΏΡΠΈΠΌΠ΅ΡΠ° Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ CloseDialog ΠΏΠΎΡΠ»Π΅ endExecute ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΡΠ°Π²ΠΈΡΡ ΡΡΡΠΎΠΊΡ oDlg.Dispose.
ΠΠΎΠ²ΡΠΉ Π΄ΠΈΠ°Π»ΠΎΠ³ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°ΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ² ΡΡΠ΅Π΄Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ IDE. ΠΠΎΠΉΡΠΈ Π² ΡΡΠΎΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΅ΡΠ΅Π· Π‘Π΅ΡΠ²ΠΈΡ —> ΠΠ°ΠΊΡΠΎΡΡ —> —> Π£ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ°ΠΌΠΈ —> ΠΡΠ΅ΠΏΠΠ¨ΡΠ΅ Basic (Alt+Fll), Π΄Π°Π»Π΅Π΅ ΠΊΠ½ΠΎΠΏΠΊΠ° Π£ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅…, Π²ΠΊΠ»Π°Π΄ΠΊΠ° ΠΠΈΠ°Π»ΠΎΠ³ΠΈ. ΠΠ°ΡΠ΅ΠΌ Π½Π° ΡΡΠΎΠΉ Π²ΠΊΠ»Π°Π΄ΠΊΠ΅ Π² Π½ΡΠΆΠ½ΠΎΠΉ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ΅ ΡΠΎΠ·Π΄Π°ΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ Π½ΠΎΠ²ΠΎΠ³ΠΎ Π΄ΠΈΠ°Π»ΠΎΠ³Π° (ΠΊΠ½ΠΎΠΏΠΊΠ° ΠΠΎΠ²ΡΠΉ Π΄ΠΈΠ°Π»ΠΎΠ³…), Π° ΠΏΠΎΡΠ»Π΅ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ Π² ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ² ΠΏΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΡΠ°Π²ΠΊΠ°. ΠΡΡΠ³ΠΎΠΉ ΡΠΏΠΎΡΠΎΠ± Π΄ΠΎΠ±ΡΠ°ΡΡΡΡ Π΄ΠΎ Π²ΠΊΠ»Π°Π΄ΠΊΠΈ ΠΠΈΠ°Π»ΠΎΠ³ΠΈ — ΡΠ΅ΡΠ΅Π· Π‘Π΅ΡΠ²ΠΈΡ —> ΠΠ°ΠΊΡΠΎΡΡ —> Π£ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π΄ΠΈΠ°Π»ΠΎΠ³Π°ΠΌΠΈ.
Π₯ΡΠ°Π½ΡΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΈ ΡΠ°ΠΊ ΠΆΠ΅, ΠΊΠ°ΠΊ ΠΌΠΎΠ΄ΡΠ»ΠΈ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ². Π ΡΡΠ΅Π΄Π΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ IDE Π΄ΠΈΠ°Π»ΠΎΠ³ΠΈ ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ Π½Π°ΡΡΠ΄Ρ Ρ ΠΌΠΎΠ΄ΡΠ»ΡΠΌΠΈ Π½Π° Π²ΠΊΠ»Π°Π΄ΠΊΠ°Ρ
Π² Π½ΠΈΠΆΠ½Π΅ΠΉ ΡΠ°ΡΡΠΈ ΠΎΠΊΠ½Π° IDE. ΠΡΠΈ ΠΏΠ΅ΡΠ΅Ρ
ΠΎΠ΄Π΅ Π½Π° ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³Ρ Π²ΠΊΠ»Π°Π΄ΠΊΡ Π°ΠΊΡΠΈΠ²ΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ² (ΡΠΎΡΠΌ).
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ² Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ, ΠΏΠΎ ΡΡΡΠ΅ΡΡΠ²Ρ, Π² ΠΏΠ΅ΡΠ΅Π½ΠΎΡΠ΅ Π² ΡΠΎΡΠΌΡ Π΄ΠΈΠ°Π»ΠΎΠ³Π° Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΡΡ
ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΈΠ· ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² «ΠΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ» ΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠΈ ΠΈΡ
ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, ΡΠ°Π·ΠΌΠ΅ΡΠ° ΠΈ Π΄ΡΡΠ³ΠΈΡ
ΡΠ²ΠΎΠΉΡΡΠ² ΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΎΠ² ΡΠΎΠ±ΡΡΠΈΠΉ.
- [1] ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° ΡΠ·ΡΠΊΠ΅ OpenOffice.org.BASIC. URL: http://websprav.admm-smolensk.ru/freesoft/freesoft/OpenOfiice.org.BASIC Guide.pdf.