08-11-14, 08:12 PM
الأخوة الأعزاء
السلام عليكم ورحمة الله وبركاته
واجهتني مشكلة بسيطة في تحويل الكود من C#.Net إلى VB.Net في تقنية WPF.
انا احاول اعمل WPF Custom control من عدة زراير واريد هذا الكنترول ان يكون متاح لجميع الويندو التي سوف أقوم بعملها في وقت لاحق ، مع استطاعة عمل Mouse Click Overridable.
قمت بتحويل المثال من على الرابط التالي http://alanbeech.wordpress.com/2011/05/0...controls//
وهذه نتيجة التحويل
التحويل تم بغير أخطاء
ما عدا سطرين هم التي فيهم الخطاء
Public Custom Event OnClickMeClicked As RoutedEventHandler
يعطيني الخطاء التالي
'RaiseEvent' definition missing for event 'OnClickMeClicked'
وكذلك هذا السطر
Public Custom Event OnNoMeClicked As RoutedEventHandler
يعطيني نفس الخطاء مع تغيير اسم الكائن.
أرجو منكم أخواني الأعزاء اذا عندكم حل لهذه المشكلة ان لا بتخلوا علي به
ولكم جزيل الشكر والتقدير
السلام عليكم ورحمة الله وبركاته
واجهتني مشكلة بسيطة في تحويل الكود من C#.Net إلى VB.Net في تقنية WPF.
انا احاول اعمل WPF Custom control من عدة زراير واريد هذا الكنترول ان يكون متاح لجميع الويندو التي سوف أقوم بعملها في وقت لاحق ، مع استطاعة عمل Mouse Click Overridable.
قمت بتحويل المثال من على الرابط التالي http://alanbeech.wordpress.com/2011/05/0...controls//
وهذه نتيجة التحويل
كود :
Public Class ExampleControl
Inherits Control
Private _clickMeButton As Button
Private _noMeButton As Button
' events exposed to container
Public Shared ReadOnly OnClickMeClickedEvent As RoutedEvent = EventManager.RegisterRoutedEvent("OnClickMeClicked", RoutingStrategy.Direct, GetType(RoutedEventHandler), GetType(ExampleControl))
Public Shared ReadOnly OnNoMeClickedEvent As RoutedEvent = EventManager.RegisterRoutedEvent("OnNoMeClicked", RoutingStrategy.Direct, GetType(RoutedEventHandler), GetType(ExampleControl))
Shared Sub New()
DefaultStyleKeyProperty.OverrideMetadata(GetType(ExampleControl), New FrameworkPropertyMetadata(GetType(ExampleControl)))
End Sub
' get the button objects as the templete is applied and add click event handlers
Public Overrides Sub OnApplyTemplate()
MyBase.OnApplyTemplate()
_clickMeButton = TryCast(GetTemplateChild("PART_ClickMeButton"), Button)
_noMeButton = TryCast(GetTemplateChild("PART_NoMeButton"), Button)
If _clickMeButton IsNot Nothing Then
AddHandler _clickMeButton.Click, AddressOf ClickMeClicked
End If
If _noMeButton IsNot Nothing Then
AddHandler _noMeButton.Click, AddressOf NoMeClicked
End If
End Sub
' expose and raise 'OnClickMeClicked' event
Public Custom Event OnClickMeClicked As RoutedEventHandler
AddHandler(ByVal value As RoutedEventHandler)
[AddHandler](OnClickMeClickedEvent, value)
End AddHandler
RemoveHandler(ByVal value As RoutedEventHandler)
[RemoveHandler](OnClickMeClickedEvent, value)
End RemoveHandler
End Event
Private Sub ClickMeClicked(sender As Object, e As RoutedEventArgs)
[RaiseEvent](New RoutedEventArgs(OnClickMeClickedEvent))
End Sub
' expose and raise 'OnNoMeClicked' event
Public Custom Event OnNoMeClicked As RoutedEventHandler
AddHandler(ByVal value As RoutedEventHandler)
[AddHandler](OnNoMeClickedEvent, value)
End AddHandler
RemoveHandler(ByVal value As RoutedEventHandler)
[RemoveHandler](OnNoMeClickedEvent, value)
End RemoveHandler
End Event
Private Sub NoMeClicked(sender As Object, e As RoutedEventArgs)
[RaiseEvent](New RoutedEventArgs(OnNoMeClickedEvent))
End Sub
End Class
ما عدا سطرين هم التي فيهم الخطاء
Public Custom Event OnClickMeClicked As RoutedEventHandler
يعطيني الخطاء التالي
'RaiseEvent' definition missing for event 'OnClickMeClicked'
وكذلك هذا السطر
Public Custom Event OnNoMeClicked As RoutedEventHandler
يعطيني نفس الخطاء مع تغيير اسم الكائن.
أرجو منكم أخواني الأعزاء اذا عندكم حل لهذه المشكلة ان لا بتخلوا علي به
ولكم جزيل الشكر والتقدير