2020年8月15日 星期六

vb.net 開機通知 [Notify on StartUp] 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Try
            If Directory.Exists("\\" & TextBox1.Text & "\Users") = True Then
                Timer1.Enabled = False
                MsgBox(TextBox1.Text & " 已開機", 64, "提醒")
                End
            End If
        Catch ex As Exception

        End Try
    End Sub






1
2
3
4
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Me.Hide()
    End Sub
於
標籤： , , , ,

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)