أريد كيفية عمل هذه الحركة ؟

أخى محمد

اليك فكرة بسيطة

اضف الكود التالى ثم اضف الى الفورم Text1 ثم اضغط على أى كلمة سوف تلاحظ انها ظهرت على الفورم Caption

Private Sub Text1_Click()
Me.Caption = GetWord(Text1.SelStart)
End Sub

Function GetWord(ByVal Pos As Integer) As String
Dim First As Integer, Last As Integer

If Pos = 0 Then
GetWord = "Nothing to select"
Exit Function
End If

If Mid(Text1, Pos, 1) = " " Or Mid(Text1, Pos, 1) = vbCr Or Mid(Text1, Pos, 1) = vbLf Then
GetWord = "Nothing to select"
Exit Function
End If


For i = Pos To 1 Step -1
If Mid(Text1, i, 1) = " " Or Mid(Text1, i, 1) = vbCr Or Mid(Text1, i, 1) = vbLf Then
First = i + 1
Exit For
End If
Next i

For i = Pos To Len(Text1.Text)
If Mid(Text1, i, 1) = " " Or Mid(Text1, i, 1) = vbCr Or Mid(Text1, i, 1) = vbLf Then
Last = i
Exit For
End If
Next i

If First = 0 Then First = 1

GetWord = Mid(Text1, First, Last - First)
End Function

ممكن تستخدم ال function ديه فى أى برنامج

أرجو ان تكون هى ما تريد :)

السلام عليكم

كود اخي vb6_Rocket جميل وممتاز للغاية

فقط هو نسي -لانه كتبه بسرعة - أن يقوم بزيادة واحد علي الخاصية SelStart ليصبح الكود :

Me.Caption = GetWord(Text1.SelStart + 1)

لأنها تبدأ من الصفر وليس من الواحد وبالتالي فسيكون هناك مسافة في أول أي نص سيتم التأشير عليه بالماوس.. بالتالي سيتم ظهور "Nothing to select" طبقا لشرط If الثاني..

يمكننا أيضا استخدام الكود التالي :

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim sBuffer As String
If Text1.Text = "" Then Exit Sub
If Button = 1 Then
 sBuffer = Text1.SelText
 Me.Caption = sBuffer
End If
End Sub

ولكن ينقص الكود السابق بعض الشروط لأخذ الكلمة المرادة..فقط هو يعتمد علي ما سيقوم المستخدم بالتأشير عليه داخل صندوق النص ..

ومن الممكن أن يخطأ المستخدم في تحديد الكلمة المراد التأشير عليها وبالتالي فقد قام أخي VB6_Rocket في المثال الذي وضعه بوضع معظم الشروط لتحديد الكلمة المشار إليها بالماوس ..

وهناك بعض الشروط الأخري التي من المفروض ان تقوم بتطوريرها بنفسك أخي محمد زغلول ومنها

- التأشير علي نص يحتوي علي كلمة واحدة فقط

-التأشير علي أخر كلمة في النص .

وأعتقد انه لا توجد أوضاع أخري للتأشير علي النص سيعطوا أخطاء غير السابقان..

وتقبلوا تحياتي..

إخواني الأفاضل

لا أعرف كيف أشكركم

فجزاكم الله كل خير

لكن لي طلب بسيط

أريد عندما أضغط بالماوس على الكلمة التي بداخل التكست بوكس أن يتغير لونها , وعندما أضغط على الكلمة التي بعدها يتغير لونها ويرجع لون الأخرى كما كان

أرجو أن يكون طلبي واضحا

وجزاكم الله خيرا