以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口日期输入框  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63356)
--  作者：anxue
--  发布时间：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