永发信息网

关于Visual Studio ,vb.net语言代码

答案:1  悬赏:10  手机版
解决时间 2021-06-09 03:00

为什么设计窗体的时候,见下图,调试出来的窗体左下角的label没法显示时间。

代码如下。

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If DateTime.Now.Hour > 6 And DateTime.Now.Hour < 12 Then
Me.Text = "上午好"
ElseIf DateTime.Now.Hour > 12 And DateTime.Now.Hour < 18 Then
Me.Text = "下午好"
ElseIf DateTime.Now.Hour > 18 And DateTime.Now.Hour < 20 Then
Me.Text = "晚上好"
Else
Me.Text = "您好"

End If


Me.Width = 410
Me.Height = 300
Me.Text = "首页"
MessageBox.Show("欢迎使用学生档案信息系统")

End Sub

如果在if里按照书上介绍修改成,

If DateTime.Now.Hour > 6 And DateTime.Now.Hour < 12 Then
Me.Labe1.Text = "上午好"
ElseIf DateTime.Now.Hour > 12 And DateTime.Now.Hour < 18 Then
Me.Labe1.Text = "下午好"
ElseIf DateTime.Now.Hour > 18 And DateTime.Now.Hour < 20 Then
Me.Labe1.Text = "晚上好"
Else
Me.Labe1.Text = "您好"

则是错误的。该怎么修改。

最佳答案

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


If DateTime.Now.Hour > 6 And DateTime.Now.Hour < 12 Then
Labe1.Text = "上午好"
ElseIf DateTime.Now.Hour > 12 And DateTime.Now.Hour < 18 Then
Labe1.Text = "下午好"
ElseIf DateTime.Now.Hour > 18 And DateTime.Now.Hour < 20 Then
Labe1.Text = "晚上好"
Else
Labe1.Text = "您好"


End If


Me.Width = 410
Me.Height = 300
Me.Text = "首页"
MessageBox.Show("欢迎使用学生档案信息系统")


End Sub

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
大水牛PP355S电源质量如何
男友一边对我好,,一边和网友见面搞暧昧,我
把月亮比喻眉黛的诗句,月亮的诗句
朋友背叛了自己,还有挽回的余地嘛
化学中NH4(+),OH(-),NO3(-),SO4(2-),CO3(2-)
寻大棚种植技术,谁 技术可以供我参考?
高达00第二季出完了吗?
头发颜色,有建议的来~
歌颂礼仪孝心的诗歌,关于中国传统文化和礼仪
女朋友快过生日了,送什么好。
长沙哪里有UGG的店子
填字母组成单词写中文( )an( )da ( )b( )mb(
道外区哈尔滨金天爱心大药房(南直路)在哪里啊
岑溪糯垌有什么景点?
如何办理中石油加油卡,个人办张加油卡需要什
推荐资讯
清丰县濮阳清丰县安监局地址有谁知道?有点事
求数学题,详细的解答
新生宝宝和产妇睡床好还是睡炕好
九年级下北师大版数学第156页第34题
字符 好看的 给我发几个
QQSG浙江白马之战
谁会做闪动照片????
为什么没有一起来看流星雨里四个主演的合照
英语作文初二
宾县哈尔滨宾县地方税务局稽查局地址在什么地
腾讯手机管家怎么杀毒,乐视超级手机2中毒了怎
can you feel my love出处
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?