Skip to main content

animasi dengan vB

Dim FrameCount As Long

Private Sub Command1_Click()
Timer1.Enabled = False
If LoadGif(Text1, Image1) Then
FrameCount = 0
Timer1.Interval = CLng(Image1(0).Tag)
Timer1.Enabled = True
End If
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()

Text1.Text = App.Path & IIf(Right(App.Path, 1) = “\”, “”, “\”) & “clip.gif”
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If FrameCount < TotalFrames Then
Image1(FrameCount).Visible = False
FrameCount = FrameCount + 1
Image1(FrameCount).Visible = True
Timer1.Interval = CLng(Image1(FrameCount).Tag)
Else
FrameCount = 0
For i = 1 To Image1.Count - 1
Image1(i).Visible = False
Next i
Image1(FrameCount).Visible = True
Timer1.Interval = CLng(Image1(FrameCount).Tag)
End If
End Sub

Comments

Popular posts from this blog

Cara servis hasil print tidak lurus

Pada kesempatan ini Mas Mukhlas akan mem-Post-ing cara service printer. Kerusakannya pada hasil cetakan yang tidak lurus, atau hasil cetakannya ada bayang-bayangnya, biasanya dibuat untuk cetak garis atau tabel akan menghasilkan garis double. Pernah mengalami hal demikian, mari simak cara mengatasinya. Bongkar printer (untuk cara bongkar printer epson seri C58,C90,T11,T20,T20E bi dilihat DiSini ) Amati encodernya. Encoder adalah pita sensor yg terbuat dari plastik dengan motif / kode baris di permukaannya. Letaknya dibelakang Head Carriage / rumah catridge. Berikut gambarnya : Penampakan Encoder Printer Klik gambar untuk memperbesar Encoder masih berada di printer (Canon) Klik gambar untuk memperbesar Encoder masih berada di printer  (Epson) Klik gambar untuk memperbesar  neh gan encodernya rusak kena cipratan tinta Klik gambar untuk memperbesar Kalau kasus ini : encoder kena cipratan tinta, sehingga menutupi baris kode yg ...

Cara Reset Printer Canon IP 2770

Teman bloger ssaya mau sedikit berbagi ilmu. Kali saya mau kasih sedikit ilmu tentang cara mereset canon IP 2770. Printer canon IP 2770 atau sebagainya biasanya memerlukan resetter sendiri untuk meresetnya. Reseter ini gunanya unntuk mengembalikan pengaturan printer ke awal lagi sperti kita merest HP. Merk Canon memang dibuat seperti ini karena untuk menghindari rusak nya catridge.  Bagi orang yang belum tahu dan orang awam istilahnya memang ini sangat menggangu dan dikiranya rusak berat. Padahal kalau sudah tau dan bisa mempraktekannya ini sangatlah mudah. Untuk melakukan proses resetter ini sobat semua pastinya juga memerlukan softwarenya. Anda bisa download softwarenya   Download software