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
           
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.