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
相关问答：
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
我想用VB做一个OCX（纯菜鸟，临时需要用VB做点东西，特来请教），A用户（IP：192.168.0.1）与B用户（IP：192.168.0.2）进行点对点的发送接收消息
要求采用OCX方式，比如A用户知道B用户IP，我直接传参（B的IP）至OCX ......
我的要求是：通过抓取别的程序上的表格的句柄，然后读取这个表格的内容。
表格句柄（类名：MSFlexGridWndClass）我已抓到，接下来如何读取表格的内容就不会了？求助。
能把代码发来学习下不？
244326867@qq.com ......
用VB编程读取短信,得到一大堆unicode编码,请教如何转换成文本
例如:读取短信后(华为900C或TC35i),串口得到如下数据:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
