Form_Activate与Form_Load小问题??

genius00 2003-10-20 02:29:24

各位高手,
过程是这样:
Form_Load()
..........
Form_Activate()
Do
aa()
bb()
cc()
Loop Until 1
..........

Form_Unload()
........

奇怪现象:
窗体关闭后,窗体又会打开??如何是好啊??

...全文

453 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

genius00 2003-10-21

打赏
举报

楼上各位高手,
另外一个小问题:
在窗体中有ACITVATE()运行时,鼠标会不断闪烁,怎么办啊!!!

wu_yongcai 2003-10-21

打赏
举报

是不是在Form_Unload里面又操作了你要Unload窗体的属性，方法？？

genius00 2003-10-21

打赏
举报

我的想法是VB6没线程的,ACTIVATE()是一个后台线程

kmzs 2003-10-21

打赏
举报

您想干嘛？死机玩？

j4sxw 2003-10-21

打赏
举报

Form_Activate()内是死循环!!

aha99 2003-10-21

打赏
举报

你在 Active 里面是死循环，你把的循环条件改为用一个boolean 值控制，在unload里面使用该值跳出循环。

genius00 2003-10-21

打赏
举报

Private Sub Form_Activate()
Dim i, j As Integer
Do
For i = 0 To 2
Call fq(i) ''''等同于X=1语句
Call zz(i)
If Vehicle(i).Finish Then
DoEvents
Exit For
End If
DoEvents
Next i
DoEvents
Loop While True
End Sub
Private Sub Form_Load()
Dim i As Integer

LineCard = "001"
'zdxz = True
Me.Height = Screen.Height
Me.Width = Screen.Width

On Error GoTo ErrHandler

cn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Mtc;Password='hqztjx';Mode=Read|Write"
rstBasic.Open "BasicNow", cn, adOpenDynamic, adLockOptimistic, 2
Do While Not rstBasic.EOF
If (DatePart("yyyy", rstBasic.Fields(16)) = DatePart("yyyy", Date)) And (DatePart("m", rstBasic.Fields(16)) = DatePart("m", Date)) And (DatePart("d", rstBasic.Fields(16)) = DatePart("d", Date)) Then
Combo4.AddItem rstBasic.Fields(0)
Combo(2).AddItem rstBasic.Fields(5)
End If
rstBasic.MoveNext
Loop
cn.Close
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer

For i = 0 To 2
Tips i, "请等候" '上灯牌显示
Next i
For i = 3 To 4
TipsOld i, " 请等候" '上灯牌显示
Next
Unload Me

OtherForm.show ''其它的窗体打开

End Sub

现象是:Unload后会运行Load()

genius00 2003-10-21