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.
ik will
als je invult
1 dat de Line dan dan Schuin Naar beneden gaat
en als je intik
1000 dat de line dan Schuin naar Boven gaat
dim sarr1() as string, sarr2() as string
sarr1 = split(text1.text, "=") 'text1.text = "1 = hoog"
sarr2 = split(text2.text, "=") 'text2.text = "1000 = laag"
text1.text = sarr1(0) & " = " & sarr2(1)
text2.text = sarr2(0) & " = " & sarr1(1)
Private Sub Form_Load()
Dim fWidth As Single
Dim fHeight As Single
fWidth = Me.ScaleWidth
fHeight = Me.ScaleHeight
'Draai de as om (0,0) linksbeneden
Me.Scale (0, fHeight) - (fWidth, 0)
Me.Line (0, 0) - (1000, 1000)
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.