۰۴-آذر-۱۳۸۶, ۰۲:۰۸:۳۶
سلام.
كد زير رو براي جستجو در richtextbox نوشتم ولي متاسفانه حروف و كلمات فارسي رو پيدا نمي كنه.
text1 همون richtextbox و text2 معموليه.
تنها در صورتي كه روي text1 كه فارسي نوشته شده كليك كنم عيارات فارسي رو پيدا مي كنه.
اگه كسي راهنمائي كنه ممنون مي شم.
اينم كد:
كد زير رو براي جستجو در richtextbox نوشتم ولي متاسفانه حروف و كلمات فارسي رو پيدا نمي كنه.
text1 همون richtextbox و text2 معموليه.
تنها در صورتي كه روي text1 كه فارسي نوشته شده كليك كنم عيارات فارسي رو پيدا مي كنه.
اگه كسي راهنمائي كنه ممنون مي شم.
اينم كد:
کد:
Private Sub Command1_Click()
Static start As Long
text1.SelStart = 1
text1.HideSelection = False
textfind = text1.Find(text2.Text, start)
If textfind <> -1 Then
start = textfind + 1
Else
MsgBox "Search is not found", vbExclamation
start = 0
End If
End Sub