




السلام عليكم ورحمة الله وبركاته
في هذا المثال نتعلم كيفية عمل بنل ازرار كبنل برامج نقاط البيع بطريقة بسيطة استخدم الاكواد المطروحة
في هذا المثال نتعلم كيفية عمل بنل ازرار كبنل برامج نقاط البيع بطريقة بسيطة استخدم الاكواد المطروحة
كود:
كود:
[LEFT]btn.ImageAlign = row("ImageAlignment").ToString
'محاذاة النض ضع الرقم 512 تعطيك محاذاة للاسفل'
btn.TextAlign = row("FontAlignment").ToString
'ضع الرقم 1'
btn.FlatStyle = row("FlatStyle").ToString
'طول الزر لنفرض 80'
btn.Height = row("ButtonHeight").ToString
'عرض الزر لنفرض 100'
btn.Width = row("ButtonWidth").ToString
'بعد اضافة الاداة فلو بانل الى الفورم'
'نقوم باضافة اداة الزر اليها'
FlowLayoutPanel1.Controls.Add(btn)
'اضافة الاحداث عند الضغط على الزر المولد'
AddHandler btn.Click, AddressOf ClickButton
Next
End Sub
'حدث الضغط على الزر المولد'
Private Sub ClickButton(sender As Object, e As EventArgs)
'اخذ نسخة من سيندر كزر'
Dim d As ButtonXT = sender
'إضافة معلومات السلعة الى الداتا غريد'
DgvCellPoint.Rows.Add(d.Barcode, d.Text, d.Price)
End Sub
'تحجيم الصورة لتتناسب مع حجم الزر'
Private Function sizeimage(img As Image) As Image
'تحجيم الصورة لتتناسب مع حجم الزر'
Return New Bitmap(img, New Size(48, 48))
End Function
[/LEFT]
[RIGHT]
سكربت جدول قاعدة البيانات :
كود:
كود:
[LEFT]/****** Object: Table [dbo].[ButtonCellPoint1] Script Date: 10/08/2020 11:47:07 ص ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE TABLE [dbo].[ButtonCellPoint1]( [ButtonID] [int] NULL, [MasterButtom] [bit] NULL, [ButtonBarcode] [nvarchar](255) NULL, [ButtonName] [nvarchar](255) NULL, [ButtonType] [int] NULL, [ButtonSource] [nvarchar](255) NULL, [ButtonShow] [bit] NULL, [UserNameXT] [nvarchar](255) NULL, [ImageAlignment] [nvarchar](255) NULL, [FontAlignment] [nvarchar](255) NULL, [ImageLocation] [nvarchar](255) NULL, [ForeColor] [nvarchar](255) NULL, [BackColor] [nvarchar](255) NULL, [FlatStyle] [nvarchar](255) NULL, [ButtonWidth] [int] NULL, [ButtonHeight] [int] NULL, [ButtonTop] [int] NULL, [ButtonLeft] [int] NULL, [ButtonTopPadding] [int] NULL ) ON [PRIMARY] GO INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (1, 0, N'20052225', N'بيتزا صغيرة', 4, N'وجبات سريعة', 1, N'1', N'2', N'512', N'Image\Question4.png', N'-1', N'16777215', N'1', 100, 80, 5, 5, 5) INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (2, 0, N'20052226', N'بيتزا وسط', 4, N'وجبات سريعة', 1, N'1', N'2', N'512', N'Image\RistoranteMatera.png', N'-1', N'16777215', N'1', 100, 80, 5, 5, 5) INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (3, 0, N'20052227', N'بيتزا كبيرة', 4, N'وجبات سريعة', 1, N'1', N'2', N'512', N'Image\Question5.png', N'-1', N'16777215', N'1', 100, 80, 5, 5, 5) INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (4, 1, N'0', N'بيتزا', 0, N'الوجبات', 1, N'1', N'2', N'512', N'Image\Question5.png', N'-1', N'16777215', N'1', 100, 80, 5, 5, 0) INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (5, 1, N'0', N'الساندويش', 0, N'الوجبات', 1, N'1', N'2', N'512', N'Image\Question5.png', N'-1', N'16777215', N'1', 100, 80, 5, 5, 0) INSERT [dbo].[ButtonCellPoint1] ([ButtonID], [MasterButtom], [ButtonBarcode], [ButtonName], [ButtonType], [ButtonSource], [ButtonShow], [UserNameXT], [ImageAlignment], [FontAlignment], [ImageLocation], [ForeColor], [BackColor], [FlatStyle], [ButtonWidth], [ButtonHeight], [ButtonTop], [ButtonLeft], [ButtonTopPadding]) VALUES (6, 1, N'0', N'الوجبات', 0, N'الوجبات', 1, N'1', N'2', N'512', N'Image\RistoranteMatera.png', N'-1', N'16777215', N'1', 100, 80, 5, 5, 0)
[/LEFT]
تم وضع خاصيتان للزر الاولى الباركود و الثانية السعر كود الزر و الخصائص :
كود:
كود:
Public Class ButtonXT
Inherits Button
'اضافة خاصية جديدة للزر و هي باركود'
Private BarcodeXT As String
Public Property Barcode() As String
Get
Return BarcodeXT
End Get
Set(ByVal value As String)
BarcodeXT = value
End Set
End Property
'اضافة خاصية جديدة للزر و هي السعر'
Private PriceXT As String
Public Property Price() As String
Get
Return PriceXT
End Get
Set(ByVal value As String)
PriceXT = value
End Set
End Property
End Class