我可以将vb6中的字符串、数组等元素初始化为零吗？
- 内容介绍
- 文章标签
- 相关推荐
本文共计198个文字，预计阅读时间需要1分钟。
我有一份记录：Public Loon As LonenRecordType LonenRecord 'Algemeen Status As String * 1 TijdvakNr As Integer TijdvakBegin As String * 10 TijdvakEinde As String * 10 Key As String * 10 WerkgeversNummer As String * 3 WnRecord As Integer
我有一个记录：Public Loon As LonenRecord Type LonenRecord 'Algemeen Status As String * 1 TijdvakNr As Integer TijdvakBegin As String * 10 TijdvakEinde As String * 10 Key As String * 10 WerkgeversNummer As String * 3 WnRecord As Integer WerknemerNr As String * 4 AchterNaam As String * 25 Voorvoegsel As String * 15 and lots more end Type
我想把所有空的都变为“”或零
我可以：
with Loon .TijdvakNr = 0 .WerkgeversNummer = "" etc end with
有没有更简单的方法,f.i.与每个或任何？
分配到将处于默认状态的新值.'// return a new LonenRecord Function ResetLonenRecord as LonenRecord: End Function
然后：
'// overwrite variable Loon = ResetLonenRecord()
本文共计198个文字，预计阅读时间需要1分钟。
我有一份记录：Public Loon As LonenRecordType LonenRecord 'Algemeen Status As String * 1 TijdvakNr As Integer TijdvakBegin As String * 10 TijdvakEinde As String * 10 Key As String * 10 WerkgeversNummer As String * 3 WnRecord As Integer
我有一个记录：Public Loon As LonenRecord Type LonenRecord 'Algemeen Status As String * 1 TijdvakNr As Integer TijdvakBegin As String * 10 TijdvakEinde As String * 10 Key As String * 10 WerkgeversNummer As String * 3 WnRecord As Integer WerknemerNr As String * 4 AchterNaam As String * 25 Voorvoegsel As String * 15 and lots more end Type
我想把所有空的都变为“”或零
我可以：
with Loon .TijdvakNr = 0 .WerkgeversNummer = "" etc end with
有没有更简单的方法,f.i.与每个或任何？
分配到将处于默认状态的新值.'// return a new LonenRecord Function ResetLonenRecord as LonenRecord: End Function
然后：
'// overwrite variable Loon = ResetLonenRecord()