#End Region
Private Sub button1_Click(ByVal sender As System.Object,
_
ByVal e
As System.EventArgs) Handles button1.Click End Sub
Private Sub timer1_Tick(ByVal sender As System.Object, _
ByVal e
As System.EventArgs) Handles timer1.Tick Me.Opacity =
Me.Opacity + 0.01
If Me.Opacity >= 1 Then
timer1().Enabled = False
Beep()
End If
End Sub
End Class
- Docking Controls
on Forms
Ïîíÿêîãà
èñêàìå äà çàêà÷èì (dock) êîíòðîëà â úãúëà íà ôîðìàòà èëè äðóãàäå. Ïðèìåðíî, ñòàòóñíèòå
ëåíòè ñå ïîñòàâÿò îòäîëó äî äîëíèÿ ðúá íà ôîðìèòå.
Çàêà÷àíåòî íà
êîíòðîëèòå ñòàâà ñúñ ñâîéñòâî Dock. Ñâîéñòâî Dock îïðåäåëÿ êúì êîé ðúá íà ôîðìàòà å çàêà÷åí êîíòðîëà. Ñïåöèàëíî âíèìàíèå îáúðíåòå íà ñòèëà Fill çà ñâîéñòâî Dock, êîåòî äàâà âúçìîæíîñò íà êîíòðîëà äà çàïúëíè
êîíòåéíåðà
(ôîðìà èëè êîíòåéíåðåí êîíòðîë).