Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Ascii Name Maker - SplashScreen.vb

SplashScreen.vb

Caricato da:
Scarica il programma completo

  1. Imports System
  2. Imports System.Drawing
  3. Imports System.Collections
  4. Imports System.ComponentModel
  5. Imports System.Windows.Forms
  6.  
  7.  
  8. Namespace WindowsApplication31
  9.    '/ <summary>
  10.    '/ Summary description for SplashScreen.
  11.    '/ </summary>
  12.    
  13.    Public Class SplashScreen
  14.       Inherits System.Windows.Forms.Form
  15.       Private WithEvents timer1 As System.Windows.Forms.Timer
  16.       Private prgbar As System.Windows.Forms.ProgressBar
  17.       Private WithEvents label1 As System.Windows.Forms.Label
  18.       Private components As System.ComponentModel.IContainer
  19.      
  20.      
  21.       Public Sub New()
  22.          InitializeComponent()
  23.          timer1.Start()
  24.       End Sub 'New
  25.      
  26.      
  27.       '/ <summary>
  28.       '/ Clean up any resources being used.
  29.       '/ </summary>
  30.       Protected Overrides Sub Dispose(disposing As Boolean)
  31.          If disposing Then
  32.             If Not (components Is Nothing) Then
  33.                components.Dispose()
  34.             End If
  35.          End If
  36.          MyBase.Dispose(disposing)
  37.       End Sub 'Dispose
  38.      
  39.       #Region "Windows Form Designer generated code"
  40.      
  41.       '/ <summary>
  42.       '/ Required method for Designer support - do not modify
  43.       '/ the contents of this method with the code editor.
  44.       '/ </summary>
  45.       Private Sub InitializeComponent()
  46.          Me.components = New System.ComponentModel.Container()
  47.          Dim resources As New System.Resources.ResourceManager(GetType(SplashScreen))
  48.          Me.timer1 = New System.Windows.Forms.Timer(Me.components)
  49.          Me.prgbar = New System.Windows.Forms.ProgressBar()
  50.          Me.label1 = New System.Windows.Forms.Label()
  51.          Me.SuspendLayout()
  52.          '
  53.          ' timer1
  54.          '
  55.          Me.timer1.Interval = 700
  56.          '
  57.          ' prgbar
  58.          '
  59.          Me.prgbar.Location = New System.Drawing.Point(64, 224)
  60.          Me.prgbar.Name = "prgbar"
  61.          Me.prgbar.Size = New System.Drawing.Size(168, 16)
  62.          Me.prgbar.TabIndex = 1
  63.          '
  64.          ' label1
  65.          '
  66.          Me.label1.BackColor = System.Drawing.Color.Transparent
  67.          Me.label1.Font = New System.Drawing.Font("Comic Sans MS", 18F, CType(System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic, System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, System.Byte))
  68.          Me.label1.ForeColor = System.Drawing.Color.Lime
  69.          Me.label1.Location = New System.Drawing.Point(48, 216)
  70.          Me.label1.Name = "label1"
  71.          Me.label1.Size = New System.Drawing.Size(360, 32)
  72.          Me.label1.TabIndex = 2
  73.          '
  74.          ' SplashScreen
  75.          '
  76.          Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  77.          Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
  78.          Me.ClientSize = New System.Drawing.Size(392, 256)
  79.          Me.Controls.Add(label1)
  80.          Me.Controls.Add(prgbar)
  81.          Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
  82.          Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
  83.          Me.Name = "SplashScreen"
  84.          Me.ShowInTaskbar = False
  85.          Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  86.          Me.ResumeLayout(False)
  87.       End Sub 'InitializeComponent
  88.       #End Region
  89.      
  90.      
  91.       Private Sub button1_Click(sender As Object, e As System.EventArgs)
  92.       End Sub 'button1_Click
  93.      
  94.      
  95.      
  96.       Private Sub button1_Click_1(sender As Object, e As System.EventArgs)
  97.          Close()
  98.       End Sub 'button1_Click_1
  99.      
  100.      
  101.       Private Sub timer1_Tick(sender As Object, e As System.EventArgs) Handles timer1.Tick
  102.          prgbar.Value += 10
  103.          If prgbar.Value = 10 Then
  104.             label1.Text = " satana ascii maker 1.2"
  105.          End If
  106.          If prgbar.Value = 20 Then
  107.             label1.Text = "SAtana ascii maker 1.2"
  108.          End If
  109.          If prgbar.Value = 30 Then
  110.             label1.Text = "saTAna ascii maker 1.2"
  111.          End If
  112.          If prgbar.Value = 40 Then
  113.             label1.Text = "sataNA ascii maker 1.2"
  114.          End If
  115.          If prgbar.Value = 50 Then
  116.             label1.Text = "satana ASCii maker 1.2"
  117.          End If
  118.          If prgbar.Value = 60 Then
  119.             label1.Text = "satana ascII maker 1.2"
  120.          End If
  121.          If prgbar.Value = 70 Then
  122.             label1.Text = "satana ascii MAker 1.2"
  123.          End If
  124.          If prgbar.Value = 80 Then
  125.             label1.Text = "satana ascii maKER 1.2"
  126.          End If
  127.          If prgbar.Value = 90 Then
  128.             label1.Text = "  M|<R 1.2"
  129.          End If
  130.          If prgbar.Value = 100 Then
  131.             System.Threading.Thread.Sleep(400)
  132.             Close()
  133.             timer1.Stop()
  134.          End If
  135.       End Sub 'timer1_Tick
  136.      
  137.      
  138.       Private Sub label2_Click(sender As Object, e As System.EventArgs)
  139.       End Sub 'label2_Click
  140.      
  141.      
  142.      
  143.       Private Sub label1_Click(sender As Object, e As System.EventArgs) Handles label1.Click
  144.       End Sub 'label1_Click
  145.      
  146.      
  147.      
  148.       Private Sub SplashScreen_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
  149.       End Sub 'SplashScreen_Load
  150.    End Class 'SplashScreen
  151. End Namespace 'WindowsApplication31