Visual Basic

Imports System.Drawing.Drawing2D

Public Class Text2007
    Inherits System.Windows.Forms.UserControl

    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or &H20
            Return cp
        End Get
    End Property

    Protected Overrides Sub OnPaintBackground(ByVal e As PaintEventArgs)
    End Sub

    Protected Sub InvalidateEx()
        If (Parent Is Nothing) Then
            Exit Sub
        Else
            Dim rc As New Rectangle(Location, Size)
            Parent.Invalidate(rc, True)
        End If
    End Sub


    Protected Overrides Sub OnMove(ByVal e As EventArgs)
        Me.InvalidateEx()
    End Sub

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim bm As New Bitmap(CInt(Me.ClientSize.Width / 5), CInt(Me.ClientSize.Height / 5))
        Dim pth As New GraphicsPath()
        pth.AddString(Me.Text, New FontFamily("Verdana"), CInt(FontStyle.Regular), 100, New Point(20, 20), StringFormat.GenericTypographic)
        Dim h As Graphics = Graphics.FromImage(bm)
        Dim mx As New Matrix(1.0F / 5, 0, 0, 1.0F / 5, -(1.0F / 5), -(1.0F / 5))
        h.SmoothingMode = SmoothingMode.AntiAlias
        h.Transform = mx
        Dim p As New Pen(Color.Yellow, 3)
        h.DrawPath(p, pth)
        h.FillPath(Brushes.Yellow, pth)
        h.Dispose()
        e.Graphics.Transform = New Matrix(1, 0, 0, 1, 50, 50)
        e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
        e.Graphics.InterpolationMode = InterpolationMode.HighQualityBicubic
        e.Graphics.DrawImage(bm, ClientRectangle, 0, 0, bm.Width, bm.Height, GraphicsUnit.Pixel)
        e.Graphics.FillPath(Brushes.Black, pth)
        pth.Dispose()
    End Sub

    Public Sub pInvalidate()
        Me.InvalidateEx()
    End Sub

End Class

Imports System.Drawing.Printing<br />
<br />
<br />
Public Class Form2<br />
    Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
       "Data Source =" & Application.StartupPath & "\ITDSS.mdb"<br />
    Public con As New OleDbConnection(ConStr)<br />
    Dim DataSet1, course As New DataSet<br />
    'Dim SQLstr = "SELECT SectionID,Type,Group,TeacherID from [Section]"<br />
    Dim SQLstr = "SELECT DISTINCT  s.LevelNo, c.CourseID,c.SectionID,c.Type,c.Group, r.RoomID FROM [Section] c,Course s,[Slot] r  where s.CourseID=c.CourseID and c.SectionID=r.SectionID  ORDER BY s.LevelNo" ' in(select CourseID from Course  Where LevelNo=1)" 's,Course c WHERE s.CourseID = c.CourseID ORDER BY c.LevelNo"<br />
<br />
    Dim DataAdapter1 As New OleDb.OleDbDataAdapter(SQLstr, con)<br />
<br />
    '----------------------===============================<br />
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        Dim SQLstr, SQLstr1 As String<br />
<br />
        'Dim DataSet1, course As New DataSet<br />
        'SQLstr = "SELECT SectionID,Type,Group from [Section]"<br />
        Con.Open()<br />
<br />
        'DataAdapter1 = New OleDb.OleDbDataAdapter(SQLstr, con)<br />
<br />
<br />
        DataAdapter1.Fill(DataSet1, "Section")<br />
<br />
        Me.DataBindings.Add("text", DataSet1, "Section.SectionID")<br />
<br />
        DataGridView1.DataSource = DataSet1<br />
        DataGridView1.DataMember = "Section"<br />
<br />
<br />
        Dim bmb As BindingManagerBase<br />
        bmb = Me.BindingContext(DataSet1, "Section")<br />
        bmb.Position = bmb.Count<br />
        bmb.Position = 0<br />
         end sub

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click<br />
        Dim CmdB As New OleDb.OleDbCommandBuilder(DataAdapter1)<br />
        DataAdapter1.Update(DataSet1, "Section")<br />
<br />
    End Sub<br />
End Class

Public Class RegExTextBox<br />
Inherits from Windows.Forms.TextBox<br />
<br />
Private _sRegEx As String<br />
<br />
Public Property RegularExpression() As String<br />
Get<br />
Return _sRegEx<br />
End Get<br />
Set(ByVal Value As String)<br />
_sRegEx<br />
End Set<br />
End Property<br />

Private Sub RegExTextBox_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Leave<br />
        If Not System.Text.RegularExpressions.Regex.IsMatch(MyBase.Text, _sRegularExpression) Then<br />
            Throw New TextDoesNotMatchRegularExpressionException()<br />
        End If<br />
    End Sub

Public ReadOnly Property IsValidText() As Boolean<br />
        Get<br />
            Return System.Text.RegularExpressions.Regex.IsMatch(MyBase.Text, _sRegularExpression)<br />
        End Get<br />
    End Property