vb.net عمل بنل ازرار كبنل برامج نقاط البيع بطريقة بسيطة

admin · 1 أبريل 2021

السلام عليكم ورحمة الله وبركاته
في هذا المثال نتعلم كيفية عمل بنل ازرار كبنل برامج نقاط البيع بطريقة بسيطة استخدم الاكواد المطروحة

كود:

[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]

[/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

vb.net عمل بنل ازرار كبنل برامج نقاط البيع بطريقة بسيطة

admin

عضو إداري

المرفقات