یکی از پارامتر های تابع Find مشخص کننده موقعیت کاراکتر شروع جستجو است.
شاید باشه اما من تا به حال ActiveX ویرایشگر متنی که Gif متحرک رو نشون بده ندیدم. نرم افزار WordPad ویندوز
رو باز کنید، یک نمونه از RichTextBox ئه، اگه امتحانش کنید می بینید که تصاویر GIF متحرک رو ساکن نشون میده.
تمامی کنترل هایی که بصورت معمول توی فرم ها می بینید یک رخداد Paint دارند، این رخداد در کنترل های استاندارد
فقط زمانی فراخوانی میشه که یا مشخصات کنترل تغییر کنه و یا یک فرم دیگه از روی کنترل رد بشه. به همین دلیل
معمولا تصاویر انیمیشن در اینجور کنترل ها قابل استفاده نیست و GIF متحرک هم پشتیبانی نمیشه.
بین ActiveX هایی که Gif متحرک رو نشون می دهند فقط با Microsoft Internet Controls آشنا هستم که اونم
Web Browser است و مثل RichTextBox ویرایشگر متن نیست. چند تا ActiveX نمایش دهنده مستقل Gif
متحرک هم در اینترنت هست اما اونها هم فقط نمایش دهنده تصویر اند و نمیشه مثل RichTextBox ازشون
استفاده کرد.
نمونه کدی برای نمایش GIF متحرک اینجا هست : الگوريتم lzw
این مورد رو که قبلا پرسیده بودید و توضیح دادم و چند مثال اش رو هم نوشتم. اساس همه جستجو های خطی
مثل Find همینه، فرقی نمی کنه که با InStr جستجو می کنید یا Find یا FindDataLong یا هر تابع دیگری :
Dim Count As Long, Pos As Long
Count = 0
Pos = -1
With RichTextBox1
.Text = "This is a sample." & vbNewLine _
& "I have added a sample here." & vbNewLine _
& "sample finished here."
Do
Pos = .Find("sample", Pos + 1, , rtfWholeWord)
If Pos = -1 Then Exit Do
Count = Count + 1
Loop
MsgBox Count
End With
جستجوی عبارت sample بعد از موقعیت فعلی مکان نما (Find Next) در متن :
کد:
With RichTextBox1
If .Find("sample", .SelStart + 1, , rtfWholeWord) = -1 Then
MsgBox "The text has been searched."
End If
End With
نمایندگیهای رسمی موبایل سامسونگ در تهران + مزایای استفاده از خدمات آنها