Private Sub frm_main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
If My.Computer.Network.IsAvailable Then
ok("โปรแกรมกำลังเชื่อมต่อฐานข้อมูล")
Else
fail("โปรแกรมขาดการเชื่อมต่อ กรุณาเช็คสาย Lan")
End If
End Sub
Tag : .NET, Ms SQL Server 2008, VS 2010 (.NET 4.x)
Private Sub frm_main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Computer.Network.IsAvailable Then
messagebox.showk("โปรแกรมกำลังเชื่อมต่อฐานข้อมูล")
Timer1.Start()
Else
messagebox.show("โปรแกรมขาดการเชื่อมต่อ กรุณาเช็คสาย Lan")
Close()
End If
End Sub
พอลองไส่เป็น pop up แจ้งเตือน มันกับเป็นแบบรูปครับต้องแก้ยังไงเพื่อไห้มันแจ้งเดือนครั้งเดียว
Code (VB.NET)
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If My.Computer.Network.IsAvailable Then
num = num + 1
If num = 1 Then
Label1.ForeColor = Color.Red
End If
If num = 2 Then
Label1.ForeColor = Color.Blue
End If
If num = 3 Then
num = 0
End If
Else
fail("โปรแกรมขาดการเชื่อมต่อ กรุณาเช็คสาย Lan")
End If
End Sub