- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口日期输入框 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=63356)
-- 发布时间：2015/1/19 14:46:00
-- [求助]窗口日期输入框
a
此主题相关图片如下：rq.jpg
此主题相关图片如下：rkk.jpg
窗口日期输入框，如何打开窗口，自动输入当日日期
-- 发布时间：2015/1/19 14:49:00
--
afterload事件
e.Form.Controls("控件名").Value = Date.Today
-- 发布时间：2015/1/19 14:59:00
--
给你添一个，打开日期选择下拉窗时自动填日期
窗口AfterLoad添加
Dim DTP As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
AddHandler ctype(dtp.basecontrol, C1.Win.C1Input.C1DateEdit).DropDownOpened, AddressOf DT_DropDownOpened
全局代码添加
Public Sub DT_DropDownOpened(ByVal Sender As Object, ByVal e As EventArgs)
sender.Value = Date.Now
End Sub