UserForm1.BackColor = RGB(255, 0, 0)
UserForm1.Show
End Sub
, .
Caption . , .
Font . , . : FontBold , Fontlitalic , FontUnderline . True False. , UserForm1.TextBox1.FontBold = True .
FontSize . ForeColor . . Height , Width . Name . , .
Picture . , , .
Top , Left .
, , , ., . , Text, . VB.
8.1. . , . 8.1.
. 8.1.
(TextBox1) . , , , Properties Caption .
1:
Sub CommandButton1_Click()
UserForm1.TextBox1.Text = ""
UserForm1.TextBox1.Top = 10
UserForm1.TextBox1.Left = 10
UserForm1.TextBox1.FontSize = 10
UserForm1.TextBox1.ForeColor = RGB(0, 0, 255)
End Sub
. Top Left, , . RGB(0, 0, 255) . 2 , :
Sub CommandButton2_Click()
UserForm1.TextBox1.Text = ""
UserForm1.TextBox1.Top = 80
UserForm1.TextBox1.Left = 10
UserForm1.TextBox1.FontSize = 20
UserForm1.TextBox1.ForeColor = RGB(255, 0, 0)
End Sub
:
Sub CommandButton3_Click()
UserForm1.Hide
End Sub
:
|
|
Sub CommandButton3_Click()
UserForm1.Show
End Sub
. 1 2, .
8.2. .
. , , : , 7 :