Excel_VBA_manual

Primjer VBA koda koji deklarira i poziva STip funkciju:
Declare Function STip Lib "primjer" _
(s As String) As Integer
Sub STipTest()
Dim s As String
MsgBox STip(s) 'ispisuje 2
s = ""
MsgBox STip(s) ' ispisuje 3
s = "primjer"
MsgBox STip(s) ' ispisuje 4
End Sub
2.3.4.5 Korištenje korisnički definiranih struktura
Naredba Type koristi se u VBA kodu za kreiranje korisniĉki definiranih struktura. Na primjer,
sljedeći VBA tip podatka i struktura u C-u su identiĉni.
U VBA:
Type ARG
i As Integer
str As String
End Type
U C-u:
typedef struct {
short i;
BSTR bstr;
} ARG;
Korisniĉki tipovi podataka na smiju biti predani po vrijednosti, nego po referenci. Primjer
funkcije u C-u koja deklarira argument kao pokazivaĉ na strukturu:
short WINAPI ArgStruktura(ARG *parg, char *szArg)
{ BSTR bstr;
if (parg == NULL)
return -1;
if ((bstr = SysAllocString((BSTR)szArg)) == NULL)
return -1;
// alocira lokalni string
if (parg->bstr != NULL) // stringu je već pridružena vrijednost
SysFreeString(parg->bstr);
parg->i = SysStringByteLen(bstr); //dužina stringa
parg->bstr = bstr;
return parg->i;
}
28