Langsung ke konten utama

TUGAS 2.5


 Private Sub chkb_Click()
If chkb.Value = 1 Then
lbl1.FontBold = True
Else
lbl1.FontBold = False
End If
End Sub

Private Sub chki_Click()
If chki.Value = 1 Then
lbl1.FontItalic = True
Else
lbl1.FontItalic = False
End If
End Sub

Private Sub chks_Click()
If chks.Value = 1 Then
lbl1.FontStrikethru = True
Else
lbl1.FontStrikethru = False
End If
End Sub

Private Sub chku_Click()
If chku.Value = 1 Then
lbl1.FontUnderline = True
Else
lbl1.FontUnderline = False
End If
End Sub


Private Sub opnb_Click()
lbl1.ForeColor = vbBlue
End Sub

Private Sub opng_Click()
lbl1.ForeColor = vbGreen
End Sub
'17100002 bhadi rama dhani

Private Sub opnr_Click()
lbl1.ForeColor = vbRed
End Sub

Private Sub opny_Click()
lbl1.ForeColor = vbYellow
End Sub

Private Sub QUIT_Click()
Unload Me
End Sub

Komentar

Postingan populer dari blog ini

TUGAS 2.8

 Private Sub batal_Click() cbonpm.SetFocus cbonpm.Text = "" txtmhs.Text = "" txtjr.Text = "" txtnq.Text = "" txtnt.Text = "" txtut.Text = "" txtua.Text = "" txtna.Text = "" txthm.Text = "" End Sub Private Sub cbonpm_Click() Dim nama, jurusan, hm As String  Select Case cbonpm.Text Case "17100001" nama = "Mardalena" jurusan = "Sistem Informasi" Case "17100002" nama = "Bahadi Rhamadani" jurusan = "Sistem Informasi" Case "17100003" nama = "Renaldi Zainal Arifin" jurusan = "Sistem Informasi" Case "17100004" nama = "Eka Kartika" jurusan = "Sistem Informasi" Case "17100006" nama = "Rosi elvia" jurusan = "Sistem Informasi" Case "17100008" nama = "M.Galih algofur" jurusan = "Sistem Informasi" ...

STMIK PRINGSEWU – PELATIHAN TABLE MANNER

STMIK PRINGSEWU – Sabtu (7/10), mahasiswa jurusan sistem informasi Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu melaksanakan kegiatan table manner di hotel bukit randu lampung. Pengetahuan table manner bagi mahasiswa sangat penting untuk menambah pengetahuan dan pengalaman, hal ini juga merupakan proses pengembangan diri mahasiswa yang diintegrasikan dalam Mata Kuliah Character Building. Program table manner tersebut, agar para mahasiswa dapat mengetahui praktek dan pengalaman tata cara makan yang baik secara langsung, mahasiswa yang telah mengikuti program tersebut, nantinya dapat dipraktekan dengan baik dalam jamuan makan. Sudewi, M.M selaku dosen mata kuliah Character Building dan selaku dosen pendamping mengatakan, program studi sistem informasi kelas line 6 Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu mengasah skill mahasiswanya melalui tabel manner. Tabel manner itu adalah aturan etika yang dipergunakan pada ...

TUGAS1.1

Private Sub BATAL_Click() TXTNPM = "" TXTNAMA = "" TXTALAMAT = "" TXTNPM.SetFocus End Sub Private Sub KELUAR_Click() Unload Me End Sub Private Sub LAGI_Click() TXTNPM = "" TXTNAMA = "" TXTALAMAT = "" TXTNPM.SetFocus End Sub