C# KOD ÖRNEKLERİ: Açılış (Spalsh) Form Örneği

Splash Form (Açılış Ekran) Örneği 24.Nisan.2018 İNDİR

Projeye iki Form ekleyin. Form1' in FormBorderstyl özelliği None, Transparancekey ve backColor değerlerini Fuchsia yapın.
Form üstüne Bir PictureBox ekleyip özelliklerini SizeMode=sizeAuto ve BackColor=Fuchsia olarak ayarlayın.
Timer1 ve interval=2000 , Timer2 ve interval= 3000 gibi olsun..
Not : Ben burada 100 adet resim kullandım. siz 10 adet kullanacaksanız 109 yerine 10, 10 yerine de 1 sayısını kullanacaksınız.

Açılış"Splash" Form Program Kodlarını.........................................İNDİR
Sadece EXE programını denemek için .........................................İNDİR

Açılış (Splash) Formda Resimler gösterildikten sonra
kapanıp Ana form açılır.

Public Class form1
    Dim x As Integer = 10
    Private mouse_offset As Point

#Region " FORM TAŞIMAK.."

'Private mouse_offset As Point ' BUNUN EKLEMESİDİR
    Private Sub PictureBox1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            'burası taşımakla ilgili değil
            Timer2.Stop()
            Form2.Show()
            Me.Close()
            'burası taşımakla ilgili değil
        Else
            mouse_offset = New Point(-e.X, -e.Y)
            If e.Button = Windows.Forms.MouseButtons.Right Then
                Me.Close()

End If
        End If
    End Sub

Private Sub PictureBox1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If e.Button = MouseButtons.Left Then
            Dim mousePos As Point = Control.MousePosition
            mousePos.Offset(mouse_offset.X, mouse_offset.Y)
            Location = mousePos
        End If
    End Sub
#End Region

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        form2.Show()
        Me.Close()
        Timer1.Stop()
    End Sub
    Private Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Timer1.Start()

Timer2.Start()
        Timer2.Interval = 350
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim yol As String = Application.StartupPath
        x = x + 1
        If x = 109 Then x = 1
        Select Case x
            Case 10 To 109
                PictureBox1.Image = Image.FromFile(yol & "\resim" & x & ".jpg")
        End Select
       
    End Sub
   
End Class

Bir Başka Kısa Örnek: İNDİR

ANA FORM KODU

SPLASH (KARŞILAMA) EKRANI KODU

25 Mart 2013 Pazartesi

Açılış (Spalsh) Form Örneği