سلام , من میخوام با اسکریپت CreateTextButton یه TextButton بسازم مانند( CreateTextButton"texbtn1","label$,10,10,,,start") و میخوام تو texbtn1 که ساختم یه اسکریپت قرار بدم . چطوری این کارو بکنم؟؟؟
به این شکل میتونید برای هر شئ جدید کدی تعیین کنید:
[PHPS]CreateTextButton("textButton","object$,x,y,w,h,Button")
SetObjectParam("object$","MOUSEDOWNSCRIPT:0=code$")
[/PHPS]
بعنوان مثال کد زیر به هر تعداد دکمه ی جدید ایجاد میکنه که با کلیلک بر روی اون، نام اون شئ در یک Message Box نمایش داده میشه:
[PHPS]If (visited = FALSE) Then
**// assigning values for the first time
x = 10
w = 80
h = 25
y = -h
visited = TRUE
End
y = y + 10 + h
If (y > (ClientHeight()-h-2)) Then
y = 10
x = x + 10 + w
End
crlf$ = CHR(10)+CHR(13)
code$ = 'obj$ = CurrentObject()'+crlf$+'Message("obj$","")'
CreateTextButton("textButton","object$,x,y,w,h,Button")
SetObjectParam("object$","MOUSEDOWNSCRIPT:0=code$")
