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.
Public Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Sub Report_Load()
Dim Size As Integer
Dim Text As String
Dim url As String
Size = 200
Text = Text24
Text = Replace(Text, " ", "%20")
url = "http://chart.apis.google.com/chart?chs=" & Size & "x" & Size & "&cht=qr&chld=H|0&chl=" & Text
Call GURoL(url, _
"d:\database\QR\" & Text & ".png")
QR.Picture = "d:\database\QR\" & Text & ".png"
End Sub
Public Sub GURoL(url As String, FileName As String)
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, url, FileName, 0, 0)
If lngRetVal <> 0 Then
MsgBox "GURol godo: Can't download from " & url & " to " & FileName
End If
End Sub
dit is een beetje kort door de bocht. het probleem is dat degene die over het geld gaat geen idee heeft wat het op de werk vloer betekend. pas als je cijvetjes kan laten zien geloven ze het.Als er geen geld voor wordt vrijgemaakt dan is het kennelijk ook niet belangrijk. Door er zo naar te kijken bespaar je je een heleboel frustratie en nodeloze energie.
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.