كود مش عارفة احوله

[rishoteck 0]

الاخوة الكرام اعضاء المنتدى

عندي مشكلة في تحويل كود من c# الى vb

والكود كالتالي:

  private void btnHyperlink_Click(object sender, RoutedEventArgs e)
        {
            InsertURL cw = new InsertURL(rta.Selection.Text);
            cw.HasCloseButton = false;
            cw.Closed += (s, args) =>
            {
                if (cw.DialogResult.Value)
                {
                    Hyperlink hyperlink = new Hyperlink();
                    hyperlink.TargetName = "_blank";
                    hyperlink.NavigateUri = new Uri(cw.txtURL.Text);

                    if (cw.txtURLDesc.Text.Length > 0)
                        hyperlink.Inlines.Add(cw.txtURLDesc.Text);
                    else
                        hyperlink.Inlines.Add(cw.txtURL.Text);

                    rta.Selection.Insert(hyperlink);
                    ReturnFocus();
                }
            };
            cw.Show();
        }

عند تحويله عندي مشكلة في السطر ده لانه بيتحول غلط

 cw.Closed += (s, args) =>
            {
                if (cw.DialogResult.Value)
                {
                    Hyperlink hyperlink = new Hyperlink();
                    hyperlink.TargetName = "_blank";
                    hyperlink.NavigateUri = new Uri(cw.txtURL.Text);

                    if (cw.txtURLDesc.Text.Length > 0)
                        hyperlink.Inlines.Add(cw.txtURLDesc.Text);
                    else
                        hyperlink.Inlines.Add(cw.txtURL.Text);

                    rta.Selection.Insert(hyperlink);
                    ReturnFocus();
                }
            };

ولما حولته اصبح كدة

Private Sub btnHyperlink_Click(sender As Object, e As RoutedEventArgs)
	Dim cw As New InsertURL(rta.Selection.Text)
	cw.HasCloseButton = False
[color="#FF0000"][b]	cw.Closed += Function(s, args) Do
		If cw.DialogResult.Value Then
			Dim hyperlink As New Hyperlink()
			hyperlink.TargetName = "_blank"
			hyperlink.NavigateUri = New Uri(cw.txtURL.Text)

			If cw.txtURLDesc.Text.Length > 0 Then
				hyperlink.Inlines.Add(cw.txtURLDesc.Text)
			Else
				hyperlink.Inlines.Add(cw.txtURL.Text)
			End If

			rta.Selection.Insert(hyperlink)
			ReturnFocus()
		End If
	End Function[/b]	cw.Show()[/color]
End Sub
..

فارجو ممن لديه الخبرة مساعدتي ازاي اعمله من خلال addhandler رجاء الاهتمام فانا في امس الحاجة لحل المشكلة دي

جزاكم الله عني خير جزاء

[Tornadofay 4]

أرفق البرنامج بالسي شارب

[rishoteck 0]

أرفق البرنامج بالسي شارب

الأخ الكريم شكرا لتفاعلك وردك

وسوف اقوم بارفاق الملف الكود الأصلي

وارجو المساعدة في تحويله

بس انا احب اعرفك ان الملف ده دوت نت 2010

شكرا مرة تانية

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

RichNotepad.zip

[Tornadofay 4]

أعتقد كود الSilverlight script يعمل على Vb أو c# و لكنى غير متأكد

لعدم خبرتى الكافية مع ال Silverlight

[rishoteck 0]

الاخ الكريم

الفكرة ليست خاصة بالسيلفر لايت

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

cw.Closed += (s, args) => 
            { 
                if (cw.DialogResult.Value) 
                { 
                    Hyperlink hyperlink = new Hyperlink(); 
                    hyperlink.TargetName = "_blank"; 
                    hyperlink.NavigateUri = new Uri(cw.txtURL.Text); 

                    if (cw.txtURLDesc.Text.Length > 0) 
                        hyperlink.Inlines.Add(cw.txtURLDesc.Text); 
                    else 
                        hyperlink.Inlines.Add(cw.txtURL.Text); 

                    rta.Selection.Insert(hyperlink); 
                    ReturnFocus(); 
                } 
            };

ارجو ممن لديه الخبرة مساعدتي

[hock 11]

هذا الموقع يحول الكود

http://converter.telerik.com/