-
تاپیک آموزشی
خب من این تاپیک را زدم تا هرچی بلدم یاد بدم و از شما دوستان یاد بگیرم من در این تاپیک لینک برنامه هارو نمیدم چون ممکن است خراب باشه و......کد وتوضیح کد را میدم اگر شما دوستان هم مایل بودید همین کار را بکنید
خب یک 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
-
لطف کن و کدهایی که مینویسی رو داخل تگ قرار بده تا به هم نریزه.
خیلی ممنون.
-
-
-
حتما دوست عزیز شما هم کد برنامه های زیبا تون را بزارید این برنامه فقط تعدادی دگمه میخوادو بس[HTML]Private Sub Command1_Click()
Circle (1000, 600), 10, vbRed
End Sub
Private Sub Command2_Click()
Circle (2500, 1300), 500, vbRed
End Sub
Private Sub Command3_Click()
Circle (4500, 1300), 500, vbRed, , , 2
End Sub
Private Sub Command4_Click()
Circle (6500, 1300), 500, vbRed, , , 0.5
End Sub
Private Sub Command5_Click()
Circle (1000, 3300), 500, vbRed, 0.7, 5.5
End Sub
Private Sub Command6_Click()
Circle (2500, 3300), 500, vbRed, -0.7, -5.5
End Sub
Private Sub Command7_Click()
Circle (4500, 3300), 500, vbRed, 0.7, 5.5, 0.5
End Sub
Private Sub Command8_Click()
Circle (6500, 3300), 500, vbRed, -0.7, -5.5, 0.5
End Sub
Private Sub Form_Load()
End Sub
[/HTML]
