Echter het gedeelte fs = hs.CreateStringClass geeft problemen omdat die niet geinitialiseerd kan worden
Voorbeeld code op homeseer web help pages toontPublic Sub Main(ByVal Parms As Object)
Dim DeviceCode As String
DeviceCode = "x20"
BuildDevice(DeviceCode)
End Sub
Sub BuildDevice(ByVal DeviceCode)
Dim fs
fs = hs.CreateStringClass
fs.Reset()
fs.Add ("Test regel")
End Sub
Code: Select all
Dim FastCat
set FastCat = hs.CreateStringClass
FastCat.Add "Test regel"
Hoe los ik nu dit gedeelte op?
Dim fs
fs = hs.CreateStringClass