Visual Basic

ctrl.Dispose

For Each ctrl as Control in Me.Controls
Next

dim NumberOfControl as Integer = Me.Controls.Count

for Counter as integer = 0 to NumberOfControls step -1
 if typeof ctrl is picturebox then
  'do stuff
 end if
Next

Simon_Whale wrote:

for Counter as integer = 0 to NumberOfControls step -1

for Counter as integer = NumberOfControls to 0 step -1

Sub Main()
        Dim dict = New Dictionary(Of String, List(Of Integer))

        Dim unitCode = String.Empty
        Dim qty = 0        

        ' process all files
        For Each file In GetFiles()

            'process each row in file
            For Each row In file

                'methode for extracting unitcode
                unitCode = GetUnitCode(row)
                'methode for extracting qty
                qty = GetQuantity(row)

                'dictionory object already holds the unitcode so just add the qty
                If dict.ContainsKey(unitCode) Then
                    dict(unitCode).Add(qty)

                    'dictionory object doesn't holds the unitcode so add the unitCode and the first qty
                Else
                    Dim qtyList = New List(Of Integer)
                    qtyList.Add(qty)
                    dict.Add(unitCode, qtyList)
                End If
            Next
        Next
    End Sub

jon2371 wrote:

sample code/form

jan212r wrote:

I want to change thye lcd display of a G510 keyboard.

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

jan212r wrote:

the price is not that high (100€ in Be)

jan212r wrote:

the older models are compatible (normaly).

jan212r wrote:

there are no real libs. only 2 dll and almost no documentation

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

jan212r wrote:

Now I already have on test program

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

Module Module1
  Public LCD As LgLcd
  Public fnt As New Font("Calibri", 8)

  'these font works for me
  'Calibri
  'batang
  'bookman old style
  'calibri
  'cambria
  'dotum
  'gulim
  'gungsuh
  'mingliu
  'ms gothic
  'nsimsun
  'pmingliu
  'simsun
  Sub main() 'args As String()
    ' LCD structures needed
    Dim conn As New lgLcdClassLibrary.lgLcd.lgLcdConnectContext()
    Dim opn As New lgLcdClassLibrary.lgLcd.lgLcdOpenContext()
    Dim bmp As New lgLcdClassLibrary.lgLcd.lgLcdBitmap160x43x1()
    Dim nAllButtonsReleased, nButton As Integer

    ' .NET drawing objects
    Dim bmpNet As Bitmap
    Dim gfx As Graphics

    ' Initialize LCD access            
    lgLcdClassLibrary.lgLcd.lgLcdInit()
    conn.appFriendlyName = "Test Application"
    conn.isAutostartable = False
    conn.isPersistent = False
    conn.connection = lgLcdClassLibrary.lgLcd.LGLCD_INVALID_CONNECTION


    lgLcdClassLibrary.lgLcd.lgLcdConnect(conn)
    opn.connection = conn.connection
    opn.index = 1

    lgLcdClassLibrary.lgLcd.lgLcdOpen(opn)
    Dim installed_fonts As New Drawing.Text.InstalledFontCollection
    Dim font_families() As FontFamily = installed_fonts.Families()

    ' Display the font families.
    'For Each font_family As FontFamily In font_families
    '  Console.Write(font_family.Name & ", ")
    'Next font_family
    Dim nCounter As Integer = 0
    Do
      Try
        fnt = New Font(font_families(nCounter).Name, 10)
      Catch ex As Exception

      End Try

      ' Graphics object
      bmpNet = New Bitmap(160, 43)
      gfx = Graphics.FromImage(bmpNet)

      ' Clear the screen            
      gfx.FillRectangle(Brushes.White, New Rectangle(0, 0, 160, 43))

      ' Drawing goes here.  We can do any .NET graphics object drawing we want.
      ' (fonts or whatever.)
      gfx.DrawString(fnt.Name, fnt, Brushes.Black, 10, 10)
      gfx.DrawString("Play    Stop     Prev     Next", fnt, Brushes.Black, 10, 27)

      ' Convert our .NET bitmap to the format that LCD wants 
      ' (treat anything non-white to be black)
      ' This is *not* the most efficient way to do this.
      bmp.hdr = New lgLcdClassLibrary.lgLcd.lgLcdBitmapHeader()
      bmp.hdr.Format = lgLcdClassLibrary.lgLcd.LGLCD_BMP_FORMAT_160x43x1
      bmp.pixels = New Byte(6879) {}

      For y As Integer = 0 To 42
        For x As Integer = 0 To 159
          Dim trueColor As Color = bmpNet.GetPixel(x, y)
          Dim nColor As Byte = CByte(If((trueColor.R = 255 AndAlso trueColor.G = 255 AndAlso trueColor.B = 255), 0, 255))

          bmp.pixels(y * 160 + x) = nColor
        Next
      Next

      ' Draw the picture.
      lgLcdClassLibrary.lgLcd.lgLcdUpdateBitmap(opn.device, bmp, lgLcdClassLibrary.lgLcd.LGLCD_PRIORITY_NORMAL)
      'bring the bitmap on the display
      lgLcdClassLibrary.lgLcd.lgLcdSetAsLCDForegroundApp(opn.device, lgLcdClassLibrary.lgLcd.LGLCD_LCD_FOREGROUND_APP_YES)
      Do
        lgLcdClassLibrary.lgLcd.lgLcdReadSoftButtons(opn.device, nButton)
      Loop Until nButton > 0
      If (nButton Or 4) = 4 Then
        nCounter -= 1
        If nCounter < 0 Then nCounter = 0
      ElseIf (nButton Or 8) = 8 Then
        nCounter += 1
        If nCounter > font_families.Count Then nCounter = font_families.Count
      End If
      Do
        lgLcdClassLibrary.lgLcd.lgLcdReadSoftButtons(opn.device, nAllButtonsReleased)
      Loop Until nAllButtonsReleased = 0
    Loop Until (nButton Or 2) = 2

    ' Shut it all down
    lgLcdClassLibrary.lgLcd.lgLcdClose(opn.device)
    lgLcdClassLibrary.lgLcd.lgLcdDisconnect(conn.connection)
    lgLcdClassLibrary.lgLcd.lgLcdDeInit()
  End Sub
End Module