# Re: 存档及List Box的问题

Posted by 小v on September 23, 1999 at 14:05:49:

In Reply to: 存档及List Box的问题 posted by paul shue on September 23, 1999 at 10:36:21:

: 请问如何在结束程式时将List Box的内容存入指定的档案中,thanks a lot!!

Private sub Form_Unload()
dim i as integer,hand as long
hand=freefile
open "List.Txt" for output as #hand
for i=0 to List1.ListCount - 1
Print #hand, List1.List(i)
next
close #hand
End sub

Follow Ups: