Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Boyut Artırıcı (vb6)
#1
Arkadaşlar genlde bu programın vb2010 olarak yapıldığını bilirsiniz ama bne vb6 olarak yaptım buyrun kodları exciting

2 adet textbox 3 adet command 1 adet timer enabled false 2 adet PB1(progessbar) 1 adet common dialog (CD1)


Kod:
Kod:
Private Sub Command1_Click()
CD1.ShowOpen
Text1.Text = CD1.FileName
End Sub

Private Sub Command2_Click()
If Text1.Text <> "" And Text2.Text > 0 Then
fsiz = ShowFileSize(Text1.Text)
PB1.Value = 0
PB1.Max = Text2.Text
PB1.Visible = True
Open Text1.Text For Binary As #1
For a = 1 To Text2.Text
Put #1, fsiz - 1 + a, 0
PB1.Value = a
Next
Close
End If
PB1.Visible = False
PB1.Value = 0
End Sub
Function ShowFileSize(file)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(file)
    ShowFileSize = f.Size
    's = UCase(f.Name) & " uses " & f.Size & " bytes."
    'MsgBox s, 0, "Folder Size Info"
End Function
'94208

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

Private Sub Form_Load()
Text1.Text = App.Path & "\"
End Sub

Private Sub Text3_Change()
pb2.Max = Text3.Text
End Sub

Private Sub Timer1_Timer()
Form1.Hide
pb2.Value = pb2.Value + 1
If pb2.Value = Text3.Text Then
Form1.Show
pb2.Value = 0
Timer1.Enabled = False
End If
End Sub
Beğenenler:

Anahtar Kelimeler

Boyut Artırıcı (vb6) indir, Boyut Artırıcı (vb6) Videosu, Boyut Artırıcı (vb6) Online izle, Boyut Artırıcı (vb6) Bedava indir, Boyut Artırıcı (vb6) Yükle, Boyut Artırıcı (vb6) Hakkında, Boyut Artırıcı (vb6) Nedir, Boyut Artırıcı (vb6) Free indir, Boyut Artırıcı (vb6) Oyunu, Boyut Artırıcı (vb6) Download


1 Ziyaretçi