Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
If netwerk beschikbaar then
Try
'Hier je huidige code met het DownloadString gebeuren
Catch ex As Exception
MessageBox.Show(Er is een fout opgetreden bla bla de foutmelding is: ex.message, msgboxbtns.ok msgboxicon.error)
End Try
Else als netwerk niet beschikbaar is
messagebox met uitleg
End If
Imports System.Net
Public Class Form1
Dim UpdateAvailable As Boolean
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Enabled = False
Label1.Text = "Bezig met controleren op nieuwe versie, een ogenblik geduld..."
pgbUpdateCheck.Visible = True
bgwUpdateChecker.RunWorkerAsync()
LinkLabel1.Visible = False
End Sub
Private Sub bgwUpdateChecker_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgwUpdateChecker.DoWork
Try
If My.Computer.Network.IsAvailable Then
If New WebClient().DownloadString("http://luuknl.woelmuis.nl/Versions/Programma%20Updater/Version.txt") > My.Application.Info.Version.ToString.Replace(".", Nothing) Then
UpdateAvailable = True
Else
UpdateAvailable = False
End If
End If
Catch ex As Exception
MsgBox("Er kan geen verbinding worden gemaakt. Mogelijk is er geen internet verbinding. Probeer het later opnieuw.", MsgBoxStyle.Critical, "Geen internetverbinding gevonden...")
End Try
End Sub
Private Sub bgwUpdateChecker_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bgwUpdateChecker.RunWorkerCompleted
Button1.Enabled = True
pgbUpdateCheck.Visible = False
If UpdateAvailable = True Then
Label1.Text = "Er is een update."
LinkLabel1.Visible = True
Else
Label1.Text = "Er is geen update."
End If
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Process.Start("http://luuknl.webs.com/programmaupdater.htm")
End Sub
End Class
If My.Computer.Network.IsAvailable Then
Try
If New WebClient().DownloadString("http://luuknl.woelmuis.nl/Versions/Programma%20Updater/Version.txt") >
My.Application.Info.Version.ToString.Replace(".", Nothing) Then
UpdateAvailable = True
Else
UpdateAvailable = False
End If
Catch ex As Exception
MessageBox.Show("Er is een fout opgetreden tijdens het controleren op een update:" & ControlChars.NewLine & ControlChars.NewLine &
ex.Message & ControlChars.NewLine & ControlChars.NewLine, "Geen internetverbinding...", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Else
MessageBox.Show("Er kan geen verbinding worden gemaakt. Mogelijk is er geen internet verbinding. Probeer het later opnieuw.",
"Geen internetverbinding...", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
If My.Computer.Network.IsAvailable Then
Try
If New WebClient().DownloadString("http://luuknl.woelmuis.nl/Programma%20Bestanden/Programma%20Updater/Version.txt") >
My.Application.Info.Version.ToString.Replace(".", Nothing) Then
UpdateAvailable = True
Else
UpdateAvailable = False
End If
Catch ex As Exception
MsgBox("Er is een fout opgetreden tijdens het controleren op een update. Mogelijk is de website (tijdelijk) niet beschikbaar. Probeer het later opnieuw.", MsgBoxStyle.Exclamation, "Geen internetverbinding...")
End Try
Else
MsgBox("Er kan geen verbinding worden gemaakt. Mogelijk is er geen internet verbinding. Probeer het later opnieuw.", MsgBoxStyle.Critical, "Geen internetverbinding...")
End If
If My.Computer.Network.IsAvailable Then
Try
If New WebClient().DownloadString("http://luuknl.woelmuis.nl/Programma%20Bestanden/Programma%20Updater/Version.txt") >
My.Application.Info.Version.ToString.Replace(".", Nothing) Then
UpdateAvailable = True
Else
UpdateAvailable = False
End If
Catch ex As Exception
[COLOR="red"] End Try
Else
MsgBox("Er kan geen verbinding worden gemaakt. Mogelijk is er geen internet verbinding, of is de website tijdelijk niet beschikbaar. Probeer het later opnieuw.", MsgBoxStyle.Critical, "Geen internetverbinding...")
End If[/COLOR]
Wat betekent die eerste regel? Imports System.Net Die kan ik namelijk niet weglaten, dus wat doet die, want die staat niet in mijn
Imports System.Net
Imports System.IO
Public Class Form
Public Function Test()
Dim a As New StreamWriter("bla")
End Function
End Class
Public Class Form
Public Function Test()
Dim a As New System.IO.StreamWriter("bla")
End Function
End Class
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.