s8塞恩怎么玩:vb高手来帮手看看我哪里错了

来源：百度文库编辑：杭州交通信息网时间：2024/04/27 15:57:12

Private Sub trapmos(object1 As Object, button As Integer, shift As Integer, x As Single, y As Single)
Static oldctl As Object
Static oldclr As Long

If nofcs Then
Set oldctl = object1
oldclr = object1.BackColor

object1.BackColor = RGB(0, 0, 255)
nofcs = False
evt(0) = "mousefocus at" & (object1.Name)
ElseIf oldctl.Name <> object1.Name Then
oldctl.BackColor = oldclr
Set oldctl = object1
oldclr = object1.BackColor
object1.BackColor = RGB(0, 0, 255)
evt(0) = "mousefocus at" & (object1.Name)
End If

evt(1) = "botton=" & Str(button) & " shift=" & Str(shift)
evt(2) = "x=" & Str(x) & "y=" & Str(y)
End Sub

nofcs的初值为true,编译时出现对象变量或with块变量未设置,我想应该是elseif 那里的oldctl,但nofcs为真，不是应该先做第一个if吗，做了第一个if，oldctl就有处值拉，那为什么错了`

vb高手来帮手看看我哪里错了 vb高手来帮我看看阿我遇难了,朋友来帮手好吗???? 求求高手帮手,分我全给你了,拜托请各位高手看看我的程序哪里错了？ VB高手来帮我请高手来救救我的电脑看看是哪里坏了??? 我想知道我这样组装电脑怎么样??请高手帮手看看上网有问题，高手快来帮手 QQ空间高手快来帮手