سؤالين من فضلكم

هذا حل السؤال الاول

Dim Search, Where

Dim x

Private Sub Command1_Click()

x = Text2.Text

Search = InputBox(";x:")

Where = InStr(Text1.Text, Search)

If Where Then ' If found,

Text1.SetFocus

Text1.SelStart = Where - 1

Text1.SelLength = Len(Search)

Else

MsgBox "لم يتمكن البرنامج من ايجاد كلمة " & Search & "..."

End If

End Sub

السؤال الثاني

اعتقد انه لايمكن لان الحدث سيكون مرتبط بالـ imageBox كاملاً

وليس الصوره التى عليه

ع كلاً بجرب

وإن شاء الله خير

كما ذكر الأخ Yemen بخصوص اجابة السؤال الأول

اما السؤال الثانى فيمكن تنفيذه لو أن الصورة على Picture Box

مرفق لك مثال

ارجو أن يفى بالغرض

Reply.zip

السلام عليكم

السؤال الاول : جرب هذا الكود

Dim X As Integer
X = FindMatch(Text1.Text, Text2.Text)
If X = 0 Then
MsgBox "Word not found"
Else
MsgBox "Word found"
End If
End Sub

1. Create a new function called FindMatch. Add the following code to
this function:

Function FindMatch(Str1 As String, Str2 As String) As Integer
Dim Match As Integer
Dim Char1 As String
Dim Char2 As String

Match = InStr(Str1, Str2)

If Match <> 0 Then
Char1 = Mid$(Str1, Match - 1, 1)
If Codes(Char1) Then
Char2 = Mid$(Str1, Match + Len(Str2), 1)
If Codes(Char2) Then
FindMatch = True: Exit Function
End If
End If
End If

FindMatch = False
End Function

2. Create a new function called Codes. Add the following code to this
function:

Function Codes(PuncStr As String) As Integer
If PuncStr = "," Or PuncStr = "." Or PuncStr = " " Or _
PuncStr = Chr(10) Or PuncStr = Chr(13) Or PuncStr = Chr(9) Then
Codes = True
Else
Codes = False
End If
End Function

السؤال الثانى :

يمكنك ان تضع اداة label على الجزء الذى تريد تنفيذ الحدث عند الضغط عليه وتجعل خاصية backstyle =trancperant وخاصية caption فارغة وتضع الكود الذى تريد تنفيذه فى حدث label1_click

السلام عليكم ألف شكر على كرمكم.........

بجرب اجاباتكم......