| 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 cmdstandart_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 | |
| |
zurück