پاك نمودن متن اديت باكس

[wahid online]

سلام دوستان . مشكلي دارم كه اميدوترم راهنمايي بفرماييد . در يك پروژه تعدادي اديت باكس دارم كه داخل آنها متني را مي نويسم . سؤالم اين اسن كه با چه اسكريپتي مي توانم محتويات داخل اين اديت باكسها را پاك كنم تا آماده نوشتن متن جديد بشود . مثلا" با كليك كردن روي بك دكمه متنهاي داخل اديت باكسها پاك شود . البته ابتدا در انجمن سرچ كردم ولي چيزي پيدا نكردم . ممنون

 

[the_king]

سلام دوستان . مشكلي دارم كه اميدوترم راهنمايي بفرماييد . در يك پروژه تعدادي اديت باكس دارم كه داخل آنها متني را مي نويسم . سؤالم اين اسن كه با چه اسكريپتي مي توانم محتويات داخل اين اديت باكسها را پاك كنم تا آماده نوشتن متن جديد بشود . مثلا" با كليك كردن روي بك دكمه متنهاي داخل اديت باكسها پاك شود . البته ابتدا در انجمن سرچ كردم ولي چيزي پيدا نكردم . ممنون

یه راهش اینه :

empty$ = ''
name$ = 'EditBox'
For i = 1 To 50
  DisplayValue("name$","empty$")
  name$ = 'EditBox' + CHAR(i)
  If (name$ = '') Then
    Break()
  End
Next i

اینطوری هم میشه :

empty$ = ''
names$ = 'EditBox,EditBox1,EditBox3'
t$ = ','
For loop = 1 To Infinity
  i = POS(t$,names$) - 1
  If (i = -1) Then
    name$ = names$
    names$ = ''
  Else
    name$ = StrCopy(names$,1,i)
    i = i + 2
    names$ = StrCopy(names$,i,1000)
  End
  DisplayValue("name$","empty$")
  If (names$ = '') Then
    Break()
  End
Next loop

 

[icefall]

سلام
یه راه حل کوچولو برای زمانی که تعداد ادیت باکساتون کمه و نام های مختلفی دارن، راهی که همیشه استفاده می کنم:
استفاده از دستور Loadtext
پیوست رو مشاهده بفرمایید.