Tutorial Pengaturan Background Warna Pada Visual Studio 2010

Pengaturan Background Warna Pada Visual Studio 2010

Module Module1     Public AppPath As String = Replace(Replace(Replace(Application.ExecutablePath, Application.ProductName + ".EXE", ""), Application.ProductName + ".exe", ""), Application.ProductName + ".exe", "") End Module

Try             'Menampilkan Dialog warna..             'Jika menekan tombol Ok pada Dialog Warna             If dlgWarna.ShowDialog() = System.Windows.Forms. _                 DialogResult.OK Then                 'Background Form sama dengan warna yang di pilih pada dialog warna                 Me.BackColor = dlgWarna.Color                 'mendeklarasikan file Setting2 yang akan di tulis (file ini hanya temporary saja)                 'AppPath adalah Nama alamat dimana file exe disimpan                 Dim sw As New System.IO.StreamWriter(AppPath & ("Setting2.txt"))                 'mengconvert warna  menjadi bilangan Hexa,lalu di tulis pada file Setting2                 Dim a As String = Hex(dlgWarna.Color.ToArgb)                 'Memotong 2 digit pertama dari hasil convert                 a = a.Substring(2)                 'Menuliskan hasil convert ke dalam file Setting2                 sw.WriteLine("#" & a)                 sw.Close() 'Menutup file                 System.IO.File.Delete(AppPath & ("Setting.txt"))                 'Mengganti nama File Setting2 menjadi Setting                 System.IO.File.Move(AppPath & ("Setting2.txt"), AppPath & ("Setting.txt"))             End If         Catch ex As Exception             MsgBox(ex.Message)         End Try

Try             'mendeklarasikan file Setting2 yang akan di tulis (file ini hanya temporary saja)             'AppPath adalah Nama alamat dimana file exe disimpan             Dim sw As New System.IO.StreamWriter(AppPath & ("Setting2.txt"))             'Mesetting warna untuk pertama kali di jalankan adalah warna Default Form (Control)             Dim color2 As System.Drawing.Color = System.Drawing.ColorTranslator.FromHtml("Control")             'Mengubah Warna untuk Background menjadi default             Me.BackColor = color2             'mengconvert warna  menjadi bilangan Hexa,lalu di tulis pada file Setting2             sw.WriteLine("#" & Hex(color2.ToArgb))             sw.Close() 'menutup file Setting2             System.IO.File.Delete(AppPath & ("Setting.txt")) 'Menghapus File Setting dari Drive             'Mengganti nama File Setting2 menjadi Setting             System.IO.File.Move(AppPath & ("Setting2.txt"), AppPath & ("Setting.txt"))         Catch ex As Exception             MsgBox(ex.Message)         End Try

Link Download Tutorial Lengkap Dalam Bentuk Word:

Tutorial Pengaturan Warna
Source Program

Artikel Lain :

Tutorial StopWatch
Tutorial Program ShutDown
Tutorial Membuat Form Login