20-09-18, 07:27 PM
كود :
السلام عليكم اين الخطا بهذا الكود
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
سبحان الله والحمد لله ولا اله الا الله والله اكبر