以文本方式查看主题

-  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