dim s1 as string
dim s2 as string
dim i1 as byte
s1=space(333)'空間要足夠大
s2=space(333)
i1=&h64
call EDcode(s1, s2, i1)
也許就好了。
===========
對於要輸入變量必須先
s1=text1.text
s2=text2.text
再調用DLL函數。而且運算後的字符串不得比傳進去的長。如果結果變長,必須以另外的變量帶出來。
以上,如果還不行,則把VB函數中的ByRef換成byval試壹下。我印像裏VB和PB傳參的方式不壹樣所以。