forked from Hg/htlle-da-vorlage
20 lines
1.0 KiB
TeX
20 lines
1.0 KiB
TeX
|
%VBA
|
||
|
|
\lstdefinelanguage{VBA}{
|
||
|
|
morekeywords={And, As, Byte, Call, Case, Compare, CDbl, Datebase, Date,
|
||
|
|
Dim, Else, ElseIf, End, Error, Exit, Explicit, False, Function,
|
||
|
|
GoTo, If, IIF, Integer, Not, Nothing, Null, Object, On, Option, Or,
|
||
|
|
Private, Resume, String, Single, Select, Set, Static, Sub, Then, True, To,},
|
||
|
|
sensitive=false,
|
||
|
|
morecomment=[l]Rem,
|
||
|
|
morecomment=[l]',
|
||
|
|
morestring=[b]",
|
||
|
|
emph={acFormBar, acEditMenu, acCurrent, acEntire, acMenuVer70, acSaveYes,
|
||
|
|
acViewNormal, acForm, acDataErrAdded, acNewRec, acDataErrContinue, Cancel,
|
||
|
|
CancelEvent, Close, CurrentDb, DefaultValue, DateValue, DAO, Description,
|
||
|
|
DoCmd, DoMenuItem, Err, Error, Error$, $, Execute, FindRecord, Forms,
|
||
|
|
FindFirst, IsNull, Me, MsgBox, GoToControl, GoToRecord, NewData, Nz,
|
||
|
|
Maximize, Number, OpenForm, Parent, Recordset, Requery, Response, SetFocus,
|
||
|
|
stDocName, stLinkCriteria, Value, vbExclamation, vbOK, vbOKCancel,
|
||
|
|
vbInformation, vbYes, vbNo, vbYesNo, vbCancel, vbQuestion, vbYesNoCancel,
|
||
|
|
Visible,},
|
||
|
|
emphstyle=\itshape}
|