erm when using opacity , 1 represents 100% to make say a 10% ( almost invisible ) you need to do 0.1 , eg:
in Form1 ( no need to modify the New sub in form2 either )
in Form2 :VB Code:
[COLOR=BLUE]Private[/COLOR] [COLOR=BLUE]Sub[/COLOR] Button1_Click([COLOR=BLUE]ByVal[/COLOR] sender [COLOR=BLUE]As[/COLOR] System.Object, [COLOR=BLUE]ByVal[/COLOR] e [COLOR=BLUE]As[/COLOR] System.EventArgs) [COLOR=BLUE]Handles[/COLOR] Button1.Click [COLOR=BLUE]Dim[/COLOR] frm [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]New[/COLOR] Form2() AddOwnedForm(frm) [COLOR=GREEN]'/// add it as an owned form [/COLOR] frm.Show() [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]
the Owner bit replaces the modified new sub eg:VB Code:
[COLOR=BLUE]Private[/COLOR] [COLOR=BLUE]Sub[/COLOR] Form2_Load([COLOR=BLUE]ByVal[/COLOR] sender [COLOR=BLUE]As[/COLOR] System.Object, [COLOR=BLUE]ByVal[/COLOR] e [COLOR=BLUE]As[/COLOR] System.EventArgs) [COLOR=BLUE]Handles[/COLOR] [COLOR=BLUE]MyBase[/COLOR].Load [COLOR=BLUE]Dim[/COLOR] frmMain [COLOR=BLUE]As[/COLOR] Form1 = Owner [COLOR=BLUE]Me[/COLOR].Opacity = 0.1 '///0.1 = 10% frmMain.Hide() [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub [/COLOR] [COLOR=BLUE]Private[/COLOR] [COLOR=BLUE]Sub[/COLOR] Form2_Closing([COLOR=BLUE]ByVal[/COLOR] sender [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]Object[/COLOR], [COLOR=BLUE]ByVal[/COLOR] e [COLOR=BLUE]As[/COLOR] System.ComponentModel.CancelEventArgs) [COLOR=BLUE]Handles[/COLOR] [COLOR=BLUE]MyBase[/COLOR].Closing Owner.Show() [COLOR=BLUE]Me[/COLOR].Close() [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]
^^^^ becomes...Public Sub New(ByVal frm As Form)
MyBase.New()
pform = frm
Dim frmMain As Form1 = Owner





Reply With Quote