امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
دوباره كمك ميخوام!
نویسنده پیام
Mohandese_Javan آفلاین
در حال پیشرفت
***

ارسال‌ها: 345
موضوع‌ها: 90
تاریخ عضویت: فروردین ۱۳۸۴

تشکرها : 1
( 39 تشکر در 23 ارسال )
ارسال: #1
دوباره كمك ميخوام!
سلام!
من يه ليست دارم. توش گزينه هاي زيادي وجود داره. حالا ميخوام يه تكس باكس بزارم بالاش
و كلمه اي كه تو تكس وارد ميكنم تو ليست پيدا كنه و انتخاب بشه.(بيشتر مشكلم اينه كه با عنصر ليست زياد كار نكردم و خواصش رو نميدونم.) در ضمن ميخوام يه حالتي داشته باشه كه حتما نبايد كلمه توي تكس مثل يكي از گزينه هاي ليست ياشه. يهني شبيه ترين گزينه انتخاب بشه. فكر ميكنم از Like بايد استفاده بشه. اما نميدونم چطوري!
ممنون!
۰۴-بهمن-۱۳۸۴, ۱۸:۳۰:۱۹
ارسال‌ها
پاسخ
Iron_Fist غایب
مدیر بازنشسته
*****

ارسال‌ها: 1,456
موضوع‌ها: 70
تاریخ عضویت: آبان ۱۳۸۴

تشکرها : 109
( 456 تشکر در 134 ارسال )
ارسال: #2
 
شما سه باره بخواه ؛ چهار باره بخواه ؛ صد باره بخواه ما در خدمتيم

بيا اين خوراكته
هر جوري تو تكست وارد كني تو ليست همون رو برات انتخاب مي كنه

کد:
For i = 0 To List1.ListCount
    If LCase(List1.List(i)) = LCase(Text1.Text) Then
        List1.Selected(i) = True
        Exit For
    End If
Next i

اين الان با اولين بار پيدا كردن از حلقه خارج مي شه
اگه خواستي بگو يكاريش كنم براي ادامه جستجو سوال كنه
و اگه تاييد كردي بره سر بعديش ( البته خودت استادي مي توني باش اينكار كني )
۰۴-بهمن-۱۳۸۴, ۱۹:۰۹:۰۸
ارسال‌ها
پاسخ
مهمان
مهمان

 

تشکرها :
( تشکر در 9 ارسال )
ارسال: #3
 
سلام البته مشت آهنی جواب داد و لی می تونی همون کد رو با کمی کامل تر کردن بصورت زیر استفاده کنی ::

کد:
For i = 0 To List1.ListCount
    If instr(LCase(List1.List(i)) , LCase(Text1.Text))<>0 Then
        List1.Selected(i) = True
        Exit For
    End If
Next i
البته شاید مجبور بشی جای تکست و با لیست عوض کنی در هر صورت خودت کمی باهاش کار کن
۰۴-بهمن-۱۳۸۴, ۱۹:۵۹:۳۲
پاسخ
Iron_Fist غایب
مدیر بازنشسته
*****

ارسال‌ها: 1,456
موضوع‌ها: 70
تاریخ عضویت: آبان ۱۳۸۴

تشکرها : 109
( 456 تشکر در 134 ارسال )
ارسال: #4
 
حالا كه تو مال من رو كامل كردي منم تلافي مي كنم و مال تو رو كامل مي كنم Biggrin

کد:
For i = 0 To List1.ListCount
    If InStr(LCase(List1.List(i)), LCase(Text1.Text)) <> 0 Then
        List1.Selected(i) = True
        Resault = MsgBox("آيا مايل به ادامه هستيد ؟", vbYesNo + vbQuestion)
        If Resault = 7 Then
            Exit For
        End If
    End If
Next i

اين الان براي جستجوي عناوين بعدي سوال مي كنه
۰۴-بهمن-۱۳۸۴, ۲۱:۰۷:۵۶
ارسال‌ها
پاسخ
Mamad2003 آفلاین
کاربر با تجربه
****

ارسال‌ها: 1,150
موضوع‌ها: 18
تاریخ عضویت: آذر ۱۳۸۲

تشکرها : 9
( 388 تشکر در 232 ارسال )
ارسال: #5
 
دوستان سلام

منم رفتم و يه كدي واسه دل خودم نوشتم Amaze كد هاي شما عزيزان هم بسيار جالب بود و فقط يه كم نقص داشت اونم اينكه اگه بيشتر ميرفتي جلو يا يه چيزي تايپ مي كردين كه فقط قسمتي از اون توليست بود عمل Deselect رو انجام نمي داد كه البته دوستان همه استادن و مي تونن اين مشكل رو خيلي سريع رفع كنن !
من همين جوري و بابت اينكه يه هشت نه ماهيه چيزي تو سايت پست نكردم رفتم و يه پست در زمينه همين برنامه زدم يعني همون برنامه اي رو كه نوشته بودم !

http://www.iranvig.com/3021.html

اگر چه كدش يه كم خركي هم شد !! Amaze Amaze Amaze

گويند بهشت و حور و کوثر باشد  ..  جوي می و شير و شهد و شکر باشد
پر کن قدح باده و بر دستم نه      ..   نقدي ز هزار نسيه خوشتر باشد  
۰۴-بهمن-۱۳۸۴, ۲۲:۳۵:۳۰
ارسال‌ها
پاسخ
Mohandese_Javan آفلاین
در حال پیشرفت
***

ارسال‌ها: 345
موضوع‌ها: 90
تاریخ عضویت: فروردین ۱۳۸۴

تشکرها : 1
( 39 تشکر در 23 ارسال )
ارسال: #6
 
سلام!
ممنون از همه. فقط بگيد اون تابع چيكار ميكنه؟ LCase رو ميگم. حروف بزرگ رو به كوچيك تبديل ميكنه؟
۰۵-بهمن-۱۳۸۴, ۰۱:۲۳:۱۳
ارسال‌ها
پاسخ
مهمان
مهمان

 

تشکرها :
( تشکر در 9 ارسال )
ارسال: #7
 
مهندس جان خودت می پرسی و خودت هم جواب می دی عزیز ::

بله
Lcase : کوچک می کند
UCase : بزرگ می کند
۰۵-بهمن-۱۳۸۴, ۰۲:۴۷:۱۱
پاسخ
kimia آفلاین
كاربر دو ستاره
**

ارسال‌ها: 223
موضوع‌ها: 28
تاریخ عضویت: خرداد ۱۳۸۳

تشکرها : 0
( 13 تشکر در 12 ارسال )
ارسال: #8
 
مي خانه اگر ساقي صاحب نظري داشت مي خوارگي و مستي ره و رسم دگري داشت

خوب عزيز من چرا يك عنوان درست و حسابي براي اين تاپيك انتخاب نكردي؟ خيلي سخته؟ البته مشكل از شما نيست از مديران اين گفتگو است.
۰۵-بهمن-۱۳۸۴, ۰۶:۲۰:۲۸
وب سایت ارسال‌ها
پاسخ
Iron_Fist غایب
مدیر بازنشسته
*****

ارسال‌ها: 1,456
موضوع‌ها: 70
تاریخ عضویت: آبان ۱۳۸۴

تشکرها : 109
( 456 تشکر در 134 ارسال )
ارسال: #9
 
ممد جان دستت درد نكنه برنامه قشنگي بود
۰۵-بهمن-۱۳۸۴, ۱۹:۰۶:۰۳
ارسال‌ها
پاسخ
Mohandese_Javan آفلاین
در حال پیشرفت
***

ارسال‌ها: 345
موضوع‌ها: 90
تاریخ عضویت: فروردین ۱۳۸۴

تشکرها : 1
( 39 تشکر در 23 ارسال )
ارسال: #10
 
سلام!
بچه ها فكر ميكنم بهترين راه رو پيدا كردم!
کد:
Private Sub Text1_Change()
For i = 0 To List1.ListCount - 1
  If Trim(LCase(Text1.Text)) = Left$(LCase(List1.List(i)), Len(Trim(Text1.Text))) Then
    List1.Selected(i) = True
    Exit For
  End If
Next i
End Sub
الان درست كار ميكنه. برنامش رو هم ميزارم تو سايت شايد به درد كسي بخوره. Biggrin
۰۵-بهمن-۱۳۸۴, ۲۲:۵۷:۴۸
ارسال‌ها
پاسخ
Iron_Fist غایب
مدیر بازنشسته
*****

ارسال‌ها: 1,456
موضوع‌ها: 70
تاریخ عضویت: آبان ۱۳۸۴

تشکرها : 109
( 456 تشکر در 134 ارسال )
ارسال: #11
صحبتي با جمعي از دوستان
نقل قول: برنامش رو هم ميزارم تو سايت شايد به درد كسي بخوره
اين كه مي گم يه چيزيه كه مدت زيادي تو دلم مونده و مي خواستم بگم و
ترسيدم يه عده از دوستان كه بسيار بهشون احترام مي گذارم و سرور ما
هستند ناراحت بشن

مهندس جون ناراحت نشي يا ؛ ولي به نظر من اينقدر با اين برنامه هاي
ساده و يا برنامه هايي كه فقط يك تابع است سايت رو شلوغ و بي محتوا
نكنيد ( روي صحبتم به همه اونهايي است كه اينكار مي كنن ) . ما الان بايد رو
كيفيت برنامه هاي سايت هم كار بكنيم
درصورتي كه الان تنها چيزي كه ديده مي شه كميت هست و بس
البته حق خوري نكنيم چون برنامه هاي خيلي افراد كه يكيشم شما باشيد
خوب هم توش هست و واقعا روش كار شده
برنامه به نظر من بايد يه خلاقيتي توش باشه و روش كار شده باشه
اصلا بايد يك پروژه در معناي حقيقي تو سايت گذاشته بشه كه واقعا روش
كار شده باشه و ارزشش رو داشته باشه كه تو سايت گذاشته بشه
الان بيشتر برنامه هايي كه مي بينيم در واقع يك مثال براي رفع اشكال است

الان من اينها رو گفتم كه عقيدم رو بيان كرده باشم و شايد لحن صحبتم در ابتدا
بد بود كه لازم مي دونم همينجا معذرت خواهي كنم
خودتون تصميم بگيريد .
مي تونيد يكم به حرف هاي من اهميت بديد و يا روال سابق رو به پيش بگيريد
آخرش نظر شماست كه پيش مي ره چون من خودم رو مي تونم اصلاح كنم
ولي جمع رو كه نمي تونم اصلاح كنم
من يكي خودم برنامه نمي فرستم چون واقعا چيز بدرد بخوري كه ارزشش رو
داشته باشه و ديگران ازش استفاده كنند تا حالا ننوشتم و اگر روزي برنامه اي نوشتم
و گذاشتم تو سايت اين اعتقاد رو دارم كه واقعا بدرد مي خوره يا يه ايده نو توش
هست
بيايد يه بازبيني رو كل سايت داشته باشيم
چون اينطوري ادامه دادن فايده اي نداره
۰۶-بهمن-۱۳۸۴, ۰۰:۳۳:۵۹
ارسال‌ها
پاسخ


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  آموزش اجرای دوباره پروسه با بستن آن...pdf MFiRE 3 2,680 ۰۷-مهر-۱۳۸۶, ۱۹:۰۸:۵۱
آخرین ارسال: pashmaloo
Question در مورده چن تا api کمک ميخوام sh_teta 1 1,699 ۲۵-خرداد-۱۳۸۵, ۱۵:۴۳:۲۸
آخرین ارسال: Soheilvb
  من ميخوام بدونم ورم ها چطور كار ميكنن endedivooneh 3 2,614 ۲۸-فروردین-۱۳۸۵, ۱۳:۲۵:۴۱
آخرین ارسال: arnh
  آي مسلمون كمك سورس برنامه ويدپو كلوپ رو ميخوام rasooli 3 2,247 ۲۷-بهمن-۱۳۸۴, ۱۱:۳۰:۵۹
آخرین ارسال: eidazha
  ميخوام ماژول نويسي ياد بگيرم grakantbij 1 1,504 ۰۹-بهمن-۱۳۸۴, ۲۲:۳۸:۴۹
آخرین ارسال: Iron_Fist
  دوباره ديتابيس كارا كمك... Mohandese_Javan 3 2,525 ۰۸-آذر-۱۳۸۴, ۰۱:۲۹:۵۹
آخرین ارسال: Mohandese_Javan
  من دوباره كمك لازم دارم! پس لطفا كمك !!!! Mohandese_Javan 1 2,077 ۳۰-مرداد-۱۳۸۴, ۱۱:۴۱:۰۰
آخرین ارسال: mRizvandi
  در وي بي چطور سيستم رو خاموش كنم سورسش رو ميخوام vahdani_d 2 2,924 ۲۵-فروردین-۱۳۸۴, ۱۸:۳۸:۵۷
آخرین ارسال: electro-learning

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 2 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS