12 Декабрь 2008

Как перемещать объект по форме?

Разное |  Таги: ,

Как перемещать объект по форме?

Option Explicit
Dim x1 As Integer
Dim x2 As Integer
Dim otrezok As Integer

Private Sub Form_Load()
x1 = Shape1.Left
x2 = Shape1.Top
otrezok = 200
End Sub

Private Sub Command1_Click()
Shape1.Move x1 + otrezok, x2
End Sub

Private Sub Command2_Click()
Shape1.Move x1, x2
End Sub

Запись опубликована on 12.12.2008 at 23:00 и размещена в рубрике: Разное. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.