Easy 4ever كتب :أخوي انا عطيتك مثال الإضافه ولاكن انت تستطيع التحايل عليه
بدل من وضع مربع الحوار يذهب للـ Icon تلقائي عند إدخال رمز معين
يكون في شرط في حدث التغيير على Richtextbox
بحيث إذا واجهك رمز مثلا : ) قم باستبداله بإيقونة وهكذا ..
يعني من كودي السابق أقتبس فقط كود الإضافة
انشهد انك صادق بس عاد من العجلة مافيه مخ
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
Abu Ehab كتب :تقلقش ... دقيقتين راح احل المشكلة أن شاء الله .
بارك الله فيك عز الله انك ماتقصر
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
حاولت اخلي المحاذاة rtl على الطريقة المعتادة لكن مانفعت بالاداة:o
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
On Error Resume Next
If RichTextBox1.Find(":)") > -1 Then
Dim t() As String
t = RichTextBox1.Text.Split(":)")
Dim i As Integer
For i = 1 To t.Length - 1
Dim ffo As String = ":)"
If RichTextBox1.Find(":)") > -1 Then
Dim ClipboardContents As String = Clipboard.GetText
RichTextBox1.SelectionStart = ":)"
RichTextBox1.SelectedText = ""
Clipboard.SetImage(ImageList1.Images.Item(21))
RichTextBox1.Paste()
Clipboard.SetText(ClipboardContents)
End If
Next
End If
End Sub
ساحاول باذن الله تحويل طريقة المشروع الى طريقة الاستبدال
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
On Error Resume Next
If RichTextBox1.Find(":)") > -1 Then
Dim t() As String
t = RichTextBox1.Text.Split(":)")
Dim i As Integer
For i = 1 To t.Length - 1
Dim ffo As String = ":)"
If RichTextBox1.Find(":)") > -1 Then
Dim ClipboardContents As String = Clipboard.GetText
RichTextBox1.SelectionStart = ":)"
RichTextBox1.SelectedText = ""
Clipboard.SetImage(ImageList1.Images.Item(21))
RichTextBox1.Paste()
Clipboard.SetText(ClipboardContents)
End If
Next
End If
End Sub
والله اظن بصراحة ان هذا اللي يناسب فكرتي ولا ادري لكن سارى ان شاء الله
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
ابغى زي طريقتي هذي كتبت الرمز من غير مربع حوار
