Catatan : anda Harus membuat dua form dalam satu project
yaitu frmfont dan frmHasil.
OBJEK
|
PROPERTIES
|
VALUE
|
FORM1
|
name
|
frmFont
|
Caption
|
Font
|
|
BorderStyle
|
2-sizable
|
|
StartUpPosition
|
centerscreen
|
|
MaxButton
|
False
|
|
Label1
|
name
|
Label1
|
caption
|
Font Name :
|
|
Label2
|
Name
|
Label2
|
Caption
|
Font Style :
|
|
Label3
|
Name
|
Label3
|
Caption
|
Font Size :
|
|
Label4
|
name
|
Label4
|
Caption
|
Effek
|
|
Label5
|
Name
|
Label5
|
Caption
|
Contoh
|
|
Label6
|
Name
|
Lblsimple
|
Caption
|
Contoh
|
|
Alignment
|
2 – center
|
|
Appearance
|
0-flat
|
|
BackStyle
|
0-Transparent
|
|
BorderStyle
|
1-fixed single
|
|
Textbox1
|
Name
|
Txtfont
|
Textbox2
|
name
|
txtstyle
|
Textbox3
|
name
|
txtsize
|
Listbox1
|
Name
|
lstfont
|
Listbox2
|
Name
|
lststyle
|
Listbox3
|
Name
|
lstsize
|
checkBox1
|
Name
|
chkStrike
|
caption
|
Strikeout
|
|
CheckBox2
|
Name
|
chkUnder
|
Caption
|
Underline
|
|
Command1
|
name
|
cmdOK
|
caption
|
&OK
|
|
Command2
|
name
|
CmdKeluar
|
caption
|
&KELUAR
|
OBJEK
|
PROPERTIES
|
VALUE
|
FORM2
|
name
|
frmHasil
|
Caption
|
Hasil
|
|
BorderStyle
|
2-sizable
|
|
StartUpPosition
|
centerscreen
|
|
ControlBox
|
False
|
|
Label1
|
name
|
Lblhasil2
|
caption
|
||
Alignment
|
center
|
|
Command1
|
Name
|
cmdKembali
|
Caption
|
KEMBALI
|
KODE PROGRAM UNTUK frmfont
Private Sub
chkStrike_Click()
If chkStrike.Value
= 1 Then
lblsimple.FontStrikethru = True
frmHasil.lblhasil2.FontStrikethru = True
Else
lblsimple.FontStrikethru = False
frmHasil.lblhasil2.FontStrikethru = False
End If
End Sub
Private Sub
chkUnder_Click()
If
chkUnder.Value = 1 Then
lblsimple.FontUnderline = True
frmHasil.lblhasil2.FontUnderline = True
Else
lblsimple.FontUnderline = False
frmHasil.lblhasil2.FontUnderline = False
End If
End Sub
Private Sub
cmdKeluar_Click()
End
End Sub
Private Sub
cmdOk_Click()
Unload Me
frmHasil.Show
End Sub
Private Sub
Form_Load()
lstFont.AddItem
"Arial"
lstFont.AddItem
"Times New Roman"
lstFont.AddItem
"Courier"
lstFont.AddItem
"MS Sans Serif"
lstFont.AddItem
"Arial Narrow"
lstFont.AddItem
"Algerian"
'================================
lstStyle.AddItem
"Regular"
lstStyle.AddItem
"Bold"
lstStyle.AddItem
"Italic"
'================================
'lstsize.Clear
'For i = 8
To 16
' lstsize.AddItem i
' Next i
lstSize.AddItem
"8"
lstSize.AddItem
"9"
lstSize.AddItem
"10"
lstSize.AddItem
"11"
lstSize.AddItem
"12"
lstSize.AddItem
"14"
lstSize.AddItem
"16"
End Sub
Private Sub
lstfont_Click()
txtfont.Text
= (lstFont.Text)
End Sub
Private Sub
lstSize_Click()
txtSize.Text
= (lstSize.Text)
End Sub
Private Sub lstStyle_Click()
txtstyle.Text
= (lstStyle.Text)
Select Case
lstStyle.Text
Case "Bold"
lblsimple.Font.Bold = True
lblsimple.Font.Italic = False
frmHasil.lblhasil2.Font.Bold = True
frmHasil.lblhasil2.Font.Italic = False
Case "Italic"
frmHasil.lblhasil2.Font.Italic = True
lblsimple.Font.Italic = True
lblsimple.Font.Bold = False
frmHasil.lblhasil2.Font.Bold = False
Case selec
lblsimple.Font.Bold = False
lblsimple.Font.Italic = False
End Select
End Sub
Private Sub
txtfont_Change()
lblsimple.Font
= (txtfont.Text)
frmHasil.lblhasil2.Font
= (txtfont.Text)
frmHasil.lblhasil2.Caption
= "Contoh Tulisan " & txtfont.Text
End Sub
Private Sub
txtsize_Change()
lblsimple.FontSize
= (txtSize.Text)
frmHasil.lblhasil2.FontSize
= (txtSize.Text)
End Sub
KODE PROGRAM
UNTUK frmHasil :
Private Sub
cmdKembali_Click()
Unload Me
frmFont.Show
End Sub
Berikut tampilan pada frmhasil :
Untuk teman2 yang ingin sewa hosting atau beli domain bisa disini iya : Link
dan gunakan Kode Kupon Berikut : YBNBLOG20 untuk mendapatkan potongan 5%
0 Comments