يه راهنمايي خيلي حرفه اي مي خوام در مورد نسبت دادن چك باكس به دكمه

[p30it]

با سلام و خسته نباشيد به مديران و اعضاي سايت
يه سوال داشتم
يه فايل پيوست گذاشتم
تو اين فايل من 2 تا برنامه رو به ظاهر Embedded كردم ،(كه البته چون حجمش زياد ميشد اين كار رو نكردم اما فرض مي كنيم انجام دادم) و يه اديت باكس گذشتم كه توي اون ادرس رو مي نويسيم مثلا c:/folder و كنار اون يه دكمه هست كه وقتي مي زني ،فايل embedded شده ي من تو اون پوشه كپي ميشه .

من مي خوام كاري بكنم كه كاربر مواردي رو كه ميخواد تيك بزنه و بعد دكمه ي Copy selcted رو بزنه تا فايلهاي Embedded شده ي من با هم كپي بشن.

آيا چنين كاري اصلا امكان پذير هست؟
اگر كسي پيشنهاد مشابهي براي اين كار داره لطف بيان كنه.
با تشكر

 

[aff - SEvEN]

با سلام و خسته نباشيد به مديران و اعضاي سايت
يه سوال داشتم
يه فايل پيوست گذاشتم
تو اين فايل من 2 تا برنامه رو به ظاهر Embedded كردم ،(كه البته چون حجمش زياد ميشد اين كار رو نكردم اما فرض مي كنيم انجام دادم) و يه اديت باكس گذشتم كه توي اون ادرس رو مي نويسيم مثلا c:/folder و كنار اون يه دكمه هست كه وقتي مي زني ،فايل embedded شده ي من تو اون پوشه كپي ميشه .

من مي خوام كاري بكنم كه كاربر مواردي رو كه ميخواد تيك بزنه و بعد دكمه ي Copy selcted رو بزنه تا فايلهاي Embedded شده ي من با هم كپي بشن.

آيا چنين كاري اصلا امكان پذير هست؟
اگر كسي پيشنهاد مشابهي براي اين كار داره لطف بيان كنه.
با تشكر

بله آقا ، امکان پذير هست ...

خب من زماني در گذشته نه چندان دور براي فايل هاي خاصي از کدي تقريبا به اين شکل استفاده کردم :

BrowseForFolder("Good choice, darling ! It,s Ok baby ...","")
a$=CBK_OpenDir
target1$=a$+'\affection SEvEN.txt'
from1$='<Embedded>\affection SEvEN.txt'
FileExist("target1$","a")
If (a$<>'') Then
  If (a=1) Then
    text$='Text file affection SEvEN.txt another created !'+CHR(13)+CHR(10)+''+CHR(13)+CHR(10)+'Make sure that file is in the same directory than affection SEvEN.txt'+CHR(13)+CHR(10)+''+CHR(13)+CHR(10)+'aff7!'+CHR(13)+CHR(10)+''+CHR(13)+CHR(10)+target1$
    flag=0+0+0+0+0
    param$=text$+','+CHAR(flag)
    MessageEx("Very Good ...","param$")
  Else
    text$='Text file affection SEvEN.txt created !'+CHR(13)+CHR(10)+''+CHR(13)+CHR(10)+'Make sure that file is in the same directory than affection SEvEN.txt'+CHR(13)+CHR(10)+''+CHR(13)+CHR(10)+'aff7!'+CHR(13)+CHR(10)+''+CHR(13)+CHR(10)+target1$
    flag=0+0+0+0+0
    param$=text$+','+CHAR(flag)
    MessageEx("Good ...","param$")
  End
  a$=''
Else
End

اينجا در واقع فايلي به نام affection SEvEN.txt مبناي کپي هست که Embedded مي شه داخل پروژه و هر نوع فايل ديگه اي هم ميتونه باشه ( البته بر پايه اسم و پسوند فايل بايد تغييراتي در اسکريپت در قسمت هاي مربوطه بدين ... البته اين کد و اين مثال کمي متفاوت هست ولي با کمي تلاش مي تونين اونو به يک Edit Box هم نسبت بدين ...

اين کد رو با کمک آقا مهران ، ( Power Game ) دوستم ، تکميل کردم و به نوعي سعي کرديم در متغييرهايي که مربوط به کپي اول و کپي مجدد فايل در همون محل هست نوعي هوش مصنوعي اوليه تعريف کنيم و من به کرات از اون استفاده کردم و در نوع خودش کامل هست ولي نياز به تغيراتي جزئي هم داره مثل تغيير BrowseForFolder به يک اديت باکس و استفاده از اون .
اون تيک مورد اشارتون رو هم که مي تونين به چند روش بسازيد که ساده ترينش استفاده از کد Invert و يا Show و Hide هستش و نسبت دادن اين ها به هم که چند اسکريپت براي کپي استفاده بشه و ...

لطفا سمپل رو هم از پيوست دنلود کنيد ... بهتر متوجه مي شين .

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

 

[gholonbeh]

aff - SEvEN
راهي كه شما توصيه كردي يه كم سخت و پيچيده و طولانيه
من يه راه ديگه اي كه به ذهنم رسيد كه آسون تر از اين روش شماست
اميدوارم خوب باشه
موفق باشي

 

[aff - SEvEN]

aff - SEvEN
راهي كه شما توصيه كردي يه كم سخت و پيچيده و طولانيه
من يه راه ديگه اي كه به ذهنم رسيد كه آسون تر از اين روش شماست
اميدوارم خوب باشه
موفق باشي

آقا پيام سلام ...

مي بخشين اونقدر از مساله اي عصباني بودم صبح که اصلا مثال ايشون رو دنلود نکردم تا ببينم دقيقا چه انتظاري دارن . بله حق با شماست .

 

[gholonbeh]

مساله اي عصباني بودم صبح IMG]http://m1.freeshare.us/165fs820254.gif[/IMG]

اين دنيا ارزش اين حرفارو نداره
از بحث خارج نشيم :دي
ممنون