用vb.net怎么实现图片中的时间显示
展开全部
刚写了个测试通过
Public Class Form4
Dim d As String
Dim wkd As String
Dim wd As String
Dim hms As String
Dim y As String
Dim mouth As String
Dim dd As String
Dim allymd As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
hms = Now.ToString("HH:mm:ss")
wkd = DateTime.Today.DayOfWeek.ToString
y = Now.ToString("yyyy") + "年"
mouth = Now.ToString("MM") + "月"
dd = Now.ToString("dd") + "日"
allymd = y + mouth + dd
Select Case wkd
Case "Sunday"
wd = "星期天"
Case "Monday"
wd = "星期一"
Case "Tuesday"
wd = "星期二"
Case "Wednesday"
wd = "星期三"
Case "Thursday"
wd = "星期四"
Case "Friday"
wd = "星期五"
Case "Saturday"
wd = "星期六"
End Select
Label1.Text = allymd + " " + wd + " " + hms + " "
End Sub
End Class
Public Class Form4
Dim d As String
Dim wkd As String
Dim wd As String
Dim hms As String
Dim y As String
Dim mouth As String
Dim dd As String
Dim allymd As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
hms = Now.ToString("HH:mm:ss")
wkd = DateTime.Today.DayOfWeek.ToString
y = Now.ToString("yyyy") + "年"
mouth = Now.ToString("MM") + "月"
dd = Now.ToString("dd") + "日"
allymd = y + mouth + dd
Select Case wkd
Case "Sunday"
wd = "星期天"
Case "Monday"
wd = "星期一"
Case "Tuesday"
wd = "星期二"
Case "Wednesday"
wd = "星期三"
Case "Thursday"
wd = "星期四"
Case "Friday"
wd = "星期五"
Case "Saturday"
wd = "星期六"
End Select
Label1.Text = allymd + " " + wd + " " + hms + " "
End Sub
End Class
展开全部
我在2楼的链接里已经回答了你的问题
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2012-04-30
展开全部
老兄太累了,先歇歇喝口水吧!
在 http://zhidao.baidu.com/question/416845273.html?oldq=1 中任何一个都比这个短、太短短短
在 http://zhidao.baidu.com/question/416845273.html?oldq=1 中任何一个都比这个短、太短短短
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询