public function stringlen(Byval ostring) as string
dim strArray() as Byte
dim MyEncoder as System.Text.Encoding=System.Text.Encoding.Default
strArray=MyEncoder.GetBytes(ostring)
strlen=strArray.length
return strlen
end function
public function stringlen(Byval ostring) as string
dim strArray() as Byte
dim MyEncoder as System.Text.Encoding=System.Text.Encoding.Default
strArray=MyEncoder.GetBytes(ostring)
strlen=strArray.length
return strlen
end function
![處理PCX檔案[圖]](data:image/gif;base64,R0lGODlhAQABAIAAAP///wAAACwAAAAAAQABAAACAkQBADs=)