Visual Basic

' Something to hold onto our memory stream
Private metaMemoryStream As New MemoryStream
 
Private Sub Button1_Click(blah, blah) Handles Button1.Click
    Using g As Graphics = Me.CreateGraphics()
        Dim hdc As IntPtr = g.GetHdc
        Using meta As New MetaFile(metaMemoryStream, hdc)
            Using metaGraphics As Graphics = Graphics.FromImage(meta)
                '
                ' Draw your stuff here...
                '
                metaGraphics.Draw...
                '
                '
                '
            End Using
            g.ReleaseHdc(hdc)
        End Using
    End Using
End Sub
 
Private Sub ShowMetaFile()
    ' VERY IMPORTANT!
    ' Make sure that we start at the beginning of the Memory Stream!!
    metaMemoryStream.Seek(0, SeekOrigin.Begin)
    PictureBox1.Image = Image.FromStream(metaMemoryStream)
End Sub

MohamedAdam wrote:

how to backup sqlserver2000 database after sqlclient.sqlconnection made

astcws wrote:

Dim Lpoint As New Point(Lx * i, 0)

Dim Lpoint As New Point(0, Lx * i)

Public Function Yao(ByVal PorN As String, ByVal _Color As Color) As Bitmap
    Dim myBmp As New Bitmap(40, 5)
    Dim g As Graphics = Graphics.FromImage(myBmp)
    Dim Guabrush As SolidBrush = New SolidBrush(_Color)
    Select Case PorN
        Case "0"
            Dim rects As Rectangle() = {New Rectangle(0, 0, 18, 5), New Rectangle(22, 0, 18, 5)}
            g.FillRectangles(Guabrush, rects)
        Case "1"
            Dim rects As Rectangle() = {New Rectangle(0, 0, 40, 5)}
            g.FillRectangles(Guabrush, rects)
    End Select
    g.Dispose()
    Return myBmp
    End Function