Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/WinForms/VB/GridMainDemo/Modules/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/WinForms/VB/GridMainDemo/Modules/frmProduct.vb

Imports System.ComponentModel
Imports System.Text
Imports DevExpress.XtraEditors

Namespace DevExpress.XtraGrid.Demos
	Partial Public Class frmProduct
		Inherits XtraForm

		Public Sub New()
			InitializeComponent()
		End Sub
		Public ReadOnly Property NewProductName() As String
			Get
				Return teProductName.Text
			End Get
		End Property
		Public ReadOnly Property CategoryID() As Integer
			Get
				Return CInt(Fix(icbCategory.EditValue))
			End Get
		End Property
		Public ReadOnly Property QuantityPerUnit() As String
			Get
				Return teQuantityPerUnit.Text
			End Get
		End Property
		Public ReadOnly Property UnitPrice() As Decimal
			Get
				Return seUnitPrice.Value
			End Get
		End Property
		Public ReadOnly Property Discontinued() As Boolean
			Get
				Return ceDiscontinued.Checked
			End Get
		End Property

		Private Sub frmProduct_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles MyBase.FormClosing
			e.Cancel = (Not dxValidationProvider1.Validate()) AndAlso DialogResult = DialogResult.OK
		End Sub
	End Class
End Namespace