ايران ويج

نسخه‌ی کامل: دوباره كمك ميخوام!
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
صفحه‌ها: 1 2
سلام!
من يه ليست دارم. توش گزينه هاي زيادي وجود داره. حالا ميخوام يه تكس باكس بزارم بالاش
و كلمه اي كه تو تكس وارد ميكنم تو ليست پيدا كنه و انتخاب بشه.(بيشتر مشكلم اينه كه با عنصر ليست زياد كار نكردم و خواصش رو نميدونم.) در ضمن ميخوام يه حالتي داشته باشه كه حتما نبايد كلمه توي تكس مثل يكي از گزينه هاي ليست ياشه. يهني شبيه ترين گزينه انتخاب بشه. فكر ميكنم از Like بايد استفاده بشه. اما نميدونم چطوري!
ممنون!
شما سه باره بخواه ؛ چهار باره بخواه ؛ صد باره بخواه ما در خدمتيم

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

کد:
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

اين الان با اولين بار پيدا كردن از حلقه خارج مي شه
اگه خواستي بگو يكاريش كنم براي ادامه جستجو سوال كنه
و اگه تاييد كردي بره سر بعديش ( البته خودت استادي مي توني باش اينكار كني )

مهمان

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

کد:
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
البته شاید مجبور بشی جای تکست و با لیست عوض کنی در هر صورت خودت کمی باهاش کار کن
حالا كه تو مال من رو كامل كردي منم تلافي مي كنم و مال تو رو كامل مي كنم 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

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

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

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

اگر چه كدش يه كم خركي هم شد !! Amaze Amaze Amaze
سلام!
ممنون از همه. فقط بگيد اون تابع چيكار ميكنه؟ LCase رو ميگم. حروف بزرگ رو به كوچيك تبديل ميكنه؟

مهمان

مهندس جان خودت می پرسی و خودت هم جواب می دی عزیز ::

بله
Lcase : کوچک می کند
UCase : بزرگ می کند
مي خانه اگر ساقي صاحب نظري داشت مي خوارگي و مستي ره و رسم دگري داشت

خوب عزيز من چرا يك عنوان درست و حسابي براي اين تاپيك انتخاب نكردي؟ خيلي سخته؟ البته مشكل از شما نيست از مديران اين گفتگو است.
ممد جان دستت درد نكنه برنامه قشنگي بود
سلام!
بچه ها فكر ميكنم بهترين راه رو پيدا كردم!
کد:
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
نقل قول: برنامش رو هم ميزارم تو سايت شايد به درد كسي بخوره
اين كه مي گم يه چيزيه كه مدت زيادي تو دلم مونده و مي خواستم بگم و
ترسيدم يه عده از دوستان كه بسيار بهشون احترام مي گذارم و سرور ما
هستند ناراحت بشن

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

الان من اينها رو گفتم كه عقيدم رو بيان كرده باشم و شايد لحن صحبتم در ابتدا
بد بود كه لازم مي دونم همينجا معذرت خواهي كنم
خودتون تصميم بگيريد .
مي تونيد يكم به حرف هاي من اهميت بديد و يا روال سابق رو به پيش بگيريد
آخرش نظر شماست كه پيش مي ره چون من خودم رو مي تونم اصلاح كنم
ولي جمع رو كه نمي تونم اصلاح كنم
من يكي خودم برنامه نمي فرستم چون واقعا چيز بدرد بخوري كه ارزشش رو
داشته باشه و ديگران ازش استفاده كنند تا حالا ننوشتم و اگر روزي برنامه اي نوشتم
و گذاشتم تو سايت اين اعتقاد رو دارم كه واقعا بدرد مي خوره يا يه ايده نو توش
هست
بيايد يه بازبيني رو كل سايت داشته باشيم
چون اينطوري ادامه دادن فايده اي نداره
صفحه‌ها: 1 2