• 0
rishoteck

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

سؤال

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

عندي مشكلة في تحويل كود من 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 رجاء الاهتمام فانا في امس الحاجة لحل المشكلة دي

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

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

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

RichNotepad.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 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();
}
};

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .