Scale-Methode I

Scale-Methode: Form_Paint, Refresh, ScaleTop, ScaleLeft
Private Sub Form_Paint()
Dim i%
ScaleHeight = Val(txtheight.Text) minus 50 = unten, minus 150 = oben.
ScaleWidth = Val(txtwidth.Text) plus 150 = links, plus 50 = rechts.
ScaleTop = Val(txttop.Text) plus 50 = Form-Zentrum.
ScaleLeft = Val(txtleft.Text) minus 50 = Form-Zentrum.
Line (0, (ScaleTop + ScaleHeight))-(0, ScaleTop)
Line (ScaleLeft, 0)-((ScaleLeft + ScaleWidth), 0)
For i = ScaleLeft To (ScaleLeft + ScaleWidth) Step 10
Line (i, -5)-(i, 5)
Next i
For i = (ScaleTop + ScaleHeight) To ScaleTop Step 10
Line (-5, i)-(5, i)
Next i
End Sub
Private Sub cmd_Click()
txtheight.Text = -100
txtwidth.Text = 100
txttop.Text = 100
txtleft.Text = 0
Refresh
End Sub
Private Sub cmdneu_Click()
Refresh
End Sub
Private Sub Form_Resize()
Refresh
End Sub
Private Sub txtheight_GotFocus()
txtheight.SelStart = 0
txtheight.SelLength = Len(txtheight.Text)
txtheight.SetFocus
End Sub
Private Sub txtleft_GotFocus()
txtleft.SelStart = 0
txtleft.SelLength = Len(txtleft.Text)
txtleft.SetFocus
End Sub
Private Sub txttop_GotFocus()
txttop.SelStart = 0
txttop.SelLength = Len(txttop.Text)
txttop.SetFocus
End Sub
Private Sub txtwidth_GotFocus()
txtwidth.SelStart = 0
txtwidth.SelLength = Len(txtwidth.Text)
txtwidth.SetFocus
End Sub

Mehr Tipps: Uhr mit Systemzeit programmieren

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt