Public Class Form1 Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True End Sub Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick BlockInput(True) ProgressBar1.Increment(+5) If ProgressBar1.Value = 100 Then Timer1.Enabled = False BlockInput(False) MsgBox("Virus32.blog.ir") ProgressBar1.Value = 0 End If End Sub
كد هايي كا بردي براي قالب سايت ...

كد هايي كار بردي براي قالب سايت .


كد گرافيك

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
كد گرا فيك كه حتما امتحان كنيد .


سه شنبه 17 تير 1394 |





1394

<-PostTitle->

RSS 2.0

.: Weblog Themes By ruzblog.com :.