سونامی
16-11-2008, 18:32
خب من این تاپیک را زدم تا هرچی بلدم یاد بدم و از شما دوستان یاد بگیرم من در این تاپیک لینک برنامه هارو نمیدم چون ممکن است خراب باشه و......کد وتوضیح کد را میدم اگر شما دوستان هم مایل بودید همین کار را بکنید
خب یک vscrooll ویک hscrooll ویک shape درست کنید وکد زیر را وارد کنید وخودتون تغییر را ببنید
Private Sub HScroll1_Scroll()
Shape1.Left = HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Shape1.Top = VScroll1.Value
End Sub
Private Sub HScroll1_Change()
Shape1.Left = HScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
Shape1.Top = VScroll1.Value
End Sub
خب یک vscrooll ویک hscrooll ویک shape درست کنید وکد زیر را وارد کنید وخودتون تغییر را ببنید
Private Sub HScroll1_Scroll()
Shape1.Left = HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Shape1.Top = VScroll1.Value
End Sub
Private Sub HScroll1_Change()
Shape1.Left = HScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
Shape1.Top = VScroll1.Value
End Sub