Skip to main content

Validasi Ukuran Gambar Menggunakan Vb NET 2008

Selamat malam teman - teman semua,
maaf admin udah lama gak posting,,
hari ini saya bakal buat validasi gimana cara membatasi ukuran gambar di vb net, untuk contoh nya dapat dilihat seperti gambar dibawah ini






seperti itulah tampilannya untuk koding nya dapat dilihat dibawah ini :

Protected Function UkuranGambar () As Booelan
Dim FileUpload1 =My.Computer.Filesystem..GetFileInfo(OpenFileDialog1.FileName)
Dim FileSize As Integer = FileUpload1.Lenght.ToString

If (FileSize) > 0 And FileSize(1000000) Then
Return True
else
MsgBox("Maaf Gambar Terlalu Besar")
Return False
End If
End Function


Sebagai catatan ukuran gambar nya dihitung byte bukan kilobyte
terima kasih
Happy Coding


Labels:

Comments

Post a Comment

Popular posts from this blog

Disclaimer

Disclaimer for Daniel Fernando If you require any more information or have any questions about our site's disclaimer, please feel free to contact us by email at Danielbadung73@gmail.com Disclaimers for Daniel Fernando All the information on this website - www.nandoe73.blogspot.com - is published in good faith and for general information purpose only. Daniel Fernando does not make any warranties about the completeness, reliability and accuracy of this information. Any action you take upon the information you find on this website (Daniel Fernando), is strictly at your own risk. Daniel Fernando will not be liable for any losses and/or damages in connection with the use of our website. Our Disclaimer was generated with the help of the Disclaimer Generator and the Privacy Policy Generator . From our website, you can visit other websites by following hyperlinks to such external sites. While we strive to provide only quality links to useful and ethical websites, we have no contro...
Post a Comment
Lanjutkan Membaca

Cara Membuat Auto Number Dengan DatagridView Pada Visual Studio 2008

Private Sub AutoNumberRowsForGridView() ' membuat no otomatis pada datagridview         If DG IsNot Nothing Then             Dim count As Integer = 0             While (count <= (DG.Rows.Count - 2))                DG.Rows(count).HeaderCell.Value = String.Format((count + 1).ToString(), "0")                 count += 1             End While
Post a Comment
Lanjutkan Membaca

BIlangan Ganjil Genap Di PHP

Selamat pagi semuanya hari ini saya mau sharing ini materi pelajaran ane sebenarnya waktu semester 4 tentang PHP , nah kebetulan ini salah tugas kuis kemaren gan. nah untuk pembelajaran saya akan membagikan Source Kode Nya Happy Coding <html> <head> <title>OUTPUT</title> </head> <body> <? $bilangan = $_POST['bilangan']; if($bilangan != ""){ if($bilangan%2 == 0){ echo "$bilangan adalah Bilangan Genap"; } else { echo "$bilangan adalah Bilangan Ganjil"; } } else{ echo "Inputkan Angka!"; } ?> </body> </html>
Post a Comment
Lanjutkan Membaca