سرچ (جستجو)

kingo

New Member
درود

دوستان من میخوام مثل این برنامه توی اتوران سرچ بزارم وقتی روی گزینه کلیک کردن اسکریپت اجرا کنه نمونه مثال هست ؟
باتشکر
 

پیوست ها

  • search v2.zip
    192.9 کیلوبایت · بازدیدها: 84

MahmoodM30

مدیر <A href="http://forum.majidonline.com/forums/
بهتره از دیتابیس برای اینجور کارها استفاده بشه که خیلی خوب و راحت و هست و سرعتشم بالا

و برای اینکه روش کلیک شد کاری انجام بشه تو بخش OnSelection لیست باکس از کد زیر استفاده کنید

کد:
ListBoxGetSelectedItems("ListBox","SelItems$,SelItemsNum$,#,SelNumItems")
 

arash-mmb-tz

Active Member
درود

دوستان من میخوام مثل این برنامه توی اتوران سرچ بزارم وقتی روی گزینه کلیک کردن اسکریپت اجرا کنه نمونه مثال هست ؟
باتشکر

عزیز، من توی وبلاگ به طور کامل توضیح دادم نحوه کار رو. شما بیاید دو بار بر روی لیست باکس اصلی کلیک کنید و به قسمت اسکریپتش برید. همچنین اسکریپت هایی رو خواهید دید:

کد:
ListBoxGetSelectedItems("SongList","Items$,ItemsNum$,#,NumItems")
For i=1 To NumItems
  array$=GetArrayItem(Items$,#,i)
  variable$='You Clicked '+array$+',64'
  MessageEx("Message","variable$")
  If (array$='Multimedia builder 4.9.8.13') Then
    **
    MessageEx("Message","This prgram can make apps for windows,64")
  End
  If (array$='Microsoft Windows 8.1') Then
    **
    MessageEx("Message","Operating system from microsoft,64")
  End
Next i

توی فرمان های بالا، وقتی شما دو بار بر روی یک آیتم مثلا Microsoft Windows 8.1 دابل کلیک می کنید، اسم اون آیتم انتخاب شده در متغییر array$ ذخیره شده.

فقط کافیه یک دستور شرطی بعد از variable$='You Clicked '+array$+',64' بزارید که اگر:

کد:
  If (array$='Microsoft Windows 8.1') Then

سپس:

کد:
Run("<DrcDir>\Setup.exe","")

و در نهایت :

کد:
End

موفق باشید.
 

kingo

New Member
ممنون از راهنمایی شما arash-mmb-tz حالا چطوری برای هرکدوم از برنامه ها این دستور اجرا کنیم که اگه مثلا روی Microsoft office 2007 کیلک کردیم نصب بشه
...............
آقا محمود درباره ساخت دیتا بیس
 

arash-mmb-tz

Active Member
ممنون از راهنمایی شما arash-mmb-tz حالا چطوری برای هرکدوم از برنامه ها این دستور اجرا کنیم که اگه مثلا روی Microsoft office 2007 کیلک کردیم نصب بشه
...............
آقا محمود درباره ساخت دیتا بیس

خب عزیز من بهتون گفتم که. به عنوان مثال شما در اسکریپت Songlist اینو برای آفیس 2007 بنویسید:

کد:
If (array$='Microsoft office 2007') Then
Run("<SrcDir>\Setup-office.exe","")
End

که به جای Setup-office.exe، اسم فایل نصبی آفیس رو بنویسید.
 
آخرین ویرایش:

kingo

New Member
درود آقا آرش تشکر فراوان.
وقتی اسم یک نرم افزاری که داخل لیست نیست میزنم فاطی میکنه!!!
 
آخرین ویرایش:

arash-mmb-tz

Active Member
درود آقا آرش تشکر فراوان.
وقتی اسم یک نرم افزاری که داخل لیست نیست میزنم فاطی میکنه!!!

دوست عزیز مثلا چجوری قاطی می کنه؟ Not responding می ده؟ بعد یک چیز دیگه، پست بالا که فرمان رو براتون گذاشتم تو آخرش کلمه End رو ننوشته بودم. توی پروژه اصلاح کنید.
 

جدیدترین ارسال ها

بالا