ravan77 » 03.07.2007 (Вт) 13:23
тёмыч а можно как то сформировать положение Print. label отображается по середине линии, а можно чтобы принт тоже отображался по середине
Вот такой вот код:
Private Sub oyna_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
xx2 = Form1.qur.XPOS - 9: Label3.Caption = xx2
yy2 = Form1.qur.YPOS - 35: Label4.Caption = yy2
oyna.Line (xx1 * 15, yy1 * 15)-(xx2 * 15, yy2 * 15)
oyna.Circle (xx1 * 15, yy1 * 15), 30
oyna.Circle (xx2 * 15, yy2 * 15), 30
If o8.Value = True Then masht = 13
If o10.Value = True Then masht = 10.5
If o12.Value = True Then masht = 8.5
If o16.Value = True Then masht = 6.5
If o20.Value = True Then masht = 5.3
If o25.Value = True Then masht = 4.3
If o30.Value = True Then masht = 3.5
If o35.Value = True Then masht = 3
natija.Caption = Format(Sqr(((xx1 - xx2) ^ 2) + ((yy1 - yy2) ^ 2)) * (masht * 0.001), "0.###")
natija.Left = (Val(Label1.Caption * 15) + Val(Label3.Caption * 15)) / 2 - 150
natija.Top = (Val(Label2.Caption * 15) + Val(Label4.Caption * 15)) / 2 - 150
oyna.Print (natija.Caption)
End Sub