Jump to content
Forum Windows-az.com

Video Converter


On_LiNe

Recommended Posts

Salamlar...

Bu gün mən sizə Visual Basic 2008-də videolarınızı convert eləmək üçün proqram hazırlamağı göstərəcəm...

 

online video

 

 

Kod:

Public Class Form1

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

SelectVid.ShowDialog()

End Sub

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim type As String = ComboBox1.Text

If ComboBox1.Text = "" Then

MsgBox("Heç bir fayl tipi seçmədiniz")

Else

End If

MsgBox(TextBox1.Text + " çevrildi " + type + " formatına.")

Dim oldFile As String = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 4)

FileCopy(TextBox1.Text, oldFile + type)

 

End Sub

 

Private Sub SelectVid_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SelectVid.FileOk

Dim file As String = SelectVid.FileName

TextBox1.Text = file

End Sub

End Class

Link to comment
Share on other sites

Proqramlar telegramda

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...