Mengganti Ukuran Form Visual Basic (VB)
Bismillah...
Pernahkah Anda mengganti ukuran tampilan software melalui fitur pengaturan yang ada di software tersebut?
Di VB, itu juga bisa dilakukan dan fitur ini juga penting. Sehingga si pemakai, bisa mengganti ukuran tampilan sesuai kehendak dia. Terus bagaimana caranya? Yuk, kita bahas di artikel ini.
1) Sediakan komponen-komponen sesuai tabel dibawah ini
2) Atur komponen-komponen diatas sesuai tampilan dibawah ini
3) Klik dua kali pada tombol "Ganti Ukuran Form", kemudian masukkan skrip di bawah ini
On Error Resume Next
Form3.Width = Int(Text1.Text)
Form3.Height = Int(Text2.Text)
#Penjelasan
On Error Resume Next berfungsi untuk memastikan program tetap berjalan meskipun data yang dimasukkan di textboxt bukanlah angka. Memangnya harus angka? Untuk kasus ini harus karena dalam value widht(lebar) dan height(tinggi) form dibutuhkan data angka.
Form3.Width berfungsi merubah dan mendapatkan lebar form. Form3.Height berfungsi merubah dan mendapatkan tinggi form.
Int(Text1.Text) berfungsi merubah data dari TextBox yang tadinya String(Tulisan) ke bentuk data Integer(Angka)
4) Tekan F5 untuk menjalankan program. Silahkan masukkan angka untuk W(Width) dan H(Height) kemudian tekan tombol dibawahnya. Ukuran Form akan dirubah.
Untuk yang sudah mengerti, Alhamdulilah. Untuk yang belum, yuk dibahas melalui kotak komentar yang ada di bawah artikel ini. InsyaAllah terpecahkan :)
Pernahkah Anda mengganti ukuran tampilan software melalui fitur pengaturan yang ada di software tersebut?
Di VB, itu juga bisa dilakukan dan fitur ini juga penting. Sehingga si pemakai, bisa mengganti ukuran tampilan sesuai kehendak dia. Terus bagaimana caranya? Yuk, kita bahas di artikel ini.
1) Sediakan komponen-komponen sesuai tabel dibawah ini
Nama
|
Type
|
Isi
|
Label1
|
Label
|
W
|
Label2
|
Label
|
H
|
Command1
|
CommandButton
|
Ganti Ukuran Form
|
Text1
|
TextBox
|
|
Text2
|
TextBox
|
|
2) Atur komponen-komponen diatas sesuai tampilan dibawah ini
3) Klik dua kali pada tombol "Ganti Ukuran Form", kemudian masukkan skrip di bawah ini
On Error Resume Next
Form3.Width = Int(Text1.Text)
Form3.Height = Int(Text2.Text)
#Penjelasan
On Error Resume Next berfungsi untuk memastikan program tetap berjalan meskipun data yang dimasukkan di textboxt bukanlah angka. Memangnya harus angka? Untuk kasus ini harus karena dalam value widht(lebar) dan height(tinggi) form dibutuhkan data angka.
Form3.Width berfungsi merubah dan mendapatkan lebar form. Form3.Height berfungsi merubah dan mendapatkan tinggi form.
Int(Text1.Text) berfungsi merubah data dari TextBox yang tadinya String(Tulisan) ke bentuk data Integer(Angka)
4) Tekan F5 untuk menjalankan program. Silahkan masukkan angka untuk W(Width) dan H(Height) kemudian tekan tombol dibawahnya. Ukuran Form akan dirubah.
Untuk yang sudah mengerti, Alhamdulilah. Untuk yang belum, yuk dibahas melalui kotak komentar yang ada di bawah artikel ini. InsyaAllah terpecahkan :)
Tidak ada komentar:
Catatan: Hanya anggota dari blog ini yang dapat mengirim komentar.