G2A Many GEOs
SHARE
TWEET

errorfixlol

a guest Apr 7th, 2020 135 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'mycode error = i had byval in the openChildForm lmafogarip
  2.  
  3. Private activeForm As Form = Nothing
  4.     Private Sub openChildForm(ByVal ChildForm As Form)
  5.         If activeForm IsNot Nothing Then
  6.             activeForm.Close()
  7.             activeForm = ChildForm
  8.             ChildForm.TopLevel = False
  9.             ChildForm.FormBorderStyle = FormBorderStyle.None
  10.             ChildForm.Dock = DockStyle.Fill
  11.             panelChildForm.Controls.Add(ChildForm)
  12.             panelChildForm.Tag = ChildForm
  13.             ChildForm.BringToFront()
  14.             ChildForm.Show()
  15.         End If
  16.     End Sub
  17.  
  18.  
  19. 'fix code =
  20.  
  21.   Private currentForm As Form = Nothing
  22.     Private Sub openChildForm(childForm As Form)
  23.         If currentForm IsNot Nothing Then
  24.         currentForm.Close()
  25.         currentForm = childForm
  26.         childForm.TopLevel = False
  27.         childForm.FormBorderStyle = FormBorderStyle.None
  28.         childForm.Dock = DockStyle.Fill
  29.         panelChildForm.Controls.Add(childForm)
  30.         panelChildForm.Tag = childForm
  31.         childForm.BringToFront()
  32.         childForm.Show()
  33.     End Sub
RAW Paste Data
Ledger Nano X - The secure hardware wallet
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