Шаг 2 - Corel Script это VBA ???

Итак, програмки создаются в Corel Script, но Вы можете его найти через Пуск - программы - CorelDraw - Productive Tools и дальше выбрать Corel Script Editor.

Или запустить из самого Corel Draw выбрав пункты меню Tools - Script - Corel Script Editor.

Результатом выбора из этих двух вариантов будет запуск программы редактирования скриптов:

2.gif (4565 b)

У Вас должен появиться естественный вопрос если все эти возможности называются Script причем здесь VBA. А вот посмотрите на пример кода:

SUB MainDialogSub(BYVAL ControlID%, BYVAL Event%)
	DIM FileName AS STRING
	DIM DialogWidth AS INTEGER
	DIM DialogHeight AS INTEGER
	DIM ImageHeight AS INTEGER
	DIM ImageWidth AS INTEGER

	WITH MainDialog
		IF Event% = EVENT_MOUSE_CLICK THEN
			'Only Browse button
			FileName$ = GETFILEBOX("Bitmap files (*.bmp)|*.bmp")
			IF FileName$ <> "" THEN
				.FileName.SetText FileName$
				.ImageView.SetImage FileName$
			ENDIF
		ENDIF
		IF Event% = 6 THEN
			'Make sure the dialog has a reasonable size
			DialogWidth% = .GetWidth()
			IF DialogWidth% < 100 THEN DialogWidth% = 100
			DialogHeight% = .GetHeight()
			IF DialogHeight% < 60 THEN DialogHeight% = 60
			.Move .GetLeftPosition(), .GetTopPosition(), DialogWidth%, DialogHeight%
			'Resize the image
			ImageHeight% = DialogHeight% - 30
			ImageWidth% = DialogWidth% - 10
			.ImageView.Move 5,25,ImageWidth%, ImageHeight%
			'Resize the file name
			.FileName.Move 5, 6, DialogWidth% - 80, 10
			'Reposition the move button
			.Browse.Move DialogWidth% - 65, 5
		ENDIF
	END WITH
END SUB

Очень даже похоже и практически одно и тоже, вот я рискнул отнести все это к классу VBA.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.