SHARE
TWEET

Untitled

a guest Jun 16th, 2019 59 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub DostupniToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DostupniToolStripMenuItem.Click
  2.         Dim frm As New FrmDostupniZaposlenici
  3.         frm.MdiParent = Me
  4.         frm.Show()
  5.         frm.WindowState = FormWindowState.Maximized
  6.     End Sub
  7.  
  8. Private Sub DodajToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DodajToolStripMenuItem.Click
  9.     Dim frm As New frmDodajZaposlenika
  10.     frm.MdiParent = Me
  11.     frm.Show()
  12.     frm.WindowState = FormWindowState.Maximized
  13. End Sub
  14.      
  15. Private Sub DostupniToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DostupniToolStripMenuItem.Click
  16.     FrmDostupniZaposlenici.MdiParent = Me
  17.     FrmDostupniZaposlenici.Show()
  18.     FrmDostupniZaposlenici.WindowState = FormWindowState.Maximized
  19. End Sub
  20.  
  21. Private Sub DodajToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DodajToolStripMenuItem.Click
  22.     frmDodajZaposlenika.MdiParent = Me
  23.     frmDodajZaposlenika.Show()
  24.     frmDodajZaposlenika.WindowState = FormWindowState.Maximized
  25. End Sub
  26.  
  27. Private Sub IzmjeniToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IzmjeniToolStripMenuItem.Click
  28.     frmIzmjenaZaposlenika.MdiParent = Me
  29.     frmIzmjenaZaposlenika.Show()
  30.     frmIzmjenaZaposlenika.WindowState = FormWindowState.Maximized
  31. End Sub
  32.  
  33. Private Sub ObrisiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ObrisiToolStripMenuItem.Click
  34.     frmObrisiZaposlenika.MdiParent = Me
  35.     frmObrisiZaposlenika.Show()
  36.     frmObrisiZaposlenika.WindowState = FormWindowState.Maximized
  37. End Sub
  38.      
  39. For Each f As Form In Me.MdiChildren
  40.      f.Close()
  41. Next
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top