MapForums

   Private gpText As System.Drawing.Drawing2D.GraphicsPath  'used to draw text
   Dim ffText As New FontFamily("Arial")

   Private Sub pb1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles pb1.Paint
      If cboBGColor.SelectedIndex < 0 Then Exit Sub
      If cboForeColor.SelectedIndex < 0 Then Exit Sub
      Try
         'draw the symbol outline ellipse
         Dim colorBG As Color = Color.FromKnownColor(cboBGColor.SelectedItem)
         Dim brushBG As New System.Drawing.SolidBrush(colorBG)
         e.Graphics.FillEllipse(brushBG, 0, 0, 32, 32)
         'draw the text
         If Not (gpText Is Nothing) Then
            Dim colorFG As Color = Color.FromKnownColor(cboForeColor.SelectedItem)
            Debug.WriteLine("Forecolor: " & colorFG.R.ToString & "," & colorFG.G.ToString & "," & colorFG.Black.ToString)
            e.Graphics.DrawPath(New Pen(colorFG), gpText)
            Dim b As New System.Drawing.SolidBrush(colorFG)
            e.Graphics.FillPath(b, gpText)
         End If
      Catch ex As Exception
         Debug.WriteLine("ERROR IN PAINT()" & ControlChars.CrLf & "  " & ex.Message)
      End Try
   End Sub

   Private Sub DrawSymbol(ByVal i As Integer)
      Dim ofsX As Integer
      If i < 1000 Then ofsX = 3
      If i < 100 Then ofsX = 8
      If i < 10 Then ofsX = 13
      gpText = New System.Drawing.Drawing2D.GraphicsPath(Drawing2D.FillMode.Winding)
      gpText.AddString(i.ToString, ffText, FontStyle.Regular, 14, New Point(ofsX, 8), System.Drawing.StringFormat.GenericTypographic)
      pb1.Refresh()   'force a PAINT event, thereby redrawing the bitmap
      gpText.Dispose()
   End Sub

   Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
      If Not ckToFiles.Checked Then
         DrawSymbol(CInt(txtSample.Text))
         Exit Sub
      End If
      For i As Integer = 0 To CInt(txtSample.Text)
         DrawSymbol(i)
         Dim bm As Bitmap = GetDecoratedImage(pb1)
         Dim fn As String = "c:\temp\mappoint additional symbols\"
         fn &= cboForeColor.Text & " on " & cboBGColor.Text & " " & cboSize.Text & " "
         bm.Save(fn & i.ToString & ".bmp", System.Drawing.Imaging.ImageFormat.Bmp)
      Next
   End Sub


   Private Const SRCCOPY As Integer = &HCC0020
   Private Declare Auto Function BitBlt Lib "gdi32.dll" (ByVal hdcDest As IntPtr, ByVal nXDest As Integer, ByVal nYDest As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hdcSrc As IntPtr, ByVal nXSrc As Integer, ByVal nYSrc As Integer, ByVal dwRop As System.Int32) As Boolean
   Private Declare Auto Function GetWindowDC Lib "user32.dll" (ByVal hWnd As IntPtr) As IntPtr

   Private Function GetDecoratedImage(ByRef Obj As Object) As Bitmap
      'Get an image of a form object plus its decoration (borders, title bar, lines, etc)
      'Get this object's Graphics object
      Dim me_gr As Graphics = Obj.CreateGraphics
      ' Make a Bitmap to hold the ICON image
      Dim bm As New Bitmap(32, 32, 96, Imaging.PixelFormat.Format24bppRgb, IntPtr.Zero)
      Dim bm_gr As Graphics = me_gr.FromImage(bm)
      Dim bm_hdc As IntPtr = bm_gr.GetHdc
      'Get the object's hDC. We must do this AFTER creating the new Bitmap
      Dim me_hdc As IntPtr = GetWindowDC(Obj.Handle)
      'BitBlt the object's image into the new Bitmap
      BitBlt(bm_hdc, 0, 0, Me.Width, Me.Height, me_hdc, 0, 0, SRCCOPY)
      'cleanup
      bm_gr.ReleaseHdc(bm_hdc)
      me_gr.Dispose()
      bm_gr.Dispose()
      Return bm
   End Function

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
      'set values for our comboboxes
      'Get all the values from the KnownColor enumeration
      Dim colorsArray As System.Array = [Enum].GetValues(GetType(KnownColor))
      Dim allColors(colorsArray.Length) As KnownColor
      Array.Copy(colorsArray, allColors, colorsArray.Length)
      For i As Integer = 0 To allColors.Length - 1
         cboBGColor.Items.Add(allColors(i))
         cboForeColor.Items.Add(allColors(i))
      Next i
      cboBGColor.SelectedItem = "White"
      cboForeColor.SelectedItem = "Black"
      cboSize.SelectedItem = "32x32"
      cboSize.Text = "32x32"
   End Sub