以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何清空VAR变量  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129867)

--  作者:vimin
--  发布时间:2019/1/7 22:00:00
--  如何清空VAR变量
我在一按钮click事件中定义了vars(“dj”)=e.sender
在窗口但afterload事件中清空:vars("dj")=nothing,
但打开创空总是提示“未将对象引用设置到对象的实例。”
请问正确但清空var变量但方法是什么

--  作者:有点蓝
--  发布时间:2019/1/7 22:01:00
--  
使用到这个变量的事件有哪些?都把代码贴出来
--  作者:vimin
--  发布时间:2019/1/7 22:40:00
--  

顺便请问一下,为什么这样设置按钮颜色,鼠标离开的时候好像要暗一些,好像是系统的鼠标进入、鼠标离开对按钮背景颜色有影响,能改吗?

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:cms.foxdb


--  作者:有点蓝
--  发布时间:2019/1/7 23:05:00
--  
如果只是为了控制按钮颜色,完全不需要使用变量

MouseEnter
If Typeof e.sender Is WinForm.Button Then
    e.sender.backcolor = color.Orange
    e.sender.ForeColor = Color.white
End If

MouseLeave

If Typeof e.sender Is WinForm.Button Then

    e.sender.backcolor = Color.Khaki

    e.sender.Forecolor = Color.black

End If


至于颜色变暗完全是眼睛的视觉偏差


--  作者:vimin
--  发布时间:2019/1/8 14:17:00
--  
谢谢!那如何清空vars(“dj”)的这个值呢?
--  作者:有点甜
--  发布时间:2019/1/8 14:52:00
--  

afterLoad事件

 

e.Form.Controls("Label1").text = "欢迎您:    " & user.Name
vars("dj") = new object
vars("dj") = Nothing

 

需要清空值的时候,写

 

vars("dj") = Nothing