Sorry your browser is not supported!

// create a bitmap
dbCreateBitmap ( m_iBitmap, iWidth, iHeight );

// draw to the new bitmap
dbSetCurrentBitmap ( m_iBitmap );

// set the foreground and background colours to black
dbInk ( dbRgb ( 0, 0, 0 ), dbRgb ( 0, 0, 0 ) );

// draw a black box onto the bitmap
dbBox ( 0, 0, iWidth, iHeight );

// set text font and size
dbSetTextFont ( "arial" );
dbSetTextSize ( 16 );

// change the ink to match the colour we want for the text
dbInk ( dwColour, dbRgb ( 255, 255, 255 ) );

// now draw our text onto the bitmap
dbText ( 0, 2, szText );

// grab a section of the bitmap and make an image from it
dbGetImage ( m_iImage, 0, 0, iWidth, iHeight, 1 );

// now restore drawing operations to the screen
dbSetCurrentBitmap ( 0 );

// create a sprite and use the new image
dbSprite ( m_iID, m_iX, m_iY, m_iImage );

// delete the bitmap
dbDeleteBitmap ( m_iBitmap );

        'We dont need these for DarkEngine
        Dim m_iBitmap As Integer = 10
        Dim m_iImage As Integer = 10
        Dim m_iID As Integer = 20

        'Change them as you like ;)
        Dim iWidth As Integer = 300
        Dim iHeight As Integer = 50
        Dim m_iX As Integer = 50
        Dim m_iY As Integer = DarkDisplay.ScreenHeight - 70

        Dim bm As New DarkBitmap(iWidth, iHeight)

        ' draw to the new bitmap
        'oDBBitmap.SetCurrentBitmap(m_iBitmap)
        bm.SetCurrent()

        ' set the foreground and background colours to black
        'oDB2D.Ink(RGB(0, 0, 0), RGB(0, 0, 0))
        DarkBasic2D.Ink(RGB(0, 0, 0), RGB(0, 0, 0))

        ' draw a black box onto the bitmap
        'oDB2D.Box(0, 0, iWidth, iHeight)
        DarkBasic2D.Box(0, 0, iWidth, iHeight)

        ' set text font and size
        'oDBText.SetTextFont("arial")
        'oDBText.SetTextSize(13)
        DarkText.SetTextFont("arial", 16)

        ' change the ink to match the colour we want for the text
        'oDB2D.Ink(RGB(255, 255, 255), RGB(255, 255, 255))
        DarkBasic2D.Ink(RGB(255, 255, 255), RGB(255, 255, 255))

        ' now draw our text onto the bitmap
        'oDBText.Text(0, 2, "Dette er en test")
        DarkText.Text(0, 2, "Dette er i DarkEngine")

        ' grab a section of the bitmap and make an image from it
        'oDBImage.GetImage(m_iImage, 0, 0, iWidth, iHeight)
        Dim im As New DarkImage(0, 0, iWidth, iHeight)

        ' now restore drawing operations to the screen
        'oDBBitmap.SetCurrentBitmap(0)
        '        bm.SetCurrent()???

        ' create a sprite and use the new image
        'oDBSprite.Sprite(m_iID, m_iX, m_iY, m_iImage)
        Dim sp As New DarkSprite(m_iX, m_iY, im)

        ' delete the bitmap
        'oDBBitmap.DeleteBitmap(m_iBitmap)
        bm.Delete()

    Public Function TextWidth(ByVal fontName As String, ByVal fontPitch As Integer, ByVal text As String) As Integer
        Dim result As Integer
        SyncLock oDBText
            oDBText.SetTextFont(fontName)
            oDBText.SetTextSize(fontPitch)
            result = oDBText.GetTextWidth(text)
        End SyncLock
        Return result
    End Function

    Public Function ChopText(ByVal fontName As String, ByVal fontPointSize As Integer, ByVal width As Integer, ByVal text As String) As String()
        Dim lines As String = ""
        Dim words() As String = text.Split(" "c)
        Dim currentLine As String = ""
        Dim word As String
        For Each word In words
            If TextWidth(fontName, fontPointSize, currentLine & word & " ") > width Then
                lines &= currentLine & Chr(254)
                currentLine = word
            Else
                If currentLine = "" Then
                    currentLine = word
                Else
                    currentLine &= " " & word
                End If
            End If
        Next
        lines &= currentLine
        Return lines.Split(Chr(254))
    End Function

Dim bits() As String = ChopText("arial", 16, 150, "This is a test string to see if the chopping works (I hope it does)")

bits(0) = "This is a test string to"
bits(1) = "see if the chopping works"
bits(2) = "(I hope it does)"