vb 获取资源文件内资源的大小

显示全部楼层 · 2010-8-4 21:56:01

2楼的这位兄弟，为了以防万一我做了个测试的程序，我把IE8加入资源，做测试，但是一单击开始释放，整个程序成假死状态，进度条也是不互动的，标题栏显示XXXXX(没有响应）字样，但是文件始终还是在释放的，这个是怎么回事？？？
要怎么办？？？

千问 · 2010-8-4 21:56:01

释放的进度？我猜是写文件的进度吧。Dim TotalLen As LongDim Cont() As ByteCont=LoadResData(101,"CUSTOM")TotalLen=UBound(Cont())Open FILENAME For Binary As #1Dim Counter As LongFor Counter=1 To TotalLenPut #1,Cont(Counter)ProgressBar1.Value=ProgressBar1.Min+(ProgressBar1.Max-ProgressBar.Min+1)*Counter/TotalLenNext CounterClo

千问 · 2010-8-4 21:56:01

UBound(LoadResData(101, "CUSTOM"))