vb.net中datetimepicker控件的時間格式問題

還要設置Format 為 ： Custom

成都創(chuàng)新互聯(lián)主要從事成都做網(wǎng)站、網(wǎng)站建設、外貿(mào)營銷網(wǎng)站建設、網(wǎng)頁設計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務。立足成都服務忠縣,10年網(wǎng)站建設經(jīng)驗,價格優(yōu)惠、服務專業(yè),歡迎來電咨詢建站服務:028-86922220

用的時候用DateTimePicker1.Text 不要用value

下面是我隨便用了兩個DateTimePicker和一個button一個textbox演示了一下的代碼,你根據(jù)自己的需要調(diào)試DateTimePicker風格

------------------------------------------------

Public Class Form1

Inherits System.Windows.Forms.Form

#Region

Public Sub New()

MyBase.New()

InitializeComponent()

End Sub

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

End If

MyBase.Dispose(disposing)

End Sub

Private components As System.ComponentModel.IContainer

Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker

System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()

Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker

Me.Button1 = New System.Windows.Forms.Button

Me.TextBox1 = New System.Windows.Forms.TextBox

Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker

Me.SuspendLayout()

'

'DateTimePicker1

'

Me.DateTimePicker1.AllowDrop = True

Me.DateTimePicker1.CustomFormat = "yyyy-MM-dd"

Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom

Me.DateTimePicker1.Location = New System.Drawing.Point(56, 24)

Me.DateTimePicker1.Name = "DateTimePicker1"

Me.DateTimePicker1.ShowUpDown = True

Me.DateTimePicker1.Size = New System.Drawing.Size(160, 19)

Me.DateTimePicker1.TabIndex = 0

'

'Button1

'

Me.Button1.Location = New System.Drawing.Point(144, 128)

Me.Button1.Name = "Button1"

Me.Button1.TabIndex = 1

Me.Button1.Text = "Button1"

'

'TextBox1

'

Me.TextBox1.Location = New System.Drawing.Point(136, 72)

Me.TextBox1.Name = "TextBox1"

Me.TextBox1.TabIndex = 2

Me.TextBox1.Text = "TextBox1"

'

'DateTimePicker2

'

Me.DateTimePicker2.CustomFormat = "yyyy-MM-dd"

Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom

Me.DateTimePicker2.Location = New System.Drawing.Point(40, 160)

Me.DateTimePicker2.Name = "DateTimePicker2"

Me.DateTimePicker2.Size = New System.Drawing.Size(120, 19)

Me.DateTimePicker2.TabIndex = 3

'

'Form1

'

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)

Me.ClientSize = New System.Drawing.Size(292, 273)

Me.Controls.Add(Me.DateTimePicker2)

Me.Controls.Add(Me.TextBox1)

Me.Controls.Add(Me.Button1)

Me.Controls.Add(Me.DateTimePicker1)

Me.Name = "Form1"

Me.Text = "Form1"

Me.ResumeLayout(False)

End Sub

#End Region

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text = DateTimePicker1.Text

End Sub

End Class

----------------------------------------------------------

我的操作系統(tǒng)和.net都是日文的,注釋的東西我刪除了,主要看代碼就好了

這段代碼你可以建一個空的解決方案，完全復制到里面去

（高分懸賞）用vb.net 做個類似DateTimePicker控件的東西，有調(diào)整日期的下拉菜單，但是時間要會動的

繼承一下DateTimePicker,內(nèi)置個timer?不斷刷新顯示

得到焦點停止timer,失去焦點繼續(xù)timer

把代碼貼到項目就會多出一個控件了

拖出來就能使用

顯示格式可以自己設置

---------------------------------------------------------------------------------

'''?summary

'''?自動更新的?DateTimePacker

'''?/summary

Public?Class?MyDateTimePacker

Inherits?DateTimePicker

Public?Sub?New()

Me.components?=?New?Container

Me.m_tmrUpdate?=?New?Timer(Me.components)

Me.m_tmrUpdate.Interval?=?1000

AddHandler?Me.m_tmrUpdate.Tick,?New?EventHandler(AddressOf?Me.m_tmrUpdate_Tick)

MyBase.Format?=?DateTimePickerFormat.Custom

MyBase.CustomFormat?=?"yyyy?年?MM?月?dd?日?hh:mm:ss"

End?Sub

'''?summary

'''?釋放資源

'''?/summary

Protected?Overrides?Sub?Dispose(ByVal?disposing?As?Boolean)

If?(disposing?AndAlso?(Not?Me.components?Is?Nothing))?Then

Me.components.Dispose

End?If

MyBase.Dispose(disposing)

End?Sub

Private?Sub?m_tmrUpdate_Tick(ByVal?sender?As?Object,?ByVal?e?As?EventArgs)

MyBase.Value?=?DateTime.Now

End?Sub

Protected?Overrides?Sub?OnEnter(ByVal?e?As?EventArgs)

If?Me.AutoUpdateByFocu?Then

Me.m_tmrUpdate.Stop

End?If

MyBase.OnEnter(e)

End?Sub

Protected?Overrides?Sub?OnLeave(ByVal?e?As?EventArgs)

If?Me.AutoUpdateByFocu?Then

Me.m_tmrUpdate.Start

End?If

MyBase.OnLeave(e)

End?Sub

'?Properties

'''?summary

'''?更新定時器狀態(tài)

'''?/summary

Public?Property?AutoUpdate?As?Boolean

Get

Return?Me.m_tmrUpdate.Enabled

End?Get

Set(ByVal?value?As?Boolean)

Me.m_tmrUpdate.Enabled?=?value

End?Set

End?Property

'''?summary

'''?根據(jù)焦點狀態(tài)開始、停止更新定時器

'''?/summary

DefaultValue(False)?_

Public?Property?AutoUpdateByFocu?As?Boolean

Get

Set(ByVal?value?As?Boolean)

End?Property

'''?summary

'''?組件容器

'''?/summary

Private?components?As?IContainer?=?Nothing

'''?summary

'''?更新定時器

'''?/summary

Private?m_tmrUpdate?As?Timer

End?Class

---------------------------------------------------------------------------------

(用C#寫的,然后反編譯成VB.NET,有圖有真相-.-真蛋疼,學C#吧...)

VB.NET,如何用TIMER控件計時

這種功能用不到TIMER，TIMER控件用在這種地方也不適合。（假如你所統(tǒng)計的時間很短，在幾分中內(nèi)話，可以使用，假如你統(tǒng)計的時間很長：幾小時、幾天幾夜，建議改用以下方式）：

在你需要開始計時的地方加入一個記錄當前時間，在你想結束的地方也得到一個當前時間。然后將兩個時間相減。

希望以上思路可以幫到你。

新聞標題：包含vb.net選擇時間控件的詞條
網(wǎng)站路徑：http://jinyejixie.com/article46/ddccohg.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供虛擬主機、App設計、網(wǎng)站建設、動態(tài)網(wǎng)站、移動網(wǎng)站建設、品牌網(wǎng)站設計

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉載內(nèi)容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)