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
相关问答：
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
我想用VB做一个OCX（纯菜鸟，临时需要用VB做点东西，特来请教），A用户（IP：192.168.0.1）与B用户（IP：192.168.0.2）进行点对点的发送接收消息
要求采用OCX方式，比如A用户知道B用户IP，我直接传参（B的IP）至OCX ......
谁能帮我把下面这些代码改成VB形式的，多谢了，急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
挺繁琐，之前发的帖子，分值太低现在重发一个。欢迎各位大侠~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
