Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
.net 我可以制作标签(通过代码)并在几秒钟后使其消失吗?_.net_Vb.net_Winforms - Fatal编程技术网

.net 我可以制作标签(通过代码)并在几秒钟后使其消失吗?

.net 我可以制作标签(通过代码)并在几秒钟后使其消失吗?,.net,vb.net,winforms,.net,Vb.net,Winforms,我想使用标签作为少数事件的通知。如果函数启动,它将生成一个标签和显示通知。我希望它在几秒钟内自动消失。我想我可以使用定时器(通过使定时器和使其变成label.visible to false),但它不起作用。我怎么做这个? 这是我的代码(不介意脚注) 谢谢。您可以使用任务。运行 Private Sub Notif(消息为字符串,关键为整数) 作为新标签的Dim通知'레이블 생성 Me.Controls.Add(通知)'컨트롤에 추가 notification.Text=消息'텍스트 申请 如果临

我想使用标签作为少数事件的通知。如果函数启动,它将生成一个标签和显示通知。我希望它在几秒钟内自动消失。我想我可以使用定时器(通过使定时器和使其变成label.visible to false),但它不起作用。我怎么做这个? 这是我的代码(不介意脚注)

谢谢。

您可以使用任务。运行

Private Sub Notif(消息为字符串,关键为整数)
作为新标签的Dim通知'레이블 생성
Me.Controls.Add(通知)'컨트롤에 추가
notification.Text=消息'텍스트 申请
如果临界值=0,则'일반이면
notification.BackColor=Color.Black'블랙 적용
其他的
notification.BackColor=Color.Red'크리티칼 하면 레드 적용
如果结束
notification.Font=新字体(“HelveticaNeueLT Pro 65 Md”,12,FontStyle.Bold)”폰트 적용
通知。位置=新点(25,10+50*EISFuncNoticCount)'위치 적용
通知。大小=新点(460,44)'크기 지정
notification.Tag=EISFuncNoticCount
EISFuncNotCount=EISFuncNotCount+1
'--------------------------------
Task.Run(Sub()
Task.Delay(3000).Wait()'3초 기다림
调用(新操作(Sub())크로스 스레드 오류 방지
notification.Visible=False“可见”속성을 假的로 변경
末端接头)
末端接头)
'--------------------------------
端接头

创建一个新的
标签
似乎有点愚蠢。为什么不在设计器中添加一个
标签
,然后根据需要更改其
文本
可见
属性?此外,是的,您可以使用
计时器
在特定时间段后隐藏
标签
。因为您没有发布任何代码尝试这样做,所以您还没有遇到这样做的问题,所以没有问题需要解决。@jmchilinney当然我已经尝试过了。但我想知道如何使label visible=false,因为我制作的标签上没有可以在其他sub中使用的名称。如果你按照我说的做,只使用设计器中添加的一个
标签,那么就会有一个名称,所以不会有问题。您正在尝试解决您自己造成的问题。@jmchiliney谢谢您的建议,但我需要为每个通知创建一个标签,而不是将单个标签用于多个通知。我使用.name属性和计时器通过代码解决了问题。
Private Sub Notif(message As String, critical As Integer)
    Dim notification As New Label '레이블 생성
    Me.Controls.Add(notification) '컨트롤에 추가
    notification.Text = message '텍스트 Apply
    If critical = 0 Then '일반이면
        notification.BackColor = Color.Black '블랙 적용
    Else
        notification.BackColor = Color.Red '크리티칼 하면 레드 적용
    End If
    notification.Font = New Font("HelveticaNeueLT Pro 65 Md", 12, FontStyle.Bold) '폰트 적용
    notification.Location = New Point(25, 10 + 50 * EisFuncNotiCount) '위치 적용
    notification.Size = New Point(460, 44) '크기 지정
    notification.Tag = EisFuncNotiCount
    EisFuncNotiCount = EisFuncNotiCount + 1
End Sub