. , , ,

,,,

: Label, TextBox, Image, OptionButton, ListBox, SpinButton, ComboBox, CommandButton — ,

. . . .

1

 

: Label, TextBox, Image,

OptionButton, ListBox, SpinButton, ComboBox, CommandButton

:

:

- 2009-


Labs

Private Sub cmb_Click()

Select Case cmb.ListIndex

Case 0

Label4.Font = "Times New Roman"

Case 1

Label4.Font = "Tahoma"

Case 2 ComboBox

Label4.Font = "Arial"

Case 3

Label4.Font = "MS Sans Serif"

Case 4

Label4.Font = "Lucida Console"

End Select

End Sub


Private Sub Command2_Click()

rez.Clear ListBox

End Sub

Private Sub Command1_Click()

If op1.Value = True Then

rez.AddItem (op1.Caption)

ElseIf op2.Value = True Then

rez.AddItem (op2.Caption)

ElseIf op3.Value = True Then

rez.AddItem (op3.Caption)

ElseIf op4.Value = True Then ListBox

rez.AddItem (op4.Caption)

ElseIf op5.Value = True Then

rez.AddItem (op5.Caption)

Else

End If

End Sub

Private Sub load1_Click()

cd.ShowOpen

Image1.Picture = VB.LoadPicture(cd.FileName)

Image1.Width = Image1.Picture.Width / Val(ms.Text) Image

Image1.Height = Image1.Picture.Height / Val(ms.Text)

End Sub


Private Sub sp_Change()

If sp.Value < 1 Then

sp.Value = 1

Exit Sub

Else

End If

Text1.Text = sp.Value

End Sub

Private Sub ms_Change()

On Error Resume Next

mage1.Picture = VB.LoadPicture(cd.FileName)

Image1.Width = Image1.Picture.Width / ms.Text

Image1.Height = Image1.Picture.Height / ms.Text

End Sub

Private Sub Form_Load()

Label4.Font = "Times New Roman"

Frame1.Visible = True

Frame3.Visible = False

Frame2.Visible = False

cmb.AddItem ("Times New Roman")

cmb.AddItem ("Tahoma")

cmb.AddItem ("Arial")

cmb.AddItem ("MS Sans Serif")

cmb.AddItem ("Lucida Console")

sp.Value = 6

cmb.Text = cmb.List(0)

ms.Text = "1"

End Sub

Private Sub SpinButton1_Change()

ms.Text = SpinButton1.Value SpinButton TextBox

End Sub

Private Sub Text1_Change()

On Error Resume Next

sp.Value = Text1.Text (Label)

Label4.FontSize = Text1.Text

End Sub

Private Sub Text2_Change()

Label4.Caption = Text2.Text Label

End Sub

Private Sub mp_Change()

Select Case mp.Value

Case 0

Frame1.Visible = True

Frame2.Visible = False

Frame3.Visible = False

Case 1

Frame1.Visible = False

Frame2.Visible = True

Frame3.Visible = False

Case 2

Frame2.Visible = False

Frame1.Visible = False

Frame3.Visible = True

End Select

End Sub

. . . . 1 : Label, TextBox, Imag

 

 

 

! , , , .
. , :