ضغطة الماوس = ضغطتين... كيف؟

Private Sub Text1_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Local Error Resume Next
Dim lStart As Long, lEnd As Long, lPos As Long

 If Button = 1 Then
	 lPos = Text1.SelStart
	 lStart = InStrRev(Text1, " ", lPos)
	 lEnd = InStr(lPos, Text1, " ")
	 If lEnd = 0 Then lEnd = Len(Text1) + 1

	 Text1.SelStart = lStart
	 Text1.SelLength = lEnd - lStart - 1
 End If
End Sub

اخي ولا موس و لاغيره

جرب هل الكود

لكنه به خطأ بسيط لم احله لضيق الوقت اتركه لك كي تفكر فيه و تحله

لتدرب نفسك على ذلك

و ان عجزت ذكرني عن طريق الخاص لاحله لك

Private Sub Text1_Click()
Dim Start As Integer, Last As Integer
Start = InStrRev(Text1.Text, " ", Text1.SelStart)
Last = InStr(Text1.SelStart, Text1.Text, " ")
Text1.SelStart = Start
Text1.SelLength = Last - Start - 1
End Sub

اخي ولا موس و لاغيره

جرب هل الكود

لكنه به خطأ بسيط لم احله لضيق الوقت اتركه لك كي تفكر فيه و تحله

لتدرب نفسك على ذلك

و ان عجزت ذكرني عن طريق الخاص لاحله لك

Private Sub Text1_Click()
Dim Start As Integer, Last As Integer
Start = InStrRev(Text1.Text, " ", Text1.SelStart)
Last = InStr(Text1.SelStart, Text1.Text, " ")
Text1.SelStart = Start
Text1.SelLength = Last - Start - 1
End Sub

اخي ولا موس و لاغيره

جرب هل الكود

لكنه به خطأ بسيط لم احله لضيق الوقت اتركه لك كي تفكر فيه و تحله

لتدرب نفسك على ذلك

و ان عجزت ذكرني عن طريق الخاص لاحله لك

Private Sub Text1_Click()
Dim Start As Integer, Last As Integer
Start = InStrRev(Text1.Text, " ", Text1.SelStart)
Last = InStr(Text1.SelStart, Text1.Text, " ")
Text1.SelStart = Start
Text1.SelLength = Last - Start - 1
End Sub

السلام عليكم ورحمة الله وبركاته... أما بعد

حياك Pharaonic_Guy.. وألف ألف شكر على الكود.. شغال 100%

حياك Super_Pro.. وماااا قصرت عالكود.. وهو نفس مبدأ كود Pharaonic_Guy..

وبالنسبة للأخطاء.. فنهم فيه خطأين واجهتها عند تشغيل البرنامج..

الأول اذا حطيت الماوس قبل أول حرف من أي كلمة جديدة.. يعطيني خطأ.. ومعروف السبب

والمشكلة الأخرى.. اذا ضغطت على مكان فاضي في خانة النص :)

وعلى كل.. بالنسبة للمشكلتين... فهي محلولة في كود Pharaonic_Guy

شاكر لكم تعاونكم جميعا وما قصرتم

أخووووووووكم طالب الخبرة

على الرحب و السعة

Option Explicit
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetMessageExtraInfo Lib "user32" () As Long

Private Sub txtTest_Click()
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, 0, GetMessageExtraInfo
DoEvents ' <- Don't remove it
End Sub

السلام عليكم

لقد أحتجت هذه الطريقة في إحدى المرات فعملت برنامج :) بسيط

يقوم بعملية النقر عني :wacko:

وهو في المرفقات

اتمنى أن يفيدكم

و السلام عليكم

NOUR_MAOUS.rar