Salamlar... Bu gün sizlərə yeni yaratdığım 1 pro-nu təqdim edirəm... İmage Converter... Yeni başlayanlar üçün video dərslikdə qoydumki anlasınlar
Code's:
Kod:
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ass As String = 1
Dim directoryA As String = TextBox1.Text
Dim frame1 As String = ass
Dim img1 As String = ComboBox1.Text
Dim m As New Bitmap(PictureBox1.Image)
m.Save(directoryA & frame1 & img1)
ass = ass + 1
End Sub
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
TextBox1.Text = OpenFileDialog1.FileName
PictureBox1.ImageLocation = TextBox1.Text
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
OpenFileDialog1.ShowDialog()
End Sub
End Class