- Код: Выделить всё
Imports System.Drawing.Drawing2D
Public MustInherit Class SSForm
Inherits System.Windows.Forms.Form
Private Sub SSForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.ForeColor = MainCls.ForeColor
End Sub
Private Sub SSForm_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
If MainCls.UseColors Then
If e.ClipRectangle.Height > 0 And e.ClipRectangle.Width > 0 Then
Dim L As LinearGradientBrush
L = New LinearGradientBrush(e.ClipRectangle, MainCls.Color1, MainCls.Color2, LinearGradientMode.Horizontal)
Using L
e.Graphics.FillRectangle(L, e.ClipRectangle)
End Using
End If
End If
End Sub
Private Sub SSForm_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Me.Invalidate()
End Sub
End Class
Вопрос номер раз: Формы унаследованые от моей формы в редакторе форм не отображаются
чего-то там много очень говорит. Неужели мне придется компилить одну форму в сборку и от нее наледоватся? бред.
Вопрос номер два:
- Код: Выделить всё
Application.OpenForms
Будет "показывать" формы унаследованые от моей?
