以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 文字移动  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86858)
--  作者：zcgmxf
--  发布时间：2016/6/27 20:30:00
--  [求助] 文字移动
请哪位推荐一个 文字 左右移动或闪动的例子。谢谢
--  作者：大红袍
--  发布时间：2016/6/27 20:35:00
--  

TimerTick事件

 

Dim lbl As WinForm.Label = e.Form.Controls("Label1")
If lbl.left+lbl.width > 0 Then
    lbl.left -= 10
Else
    lbl.left = e.form.width
End If
--  作者：zcgmxf
--  发布时间：2016/6/27 21:57:00
--  

红袍老师，如何让 SaveConfigValue 保存的值恢复到默认或清除值

  

 

If GetConfigValue("试用起始日",#1/1/1900#) = #1/1/1900# Then
    
    SaveConfigValue("试用起始日期",Date.Today)

end if

 

 

 

 
--  作者：大红袍
--  发布时间：2016/6/27 21:59:00
--  

清空就行啊

 

SaveConfigValue("试用起始日期", Nothing)