User Tools

Site Tools


coding

This is an old revision of the document!


Coding

Various coding hints and tips

Public Class YourClass

    Dim selectedMedias = From mt In _mediaTable
                         Where _mediaTypes.Contains(mt.Item("type"))
                         Select New SysMedia With {
                             .Type = mt.Item("type"),
                             .URL = mt.Item("media_Text"),
                             .Region = mt.Item("region"),
                             .MD5 = mt.Item("md5"),
                             .Format = mt.Item("format")
                             }

    For Each MedDr As SysMedia In selectedMedias
        debug.writeline(MedDr.Type)
    Next

End Class

Public Class SysMedia

    Public Type As String
    Public URL As String
    Public Region As String
    Public MD5 As String
    Public Format As String

End Class
coding.1562705880.txt.gz · Last modified: 2019/07/09 21:58 by stigzler