![]() LblPwd.Width = 100 : lblPwd.Text = "Password" : lblPwd.Top = 50 : lblPwd.Left = 0 : lblPwd.BackColor = Color.Transparent TxtName.Width = 180 : txtName.Left = lblName.Width + 20 : txtName.Top = 20 : txtName.TabIndex = 0 LblName.Width = 100 : lblName.Text = "User Name" : lblName.Top = 20 : lblName.Left = 0 : lblName.BackColor = Color.Transparent PicMain.Width = Me.Width : picMain.Height = Me.Height : flxData.Top = 0 : flxData.Left = 0 Me.Text = "User Login" : Me.Width = 600 : Me.Height = 350įlxData.Width = Me.Width : flxData.Height = Me.Height : flxData.Top = 0 : flxData.Left = 0 WithEvents flxFI As New DataGridView, flxCI As New DataGridView, flxBI As New DataGridView, flxData As New DataGridView WithEvents picMain As New PictureBox, picUser As New PictureBox WithEvents lblFI As New Label, lblCI As New Label, lblBI As New Label WithEvents lblName As New Label, lblPwd As New Label, txtName As New TextBox, txtPwd As New TextBox Private Sub mnuLogin_Click(sender As Object, e As EventArgs) Handles mnuLogin.Click (mnuStockOpening) : mnuStockOpening.BackColor = Color.Pink (mnuAccountOpening) : mnuAccountOpening.BackColor = Color.Pink (mnuStockMaster) : mnuStockMaster.BackColor = Color.Pink (mnuAccountMaster) : mnuAccountMaster.BackColor = Color.Pink MyMenu.Font = New Font("Arial Narrow", 12) (mnuExit) : mnuExit.BackColor = Color.Pink (mnuLogin) : mnuLogin.BackColor = Color.Pink WithEvents mnuExit As New ToolStripMenuItem("E&xit") WithEvents mnuLogin As New ToolStripMenuItem("&Login") WithEvents mnuStockOpening As New ToolStripMenuItem("&Stock Opening") WithEvents mnuAccountOpening As New ToolStripMenuItem("&Account Opening") WithEvents mnuSep As New ToolStripMenuItem("-") WithEvents mnuStockMaster As New ToolStripMenuItem("&Stock Master") WithEvents mnuAccountMaster As New ToolStripMenuItem("&Account Master") WithEvents mnuMaster As New ToolStripMenuItem("&Master") WithEvents mnuCompany As New ToolStripMenuItem("&Company") 'picRight.Dock = DockStyle.Right : picRight.Width = 20 PicLeft.Dock = DockStyle.Left : picLeft.Width = 150 Me.IsMdiContainer = True : Me.WindowState = FormWindowState.Maximized Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load WithEvents myMenu As New MenuStrip, picLeft As New PictureBox Just copy the codes below and paste into form1 to check everything. Please find my complete code for form1 as below and advise the solution accordingly.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |