Copyright © 2020 mgr inż. Janusz Bonarowski
1
VB Animacja bitmapowa
Formularz
Kod
Dim i As Integer = 0
Private Sub Aveo2DrzwioweToolStripMenuItem_Click(sender As Object, e As EventArgs) _ Handles Aveo2DrzwioweToolStripMenuItem.Click PictureBox1.Image = System.Drawing.Image.FromFile("C:\tkm\vb_bmp\aveo\aveo3.jpg") End Sub
Private Sub Aveo4DrzwioweToolStripMenuItem_Click(sender As Object, e As EventArgs) _ Handles Aveo4DrzwioweToolStripMenuItem.Click PictureBox1.Image = System.Drawing.Image.FromFile("C:\tkm\vb_bmp\aveo\aveo4.jpg") End Sub
Private Sub Aveo5DrzwioweToolStripMenuItem_Click(sender As Object, e As EventArgs) _ Handles Aveo5DrzwioweToolStripMenuItem.Click PictureBox1.Image = System.Drawing.Image.FromFile("C:\tkm\vb_bmp\aveo\aveo5.jpg") End Sub
Private Sub NormalToolStripMenuItem_Click(sender As Object, e As EventArgs) _
Handles NormalToolStripMenuItem.Click PictureBox1.SizeMode = PictureBoxSizeMode.Normal
End Sub
Private Sub AuotSizeToolStripMenuItem_Click(sender As Object, e As EventArgs) _ Handles AutSizeToolStripMenuItem.Click PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
End Sub
Private Sub CenterImageToolStripMenuItem_Click(sender As Object, e As EventArgs) _ Handles CenterImageToolStripMenuItem.Click PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage
End Sub
Copyright © 2020 mgr inż. Janusz Bonarowski
2
Private Sub ZoomToolStripMenuItem_Click(sender As Object, e As EventArgs)Handles ZoomToolStripMenuItem.Click PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim pocz As String = "C:\tkm\vb_bmp\film\ren5"
If i = 8 Then i = 0 End If
PictureBox1.Image = System.Drawing.Image.FromFile(pocz & CStr(i) & ".jpg") i = i + 1
End Sub
Private Sub StartToolStripMenuItem_Click(sender As Object, e As EventArgs) _
Handles StartToolStripMenuItem.Click Timer1.Enabled = True
End Sub
Private Sub StopToolStripMenuItem_Click(sender As Object, e As EventArgs) _
Handles StopToolStripMenuItem.Click Timer1.Enabled = False
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Timer1.Enabled = False
End Sub
Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) _
Handles ToolStripMenuItem2.Click Timer1.Interval = 1000
End Sub
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) _
Handles ToolStripMenuItem3.Click Timer1.Interval = 500
End Sub
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) _
Handles ToolStripMenuItem4.Click Timer1.Interval = 200
End Sub
Private Sub ZamknijAplikacjęToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZamknijAplikacjęToolStripMenuItem.Click Dim odp As DialogResult
odp = MsgBox("Czy rzeczywiście zamknąć tak świetną aplikację?", _ vbYesNo + MsgBoxStyle.Question, "Koniec pracy") If odp = vbYes Then
End End If End Sub
Private Sub DowolnyPlikGraficznyToolStripMenuItem_Click(sender As Object, _
e As EventArgs) Handles DowolnyPlikGraficznyToolStripMenuItem.Click OpenFileDialog1.InitialDirectory = "C:\tkm\vb_bmp"
OpenFileDialog1.ShowDialog() End Sub
Private Sub OpenFileDialog1_FileOk(sender As Object, _
e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk Dim PlikGraficzny As String
PlikGraficzny = OpenFileDialog1.FileName
PictureBox1.Image = System.Drawing.Image.FromFile(PlikGraficzny) End Sub