دستور در Edit Box

سلام ايا ميشه به Edit Box دستوري داد كه
1-فقط عدد بگيره
2-اگه اون عدد بين دو عدد 10 تا 100 نبود با يه فونت بزرگتر تايپ بشه
يه طوري كه مشخص باشه حتي Bold هم بشه خوبه.
 

gholonbeh

Member
براي اديت باكس هم مثالي كه گذاشتم رو نگاه كن
ببين به كارت مياد يا نه ؟
 

پیوست ها

  • editbox.rar
    712 بایت · بازدیدها: 34

aff - SEvEN

Banned
سلام ايا ميشه به Edit Box دستوري داد كه
1-فقط عدد بگيره
2-اگه اون عدد بين دو عدد 10 تا 100 نبود با يه فونت بزرگتر تايپ بشه
يه طوري كه مشخص باشه حتي Bold هم بشه خوبه.

خب مي پيشنهاده بهتر و راحت تري دارم براي تغيير رنگ ... تغيير سايز متن ، و تغيير بک گراند EditBox و حتي فونت نوشتهء اون ( حتي بعد از کامپايله پروژه که استفاده از همچين اسکريپت هايي هستش :

براي رنگ متن اديت باکس
کد:
ColorPicker()
SetObjectParam("EditBox","TEXTCOLOR=CBK_SelColor")
SetObjectParam("EditBox1","TEXTCOLOR=CBK_SelColor")

براي رنگ زمينهء اديت باکس
کد:
ColorPicker()
SetObjectParam("EditBox","BGCOLOR=CBK_SelColor")
SetObjectParam("EditBox1","BGCOLOR=CBK_SelColor")

براي سايز فونت
کد:
SetObjectParam("EditBox","FONTSIZE=size")
SetObjectParam("EditBox1","FONTSIZE=size")

براي نوع فونت نوشتهء اديت باکس
کد:
FontPicker()
FontParams$=CBK_Font
If (FontParams$<>'') Then
  SetObjectParam("EditBox","FONTALL=CBK_Font")
  SetObjectParam("EditBox1","FONTALL=CBK_Font")
  Refresh("")
  item$[1]=GetArrayItem(FontParams$,|,1)
  item$[2]=GetArrayItem(FontParams$,|,2)
  item$[3]=GetArrayItem(FontParams$,|,3)
  item$[4]=GetArrayItem(FontParams$,|,4)
  item$[5]=GetArrayItem(FontParams$,|,5)
  msg$= 'FONTNAME = ' + item$[1] + CHR(13) + CHR(10) + 'FONTSTYLE = ' + item$[2] + CHR(13) + CHR(10) + 'FONTSIZE = ' + item$[3] + CHR(13) + CHR(10) + 'FONTSCRIPT = ' + item$[4] + CHR(13) + CHR(10) + 'FONTEFFECT = ' + item$[5] + CHR(13) + CHR(10)
  Message("Font parameters:","msg$")
End

همچنين شما مثاله 497_test_project رو صفحه ء سومش رو ببينين و يا پيوست زير رو دنلود کنيد چون صفحات نامربوط به موضوع اصلي سوالاتون رو در اون حذف کردم .
Program Files\Multimedia Builder497\Samples\497_examples\497_test_project.mbd

به سادگي ميتونيد اسکريپت ها رو با تغييراتي جزئي و به سليقهء خودتون به کليدها نسبت بدين براي تغييراته آني و ...

شادي ... مکرر و دائمي !
 

پیوست ها

  • Set Object Param For EditBox.zip
    2 کیلوبایت · بازدیدها: 25
بالا