Keskustelu: Ohjelmointikysymykset: VB.NET ja grafiikka (C)

'tee tässäkin toi pisteen perään iskeminen...
'Imports System.Drawing.
'...tutki ja vertaa mitä kivaa laatikoista sit löytyy...

  Public Class Form1
    Inherits System.Windows.Forms.Form

    'mikäli päädyt käyttämään API-kamaa niin määrittele vakiot tyyliin...
    'Public/Private Const JOKU_VAKIO AS tyyppi = jotain
    'ja API-funktiot tyyliin...
    'Public/Private Declare Auto Function jne...

    '...

    Public Shared g As Graphics 'tämä funkkaa mistä vaan...
                                'toki voit iskeä projektiin moduulin,
                                'jossa esittelet jutskan aivan samaan
                                'tyyliin...tai sit teet luokan ja
                                'kapseloit koko paskan, mutta...
                                'miksi nähdä vaiva...

    Protected Overrides Sub OnPaint(ByVal _
    e As System.Windows.Forms.PaintEventArgs)

      g = e.Graphics
     'nyt kun olet tässä vaiheessa niin iske
     ' . (piste ton Graphics-sanan perään) ***
     'ja tutki mitä kaikkea kivaa siihen
     'dropdown-laatikkoon ilmestyy...
     'voit sit alkaa miettiin kannattaako
     'noita API-jutskia tuoda projektiin...
     'mikäli haluat silti käyttää API-funktioita...
     'niin mikään ei estä...

  End Sub

'...

Public Function CountCharBlack(X%, Y%, Le%) As Integer
Dim X1%, Y1%, Col1&, Col2&, I%, Ch$
With PL
        .M.ForeColor = vbBlack
        .M.BackColor = vbWhite
    For I = 1 To Le
        F(I) = 0     'Nollataan laskuri
        .M.Cls
        Ch = Mark(I)
        TextOut .M.HDC, 0, 0, Ch, 1 'Tulostetaan 1 merkki vertailu pictureBoxiin
        .M.Refresh
        DoEvents
        Y1 = 0
        X1 = 0
        'Vertaillaan jokaista pixeliä
        Do
            Do
                Col1 = GetPixel(pW.HDC, X + X1, Y + Y1)
                Col2 = GetPixel(.M.HDC, X1, Y1)
                If Col1 = Col2 And Col1 = vbBlack Then F(I) = F(I) + 1 'Lisätään
            Y1 = Y1 + 1
            Loop Until Y1 > SF(I).sY 'Kirjaimen etukäteen laskettu korkeus
        Y1 = 0
        X1 = X1 + 1
        Loop Until X1 > SF(I).sX 'Kirjaimen etukäteen laskettu leveys
    Next I
    CountCharBlack = SearchKing(X, Y, Le) 'Tutkitaan hallitseva merkki.
End With
End Function

Public Function CountCharBlack(ByRef X As Short, ByRef Y As Short, ByRef Le As Short) As Short
    Dim Y1, X1, I As Short
    Dim Col1, Col2 As Integer
    Dim Ch As String
    Dim M As PictureBox
    Dim M1 As New Bitmap(30, 30)
    Dim Br As SolidBrush
    Dim Musta = New Pen(Color.Black)
    M.Size = New Size(30, 30)

    M.ForeColor = Color.Black
    M.BackColor = Color.White
    For I = 1 To Le
        F(I) = 0
        Ch = Merkki(I)
        'TextOut(.M.HDC, 0, 0, Ch, 1)
        M.CreateGraphics.DrawString(Ch, PL.DefaultFont, Br, 0, 0) '1 merkki
        M.Refresh()
        M1 = M.Image ' Kopioidaan se??
        Y1 = 0
        X1 = 0
        'vertaillaan
        Do
            Do
                Col1 = System.Drawing.ColorTranslator.ToOle(B.GetPixel(X + X1, Y + Y1))
                Col2 = System.Drawing.ColorTranslator.ToOle(M1.GetPixel(X1, Y1))
                If Col1 = Col2 And _
                    Col1 = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Black) Then
                    F(I) = F(I) + 1
                End If
                Y1 = Y1 + 1
            Loop Until Y1 > SF(I).sY
            Y1 = 0
            X1 = X1 + 1
        Loop Until X1 > SF(I).sX
    Next I
    Return SearchKing(X, Y, Le)
End Function

#include <string>

std::string s;
int SetMM(const char *t)
{
  s = t;
  return 1;
}
char GetMM(unsigned int i)
{
  if (i < s.length()) [
    return s[i];
  } else {
    return 0;
  }
}

Private Declare Function SetMM Lib "Funktiot.dll" (ByVal Merkkijono As String) As Long
Private Declare Function GetMM Lib "Funktiot.dll" (ByVal ind As Long) As String
'Test
Private Sub Form_Load()
Dim A$, I%, M$
    MM = " liÎÏ!IÌÍ¡*°{}\/[]-¹²³‘’'´`¨·.¸,;:"
    Label1.Caption = MM
    Ret = SetMM(MM)
    Do
        M = GetMM(I)
        I = I + 1
        If M <> Chr$(0) Then
            A = A & M
        Else
            Exit Do
        End If
    Loop
    MsgBox A
End Sub