CorelDraw ( " Draw ") er et program for å lage tilpassede design og tegninger . En av sine verktøy er et programmeringsspråk og miljø , Visual Basic for Applications ( VBA ) . Med VBA kan Uavgjort brukerne opprette egendefinerte skjemaer som bygger på funksjonalitet som Draw tilbyr i sin standard brukergrensesnitt. Et viktig skritt i å skape en slik form er å definere formålet med programmet som vises og utveksling brukerdata med skjemaet. En fordel med å lage skjemaer med Draw VBA er å tilby en forlengelse av Draw brukergrensesnitt tilpasset ditt arbeid lagets behov. Du trenger
CorelDraw
Vis flere instruksjoner
en

Åpen tegne og lage et nytt dokument ved å trykke "Ctrl " + "N ", etterfulgt ved å klikke " OK "på" Nytt dokument "i dialogboksen .
2

Trykk" Alt " + " F11 "for å gå inn i integrert utviklingsmiljø (IDE ) , som er der du vil opprette et egendefinert skjema .

3

Klikk på elementet " UserForm " under " Insert"-menyen for å opprette et nytt , tomt skjema som du vil tilpasse med VBA -kontroller (f.eks , knapper og tekstbokser ) .

4

Klikk på " Verktøykasse " element under "View" -menyen for å avsløre en palett av kontroller som skal plasseres på det nye skjemaet . Programmet du skal skrive med noen kontroller fra denne paletten vil tillate programmets brukeren å spesifisere antall nye sider for å legge til gjeldende Draw dokumentet . Dette prosjektet vil lære deg flere prosedyrer som trengs for å arbeide med Uavgjort er VBA former.
5

Høyreklikk hvor som helst på IDE- verktøylinjen , og klikk deretter på " UserForm " element .
6 < p> Dra en tekstboks fra verktøypaletten på skjemaet , og klikk på verktøylinjen er " senter horisontalt" -knappen . VBA vil plassere tekstboksen midt mellom skjemaets venstre og høyre side .
7

Dra en knapp kontroll fra paletten til en stilling under tekstboksen . Klikk på "Center Horizontal" knappen igjen for å plassere knappen på skjemaet horisontale sentrum .
8

Dobbeltklikk på knappen for å oppgi den koden -skriving miljø, så lim inn følgende programkode over " End Sub " statement. Denne koden vil legge til nye sider til gjeldende Draw dokumentet :

dim n

n = TextBox1.Value

CorelDRAW.ActiveDocument.AddPages ( n )

9

Trykk " F5 " for å kjøre programmet og vise skjemaet du ferdig i trinn 7 . Skriv inn eventuelle ikke- null heltall i tekstboksen , etterfulgt av å trykke på skjemaets knappen .
10

Trykk " Alt" + " F4 " for å lukke skjemaet og avslutte programmet , og trykk deretter på "Alt" + "F11 " for å gå tilbake til standard Draw brukergrensesnitt. Dokumentet har nå antall nye sider du angitt på tilpasset skjema .