VB.NET

VB.NET RSS

How to create forms without title bars

Please support our VB.NET advertiser: Intel Parallel Studio Home

Thread Solved

•

Join Date: Sep 2008

Posts: 22

Reputation: asmit1987 is an unknown quantity at this point

Solved Threads: 0

asmit1987

Offline

Newbie Poster

How to create forms without title bars

Sep 16th, 2008

i am creating an application in which i require a splash screen. Now the thing is that i want my splash screen to be there without any title bar and frame border what should be the necessary code for it plz provide me with that....
thank you....

•

Join Date: Aug 2007

Posts: 89

Reputation: toko is an unknown quantity at this point

Solved Threads: 8

toko

Offline

Junior Poster in Training

Re: How to create forms without title bars

Sep 16th, 2008

go to solution explorer > right click your project > click add (i dont have vb at school so not sure but i think its add or it might be add form) > then double click splash screen.

i dont think that has a title bar or a fram border

if it does, go to properties of form and put the "FormBorderStyle" to "none"

Last edited by toko; Sep 16th, 2008 at 12:41 pm.

•

Join Date: Nov 2007

Posts: 2,641

Reputation: Jx_Man is a glorious beacon of light

Solved Threads: 245

Jx_Man

Offline

Posting Maven

Re: How to create forms without title bars

Sep 16th, 2008

Use timer to make delay and progress bar.
so, draw a timer and progress bar then add this following code :

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Private Sub WelcomeScreen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 2
 
        If ProgressBar1.Value = 98 Then
            Dim obj As New Form2
            obj.ShowDialog() 'open form2
        End If
        If ProgressBar1.Value = 100 Then
            Timer1.Dispose()
            Me.Visible = False
        End If
End Sub
Private Sub WelcomeScreen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 2

        If ProgressBar1.Value = 98 Then
            Dim obj As New Form2
            obj.ShowDialog() 'open form2
        End If
        If ProgressBar1.Value = 100 Then
            Timer1.Dispose()
            Me.Visible = False
        End If
End Sub