آقا من همین کارو کردم
برای بار اول راحت باز شد و مکان صفحه تغییری نکرد.
بعد از 2 ساعت که رفتم بخوابم و دوباره ادامه ی پروژه رو طراحی کنم مشکل دار شد.
حالا اون پروژه ایی که خودتون طراحی کردید مشکلی نداره
من همه ی عواملی که شما تو فایل ارسالی فرستاده بودید امتحان کردم ولی درست نشد.
حالا مشکل اینجوریه که برای بار اول که روی دکمه کلیک می کنی صفحه باز می شه و برای بار دیگه که کلیک می کنی تا بسته شه راحت بسته می شه و برای دفعات بعد که روی دکمه کلیک می کنی مکان صفحه کمی بالاتر ایجاد می شه و برای دفعات بعد دبگه مکانش همون مکان بالا است و تغییر نمی کنه
حالا من این کد هایی که استفاده کردم رو برای تون فرستادم
برای اسکریپت open از کد زیر ؛
WLimit = 777
HLimit = 420
Object$ = 'Bitmap'
Show("Object$")
For i=1 To Infinity
Step = Step + i*2
X = ObjectX(Object$)- Step
Y = ObjectY(Object$)- Step
W = ObjectWidth(Object$)+(2*Step)
H = ObjectHeight(Object$)+(2*Step)
If (W > WLimit) Then
W = WLimit
X = ObjectX(Object$)
WEnd = TRUE
End
If (H > HLimit) Then
H = HLimit
Y = ObjectY(Object$)
HEnd = TRUE
End
MoveObject("Object$","X,Y,W,H")
**Refresh("")
If (WEnd = TRUE & HEnd = TRUE) Then
Break()
End
Next i
Step = 0
WEnd = HEnd = FALSE
و برای کد close از کد زیر ؛
WLimit = 0
HLimit = 0
Object$ = 'Bitmap'
For i=1 To Infinity
Step = Step + i
X = ObjectX(Object$)+ Step
Y = ObjectY(Object$)+ Step
W = ObjectWidth(Object$)-(2*Step)
H = ObjectHeight(Object$)-(2*Step)
If (W < WLimit) Then
W = WLimit
X = ObjectX(Object$)
WEnd = TRUE
End
If (H < HLimit) Then
H = HLimit
Y = ObjectY(Object$)
HEnd = TRUE
End
MoveObject("Object$","X,Y,W,H")
**Refresh("")
If (WEnd = TRUE & HEnd = TRUE) Then
MoveObject("Object$","InitX,InitY,0,0")
Hide("Object$")
Break()
End
Next i
Step = 0
WEnd = HEnd = FALSE
وبرای کدی که تو محیط اصلی صفحه به کار بردید از ؛
Object$ = 'Bitmap'
InitX = ObjectX(Object$)
InitY = ObjectY(Object$)
استفاده کردم
ممنون
--------------------------------------------------------------------------------------
گروه امنیتی آشیانه(دومین گروه هکری دنیا)