WordBasic -


Bold, Italic, Underline Strikethrough


 
Italic [On]
Bold [On]
Underline [On]
Strikethrough [On]
 
.
 
Bold Bold()
Underline Underline()
Strikethrough Strikethrough()
Italic Italic()
 
.
 
, , . . bold, , , .
 
Sub MAIN
A = Bold()
If A < 1 Then
MsgBox " ."
Bold
Else
MsgBox " ."
End If
End Sub
 
WordUnderline [On] ( ).
DoubleUnderline [On] .
DottedUnderline [On] .
Italic(), Bold(), Underline(), WordUnderline(), DoubleUnderline() DottedUnderline().
, (, , . .):
Font$ $
[, ] .
FontSizeSelect , . , , .
FontSize()
.
 
.
 
.
 
Sub MAIN
fs = FontSize()
MsgBox + Str$(fs) +