VB运行程序后无法响应原因 - VB / 基础类
vb运行了一段程序后就无法响应了，程序的内容主要是有一个随机文件，两个列表菜单，点击确定后从随机文件中找到符合两个列表菜单的记录，然后在几个label中显示各个字段中的记录，点击label的字体会变成粗体，然后把label的aption赋给全局变量，点击选择会显示到另一个form，在这个form中在label中显示上一个form所赋值的全局变量（很乱）
现在的问题是如果在开始选择的是文件中的第一条记录就可以正常运行，而选择其他的记录点击选择后会出现无法响应，是什么原因啊，各位帮帮忙找找啊
第一个form的部分代码Private Sub Command1_Click()
Dim ainfo As airinfo
Dim F As Integer
Dim i As Integer
Dim j As Integer
Dim l As Integer
F = FreeFile
i = 1
j = 1
For l = 1 To Label1.Count - 1
Unload Label1(l)
Unload Label2(l)
Unload Label3(l)
Unload Label4(l)
Unload Label5(l)
Unload Label6(l)
Unload Label7(l)
Unload Label8(l)
Next
Open App.Path & "\data\airinfo.dat" For Random As #F Len = Len(ainfo)
Do Until EOF(F)
Get #F, i, ainfo
If Combo1.Text = Trim(Replace(ainfo.cfd, Chr(0), "")) And Combo2.Text = Trim(Replace(ainfo.mdd, Chr(0), "")) Then
Load Label1(j)
Label1(j).Top = Label1(0).Top + (j) * 500
Label1(j).Visible = True
Label1(j).Caption = Trim(Replace(ainfo.id, Chr(0), ""))
Load Label2(j)
Label2(j).Top = Label2(0).Top + (j) * 500
Label2(j).Visible = True
Label2(j).Caption = Trim(Replace(ainfo.cfd, Chr(0), &qu
相关问答：
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
数据库里有一个字段的内容是二进制，怎么才能把这个二进制读出来
使用字节流对象可以实现
例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
各位高手，小弟最近碰到一个问题：原先写的程序大概的思路是：首先webbrowser打开网址，网址显示后，点击网址上的某一个连接，当webbrowser检测到网址已经连接到想要的地址时候就开始下载文件，当用IE6的时候下� ......
用VB编程读取短信,得到一大堆unicode编码,请教如何转换成文本
例如:读取短信后(华为900C或TC35i),串口得到如下数据:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
