lar3ry, on 06 December 2012 - 03:44 AM, said:

lar3ry, on 02 December 2012 - 04:20 AM, said:

Form.Left + WebBrowser1.Left + WebBrowser1.<leftmargin> + control.Left
Form.Top + WebBrowser1.Top + WebBrowser1.<topmargin> + control.Top

WebBrowser1.document.GetElementById("idObject").ScrollIntoView(true) 'true to allign with top of webbrowser, filling out the webbrowser control
'from here, just getting the webbrowser's location pointed to the screen will do the job.
'i dont have the code in front of me and i can't quite remember the syntax.

lar3ry, on 26 November 2012 - 04:03 AM, said:

Option Strict On
Option Explicit On

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("file:///J:/AuroraMonhelp.html")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        For Each ele As HtmlElement In WebBrowser1.document.GetElementsByTagName("img")
            ListBox1.Items.Add(ele.GetAttribute("src"))
            ListBox1.Items.Add(GetXOffSet(ele))
            ListBox1.Items.Add(GetYOffSet(ele))
        Next
    End Sub

    Function GetXOffSet(ByVal elem As HtmlElement) As Integer
        Dim xPos As Integer = elem.OffsetRectangle.Left
        Dim tElm As HtmlElement = elem.OffsetParent
        Dim trig As Boolean = False
        While Not trig
            Try
                xPos += tElm.OffsetRectangle.Left
                tElm = tElm.OffsetParent
            Catch ex As Exception
                trig = True
            End Try
        End While
        Return xPos
    End Function

    Function GetYOffSet(ByVal elem As HtmlElement) As Integer
        Dim yPos As Integer = elem.OffsetRectangle.Top
        Dim tElm As HtmlElement = elem.OffsetParent
        Dim trig As Boolean = False
        While Not trig
            Try
                yPos += tElm.OffsetRectangle.Top
                tElm = tElm.OffsetParent
            Catch ex As Exception
                trig = True
            End Try
        End While
        Return yPos
    End Function

End Class

lucky3, on 22 November 2012 - 06:50 PM, said:

Take a look at this example. I guess you know how to use for loops to adjust x and y of the cropping start point.

Edit: just to let you know that everything you need for cropping letters from the image, is on that link:

croppedLetters.png

Private Sub captureBoard()
        Dim tPoint As Point
        b = PictureBox1.Image
        For i As Integer = 0 To 3
            ' down, y
            For ii As Integer = 0 To 3 ' -> |||| x
                tPoint = New Point(boardCoord.X + (50 * ii), boardCoord.Y + (50 * i))
                grid(ii, i) = tPoint
            Next
        Next

        For x As Integer = 1 To 4
            For y As Integer = 1 To 4
                gRec(x, y) = New Rectangle(grid(x, y), New Size(50, 50))
                letters.Add(CropLetter(b, gRec(x, y).X, gRec(x, y).Y, gRec(x, y).Size.Width, gRec(x, y).Size.Height))
            Next
        Next
            End Sub

Private Sub captureBoard()
        'Dim tPoint As Point
        b = PictureBox1.Image

        grid(1, 1) = New Point(boardCoord.X, boardCoord.Y)
        gRec(1, 1) = New Rectangle(grid(1, 1), New Size(51, 51))

        grid(1, 2) = New Point(grid(1, 1).X + 52, grid(1, 1).Y)
        gRec(1, 2) = New Rectangle(grid(1, 2), New Size(51, 51))

        grid(1, 3) = New Point(grid(1, 2).X + 52, grid(1, 2).Y)
        gRec(1, 3) = New Rectangle(grid(1, 3), New Size(51, 51))

        grid(1, 4) = New Point(grid(1, 3).X + 52, grid(1, 3).Y)
        gRec(1, 4) = New Rectangle(grid(1, 4), New Size(51, 51))

        For row As Integer = 2 To 4
            For col As Integer = 1 To 4
                grid(row, col) = New Point(grid(1, col).X, grid(1, col).Y + (52 * (row - 1)))
                gRec(row, col) = New Rectangle(grid(row, col), New Size(51, 51))
            Next
        Next

        CropLetter(letters, grid, gRec, b, 4, 4)


    End Sub

Private Sub CropLetter(ByRef ltrArray As ArrayList, ByRef grid As Point(,), ByRef gRec As Rectangle(,), ByVal board As Bitmap, ByVal maxrow As Integer, ByVal maxcol As Integer)
        Dim rect As Rectangle
        For row As Integer = 1 To maxrow Step 1
            For col As Integer = 1 To maxcol Step 1
                rect = New Rectangle(grid(row, col).X, grid(row, col).Y, gRec(row, col).Width, gRec(row, col).Height)
                ltrArray.Add(board.Clone(rect, board.PixelFormat))
            Next
        Next

    End Sub