怎樣用vb.net作一個指針轉(zhuǎn)動的鐘表?(可設(shè)置時間日期,有鬧鈴功能)

你需要會用GDI+,也就是那個System.Drawing命名空間下的類.

成都創(chuàng)新互聯(lián)企業(yè)建站,10多年網(wǎng)站建設(shè)經(jīng)驗，專注于網(wǎng)站建設(shè)技術(shù)，精于網(wǎng)頁設(shè)計，有多年建站和網(wǎng)站代運(yùn)營經(jīng)驗，設(shè)計師為客戶打造網(wǎng)絡(luò)企業(yè)風(fēng)格，提供周到的建站售前咨詢和貼心的售后服務(wù)。對于成都做網(wǎng)站、網(wǎng)站制作中不同領(lǐng)域進(jìn)行深入了解和探索，創(chuàng)新互聯(lián)在網(wǎng)站建設(shè)中充分了解客戶行業(yè)的需求，以靈動的思維在網(wǎng)頁中充分展現(xiàn)，通過對客戶行業(yè)精準(zhǔn)市場調(diào)研，為客戶提供的解決方案。

給你說個思路,設(shè)Timer,到時間就用Form.Invalidate()函數(shù)重畫窗口,在重畫窗口的Form_Paint事件下面編寫代碼得到當(dāng)前時間,再根據(jù)當(dāng)前時間用GDI+畫時鐘.

用VB.net做一個時間計時器

'添加一個label標(biāo)簽名字label1 用來顯示時間

'再添加一個timer控件 名字timer1 interval屬性=1000 用來計時

'窗體添加代碼

Dim t As Date '用來記錄時間

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _

System.EventArgs) Handles Timer1.Tick

t = t.AddSeconds(1)

Label1.Text = "登錄時間:" t.TimeOfDay.ToString

End Sub

vb.net datetime怎么顯示時分秒

將datePicker設(shè)置為該日期，這樣就可以確保每次從nib中加載此視圖時，選取器都會重置為當(dāng)前得日期和時間就可以了。

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

還要設(shè)置Format 為 ： Custom

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

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

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

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都是日文的,注釋的東西我刪除了,主要看代碼就好了

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

VB中，將從下位機(jī)讀取的數(shù)據(jù)，用控件的方式畫出以時間為橫軸的曲線

1.用picturebox 控件可以實現(xiàn)

2.可以使用Scale方法移動坐標(biāo)原始位置和改變坐標(biāo)軸方向，以下該方法：

Scale(x1,y1)-(x2,y2)

X1和y1為對象左上角的新坐標(biāo)位置；

X2和y2為對象右下角的新坐標(biāo)位置；

現(xiàn)在讓我們看看一些范例。這一方法將使原點(diǎn)處于左上角，但將坐標(biāo)系統(tǒng)單位改變?yōu)榇绑w大小的1/100：

Picture1.Scale(0,0)-(100,100)

以下調(diào)用將移動原點(diǎn)到窗體的左下角，并旋轉(zhuǎn)Y軸：

Picture1.Scale(0,100)-(100, 0)

以下調(diào)用將移動原點(diǎn)到窗體的正中心，并旋轉(zhuǎn)Y軸，然后將坐標(biāo)單位轉(zhuǎn)換為窗體大小的1/5000：

Picture1.Scale(-2500,2500)-(2500,2500)

用Picture1.Line （x1,y1）-(x2,y2)

如果不指定(x1,y1)則line方法默認(rèn)為上次line方法的(x2,y2)為當(dāng)前l(fā)ine方法(x1,y1)

For i = 1 To 100

j = i + 10

Me.Picture1.Line -(i, j), vbRed '可以指定畫線的顏色

Next

3.如果畫到最右邊的時候，可以清掉picturebox 的內(nèi)容，從頭再畫。

給段代碼，供參考：

Private Sub Form_Load()

Dim i, j As Integer

Me.Picture1.Scale (0, Me.Picture1.Height)-(Me.Picture1.Width, 0)

Me.Picture1.AutoRedraw = True

Me.Picture1.Line (0, 0)-(0, 0), vbRed

For i = 1 To 1000

j = i + 10

Me.Picture1.Line -(i, j), vbRed

Next

End Sub

我這樣畫過曲線，大概思路就是這樣吧，希望能幫到你

如何使用VB.NET DateTimePicker控件

Visual Studio .NET的DateTimePicker控件為用戶提供一個選擇日期/時間的簡便方法。這個控件允許你選擇日期和時間；同時，由于這個控件允許你限制輸入內(nèi)容，你可以忽略合法的日期格式。DateTimePicker控件類似于MonthView控件，后者允許你選擇一個日期或日期范圍，但不支持時間選擇。在本文中，我將創(chuàng)建一個使用DateTimePicker控件的實例。實例在常用控件（Common Controls）下的工具箱(Toolbox)中找到DateTimePicker控件，并把它添加到Windows Forms中。設(shè)置以下屬性：l Name：dtpDateSelectionl CustomFormat：mm/dd/yyyyl Format：短l MaxDate：12/31/2008l MinDate：01/01/2007l ShowUpDown：假 在Form Load事件中添加以下代碼： dtpDateSelection.Value = Now 創(chuàng)建以下事件： Private Sub dtpDateSelection_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtpDateSelection.CloseUp MessageBox.Show(dtpDateSelection.Value) End Sub 結(jié)果在第一個例子中，ShowUpDown屬性設(shè)為假，表示在用戶點(diǎn)擊控件時，控件的日歷部分可見。然后用戶從控件的日歷部分選擇日期。在DateTimePicker控件中選擇一個日期后，你的屏幕看起來與圖A類似。 現(xiàn)在，將ShowUpDown屬性值改為真，再次運(yùn)行代碼。這次你不會看到控件的日歷部分，你可以點(diǎn)擊控件的上/下箭頭來選擇一個日期。其結(jié)果類似于圖B。 注意，這個控件不允許你選擇小于MinDate屬性值或大于MaxDate屬性值的日期。 更多信息你還可以使用許多其它屬性和重要的方法，讓DateTimePicker控件滿足你的需求。MSDN提供關(guān)于如何使用DateTimePicker控件的其它細(xì)節(jié)。 Irina Medvinskaya自1996年開始涉足技術(shù)領(lǐng)域。她獲得佩斯大學(xué)的MBA學(xué)位，現(xiàn)在任花旗集團(tuán)的項目經(jīng)理。