منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] الحدث المخصص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] الحدث المخصص (/showthread.php?tid=26571)

الحدث المخصص - العواد الصغير - 20-09-18

كود :
السلام عليكم اين الخطا بهذا الكود
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Globalization
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms



<DefaultEvent("ValueChanged")> _
Public Class DateControl1
   Inherits TextBox

   ' Events
   Public Custom Event ValueChanged As EventHandler
  Public Sub New()


       Me.ValueChanged = DirectCast([Delegate].Combine(Me.ValueChanged, New EventHandler(AddressOf Me.HjDataHijriDate_ValueChanged)), EventHandler)

       Me.Text = Now.Date
   End Sub
   Private Sub HjDataHijriDate_ValueChanged(ByVal sender As Object, ByVal e As EventArgs)
   End Sub
End Class


RE: الحدث المخصص - عبدالله الدوسري - 20-09-18

لأنها تكتب هكذا :

كود :
   Public Custom Event ValueChanged As EventHandler
       AddHandler(value As EventHandler)
           ' قم بعمل إظافة
       End AddHandler
       RemoveHandler(value As EventHandler)
           ' قم بعمل إزالة
       End RemoveHandler
       RaiseEvent(sender As Object, e As EventArgs)
           ' الحدث
       End RaiseEvent
   End Event




قم بعمل مثال لما تريد أن تصل إلية حتى نفهم الهدف, لربما هناك طرق أخرى ولا تحتاج لحدث معدل

RE: الحدث المخصص - العواد الصغير - 20-09-18

(20-09-18, 07:43 PM)عبدالله الدوسري كتب : لأنها تكتب هكذا :

كود :
   Public Custom Event ValueChanged As EventHandler
       AddHandler(value As EventHandler)
           ' قم بعمل إظافة
       End AddHandler
       RemoveHandler(value As EventHandler)
           ' قم بعمل إزالة
       End RemoveHandler
       RaiseEvent(sender As Object, e As EventArgs)
           ' الحدث
       End RaiseEvent
   End Event




قم بعمل مثال لما تريد أن تصل إلية حتى نفهم الهدف, لربما هناك طرق أخرى ولا تحتاج لحدث معدل

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

RE: الحدث المخصص - العواد الصغير - 22-09-18

السلام عليكم 
الحجث الافتراضي هل يمكن ان يصبح خاصية

RE: الحدث المخصص - عبدالله الدوسري - 22-09-18

اعذرني لم أفهم :

لو تطرح سؤالك بالإنجليزي , يكون أسهل في الفهم.

RE: الحدث المخصص - العواد الصغير - 22-09-18

(22-09-18, 01:32 AM)عبدالله الدوسري كتب : اعذرني لم أفهم :

لو تطرح سؤالك بالإنجليزي , يكون أسهل في الفهم.

لو افترضنا ان ValueChanged  حدث من الاحداث للاداة فكيف يقبل هذه العبارة البرمجية 
   Me.ValueChanged = DirectCast([Delegate].Combine(a,b)

RE: الحدث المخصص - r49 - 22-09-18

(20-09-18, 08:50 PM)العواد الصغير كتب : انا حولت كلاس من سي شارب الى في بي وظهرت لي هذه المشكلة ساضع الكلاس وهي عبارة عن اداة تعبر عن التاريخ وايضا تقوم بنحويل التاريخ الى هجري اذا اراد المبرمج

Huh 
أين الكلاس كاملا بالسي شارب كما هو