Reply to thread

Message

<blockquote data-quote="gpnash" data-source="post: 1201243" data-attributes="member: 151666">Guess I just don't get it.... but then again the windows 10&nbsp; universal windows code baffles me too. windows forms... that I understand.Thanks for the last straw.. Here's the working vb example....[code]&nbsp;&lt;window&gt;&nbsp; &lt;id&gt;10001&lt;/id&gt;&nbsp; &lt;defaultcontrol&gt;3&lt;/defaultcontrol&gt;&nbsp; &lt;allowoverlay&gt;yes&lt;/allowoverlay&gt;&nbsp; &lt;controls&gt;&nbsp; &nbsp; &lt;control&gt;&nbsp; &nbsp; &nbsp; &lt;id&gt;0&lt;/id&gt;&nbsp; &nbsp; &nbsp; &lt;type&gt;image&lt;/type&gt;&nbsp; &nbsp; &nbsp; &lt;posX&gt;66&lt;/posX&gt;&nbsp; &nbsp; &nbsp; &lt;posY&gt;34&lt;/posY&gt;&nbsp; &nbsp; &nbsp; &lt;width&gt;61&lt;/width&gt;&nbsp; &nbsp; &nbsp; &lt;height&gt;57&lt;/height&gt;&nbsp; &nbsp; &nbsp; &lt;texture&gt;icon_tv.png&lt;/texture&gt;&nbsp; &nbsp; &nbsp; &lt;animation effect=&quot;fade&quot; time=&quot;250&quot;&gt;WindowOpen&lt;/animation&gt;&nbsp; &nbsp; &nbsp; &lt;animation effect=&quot;fade&quot; time=&quot;250&quot;&gt;WindowClose&lt;/animation&gt;&nbsp; &nbsp; &lt;/control&gt;&nbsp; &nbsp; &lt;import&gt;common.time.xml&lt;/import&gt;&nbsp; &nbsp; &lt;control&gt;&nbsp; &nbsp; &nbsp; &lt;description&gt;Refresh&lt;/description&gt;&nbsp; &nbsp; &nbsp; &lt;type&gt;button&lt;/type&gt;&nbsp; &nbsp; &nbsp; &lt;id&gt;3&lt;/id&gt;&nbsp; &nbsp; &nbsp; &lt;posX&gt;100&lt;/posX&gt;&nbsp; &nbsp; &nbsp; &lt;posY&gt;175&lt;/posY&gt;&nbsp; &nbsp; &nbsp; &lt;height&gt;60&lt;/height&gt;&nbsp; &nbsp; &nbsp; &lt;onleft&gt;3&lt;/onleft&gt;&nbsp; &nbsp; &nbsp; &lt;onright&gt;3&lt;/onright&gt;&nbsp; &nbsp; &nbsp; &lt;onup&gt;3&lt;/onup&gt;&nbsp; &nbsp; &nbsp; &lt;ondown&gt;4&lt;/ondown&gt;&nbsp; &nbsp; &nbsp; &lt;label&gt;Refresh&lt;/label&gt;&nbsp; &nbsp; &lt;/control&gt;&nbsp; &nbsp; &lt;control&gt;&nbsp; &nbsp; &nbsp; &lt;description&gt;text label&lt;/description&gt;&nbsp; &nbsp; &nbsp; &lt;type&gt;label&lt;/type&gt;&nbsp; &nbsp; &nbsp; &lt;id&gt;2&lt;/id&gt;&nbsp; &nbsp; &nbsp; &lt;posX&gt;100&lt;/posX&gt;&nbsp; &nbsp; &nbsp; &lt;posY&gt;240&lt;/posY&gt;&nbsp; &nbsp; &nbsp; &lt;label&gt;&lt;/label&gt;&nbsp; &nbsp; &nbsp; &lt;font&gt;font16&lt;/font&gt;&nbsp; &nbsp; &nbsp; &lt;align&gt;left&lt;/align&gt;&nbsp; &nbsp; &nbsp; &lt;textcolor&gt;ffffffff&lt;/textcolor&gt;&nbsp; &nbsp; &lt;/control&gt;&nbsp; &nbsp; &lt;control&gt;&nbsp; &nbsp; &nbsp; &lt;description&gt;GuiList&lt;/description&gt;&nbsp; &nbsp; &nbsp; &lt;type&gt;listcontrol&lt;/type&gt;&nbsp; &nbsp; &nbsp; &lt;id&gt;4&lt;/id&gt;&nbsp; &nbsp; &nbsp; &lt;posX&gt;100&lt;/posX&gt;&nbsp; &nbsp; &nbsp; &lt;posY&gt;305&lt;/posY&gt;&nbsp; &nbsp; &nbsp; &lt;scrollOffset&gt;2&lt;/scrollOffset&gt;&nbsp; &nbsp; &nbsp; &lt;font&gt;font10&lt;/font&gt;&nbsp; &nbsp; &nbsp; &lt;align&gt;left&lt;/align&gt;&nbsp; &nbsp; &nbsp; &lt;onleft&gt;3&lt;/onleft&gt;&nbsp; &nbsp; &nbsp; &lt;onright&gt;3&lt;/onright&gt;&nbsp; &nbsp; &nbsp; &lt;textcolor&gt;ffffffff&lt;/textcolor&gt;&nbsp; &nbsp; &nbsp; &lt;unfocusedAlpha&gt;160&lt;/unfocusedAlpha&gt;&nbsp; &nbsp; &lt;/control&gt;&nbsp; &lt;/controls&gt;&lt;/window&gt;[/code][code]Imports SystemImports System.Windows.FormsImports MediaPortal.GUI.LibraryImports MediaPortal.DialogsNamespace MPtvApprove' http://wiki.team-mediaportal.com/1_MEDIAPORTAL_1/18_Contribute/6_Plugins/Plugin_Developer's_Guide/1_Develop_a_Plugin/Visual_BasicPublic Class TvApproveInherits GUIWindowImplements ISetupForm&lt;SkinControlAttribute(2)&gt; Protected lblText As GUILabelControl = Nothing&lt;SkinControlAttribute(3)&gt; Protected buttonOne As GUIButtonControl = Nothing&lt;SkinControlAttribute(4)&gt; Protected myList As GUIListControl = NothingPrivate _windowID As Integer = 10001Private errors As String = String.Empty' With GetID it will be an window-plugin / otherwise a process-plugin' Enter the id number here againPublic Overrides Property GetID As IntegerGetReturn _windowIDEnd GetSet(value As Integer)_windowID = valueEnd SetEnd PropertyPublic Overrides Function Init() As BooleanDim result As Boolean = Load(GUIGraphicsContext.Skin + &quot;\MPtvapprove.xml&quot;)Return resultEnd FunctionProtected Overrides Sub OnPageLoad()GUIPropertyManager.SetProperty(&quot;#header.label&quot;, &quot;TV Approve for Recording&quot;)myList.Clear()errors = String.EmptymyList.SetTextOffsets(100, 0, 1090, 0, 1100, 0)myList.IconOffsetX = 0myList.IconOffsetY = 0myList.TypeOfList = GUIListControl.ListType.CONTROL_LISTmyList.Space = 1For Each candidate As tvCandidate In getTitlesToApprove()myList.Add(candidate.toGuiListItem)Nexterrors += If(errors.Length &gt; 0, &quot;\n&quot;, &quot;&quot;)lblText.Label = errors + &quot;found:&quot; + myList.Count.ToString + &quot; records&quot;MyBase.OnPageLoad()End SubPublic Sub New()MyBase.NewEnd SubPublic Function PluginName() As String Implements ISetupForm.PluginNameReturn &quot;TvApprove&quot;End FunctionPublic Function Description() As String Implements ISetupForm.DescriptionReturn &quot;TvApprove - Approve selected TVshows for recording.&quot;End FunctionPublic Function Author() As String Implements ISetupForm.AuthorReturn &quot;Guy Nash&quot;End FunctionPublic Sub ShowPlugin() Implements ISetupForm.ShowPluginMessageBox.Show(&quot;Nothing to configure, this is just an example&quot;)End SubPublic Function CanEnable() As Boolean Implements ISetupForm.CanEnableReturn TrueEnd Function' Get Windows-IDPublic Function GetWindowId() As Integer Implements ISetupForm.GetWindowIdReturn _windowIDEnd FunctionPublic Function DefaultEnabled() As Boolean Implements ISetupForm.DefaultEnabledReturn TrueEnd FunctionPublic Function HasSetup() As Boolean Implements ISetupForm.HasSetupReturn FalseEnd Function''' &lt;summary&gt;''' If the plugin should have it's own button on the main menu of MediaPortal then it''' should return true to this method, otherwise if it should not be on home''' it should return false''' &lt;/summary&gt;''' &lt;param name=&quot;strButtonText&quot;&gt;text the button should have&lt;/param&gt;''' &lt;param name=&quot;strButtonImage&quot;&gt;image for the button, or empty for default&lt;/param&gt;''' &lt;param name=&quot;strButtonImageFocus&quot;&gt;image for the button, or empty for default&lt;/param&gt;''' &lt;param name=&quot;strPictureImage&quot;&gt;subpicture for the button or empty for none&lt;/param&gt;''' &lt;returns&gt;true : plugin needs it's own button on home''' false : plugin does not need it's own button on home&lt;/returns&gt;Public Function GetHome(ByRef strButtonText As String, ByRef strButtonImage As String, ByRef strButtonImageFocus As String, ByRef strPictureImage As String) As Boolean Implements ISetupForm.GetHomestrButtonText = PluginName()strButtonImage = &quot;c:\\programdata\\team mediaportal\\mediaportal\\skin\\Titan\\Media\\hover_my tv.png&quot;strButtonImageFocus = [String].EmptystrPictureImage = [String].EmptyReturn TrueEnd FunctionPublic Overrides Function OnMessage(ByVal message As GUIMessage) As BooleanSelect Case message.MessageCase GUIMessage.MessageType.GUI_MSG_CLICKEDIf message.SenderControlId = myList.GetID ThenIf CType(MediaPortal.GUI.Library.Action.ActionType.ACTION_SELECT_ITEM, Integer) = message.Param1 ThenDim item As GUIListItem = myList.SelectedListItem'MessageBox.Show(&quot;msg:&quot; + item.IconImage)item.Selected = item.IconImage.ToLower.EndsWith(&quot;checkmark_unchecked.png&quot;)item.IconImage = If(item.Selected, &quot;c:\\programdata\\Team MediaPortal\\MediaPortal\\skin\\Titan\\Media\\checkmark_checked.png&quot;, &quot;c:\\programdata\\Team MediaPortal\\MediaPortal\\skin\\Titan\\Media\\checkmark_unchecked.png&quot;)Return TrueEnd IfEnd IfCase ElseEnd SelectReturn MyBase.OnMessage(message)End FunctionProtected Overrides Sub OnClicked(ByVal controlId As Integer, ByVal control As GUIControl, ByVal actionType As MediaPortal.GUI.Library.Action.ActionType)Select Case controlIdCase buttonOne.GetIDOnButtonOne()Case myList.GetIDDim item As GUIListItem = myList.SelectedListItem'MessageBox.Show(item.IconImage)item.Selected = item.IconImage.ToLower.EndsWith(&quot;checkmark_unchecked.png&quot;)item.IconImage = If(item.Selected, &quot;c:\\programdata\\Team MediaPortal\\MediaPortal\\skin\\Titan\\Media\\checkmark_checked.png&quot;, &quot;c:\\programdata\\Team MediaPortal\\MediaPortal\\skin\\Titan\\Media\\checkmark_unchecked.png&quot;)Case ElseEnd SelectMyBase.OnClicked(controlId, control, actionType)End SubPrivate Sub OnButtonOne()myList.Clear()myList.SetTextOffsets(100, 0, 1090, 0, 1100, 0)myList.IconOffsetX = 0myList.IconOffsetY = 0myList.Space = 1For Each candidate As tvCandidate In getTitlesToApprove()myList.Add(candidate.toGuiListItem)Nexterrors += If(errors.Length &gt; 0, &quot;\r&quot;, &quot;&quot;)lblText.Label = errors + &quot;found:&quot; + myList.Count.ToString + &quot; records&quot;End SubFunction getTitlesToApprove() As List(Of tvCandidate)Dim result As List(Of tvCandidate) = New List(Of tvCandidate)errors = String.EmptyTryUsing c0 As SqlClient.SqlConnection = New SqlClient.SqlConnection(&quot;server=mediaportalserv;user id=xx;password=xxxxxxxx;database=mptvdb;&quot;)c0.Open()Using c1 As SqlClient.SqlCommand = New SqlClient.SqlCommand(&quot;select idprogram,series,episode,season,episodenumber,dbchannelid,channel,channeldisplayname,starttime,endtime from tvshowcandidates where starttime &gt; getdate() order by starttime,series,channel desc&quot;, c0)Using c2 As SqlClient.SqlDataReader = c1.ExecuteReaderIf c2.HasRows ThenWhile c2.Readresult.Add(New tvCandidate(c2))End WhileEnd IfEnd UsingEnd Usingc0.Close()End UsingCatch ex As ExceptionDim a As tvCandidate = New tvCandidatea.series = ex.Messageresult.Add(a)errors += &quot;\r&quot; + ex.MessageEnd TryReturn resultEnd FunctionEnd ClassEnd Namespace[/code][code]Imports MediaPortal.GUI.LibraryImports MediaPortal.DialogsPublic Class tvCandidatePublic idprogram As IntegerPublic series As StringPublic episode As StringPublic season As StringPublic episodenumber As StringPublic dbchannelid As IntegerPublic channel As StringPublic channeldisplayname As StringPublic starttime As DateTimePublic endtime As DateTimePublic Sub New()End SubPublic Sub New(ByVal i() As Object)idprogram = i(0)series = i(1)episode = i(2)season = i(3)episodenumber = i(4)dbchannelid = i(5)channel = i(6)channeldisplayname = i(7)starttime = i(8)endtime = i(9)End SubPublic Sub New(ByVal i0 As Integer, ByVal i1 As String, ByVal i2 As String, ByVal i3 As String, ByVal i4 As String, ByVal i5 As Integer, ByVal i6 As String, ByVal i7 As String, ByVal i8 As DateTime, ByVal i9 As DateTime)Me.New({i0, i1, i2, i3, i4, i5, i6, i7, i8, i9})End SubPublic Sub New(ByVal sqlrdr As SqlClient.SqlDataReader)Dim i() As Object = {New Object, New Object, New Object, New Object, New Object, New Object, New Object, New Object, New Object, New Object, New Object}Dim mydefault() As Object = {-1, String.Empty, String.Empty, String.Empty, String.Empty, -1, String.Empty, String.Empty, Date.MinValue, Date.MinValue}For j = 0 To 9i(j) = getSQLvalue(sqlrdr, j, mydefault(j))Nextidprogram = i(0)series = i(1)episode = i(2)season = i(3)episodenumber = i(4)dbchannelid = i(5)channel = i(6)channeldisplayname = i(7)starttime = i(8)endtime = i(9)End SubPrivate Function getSQLvalue(ByVal r As SqlClient.SqlDataReader, ByVal c As Integer, ByVal empty As Object) As ObjectDim result As Object = emptyIf r.IsDBNull(c) ThenElseresult = r.GetValue(c)End IfReturn resultEnd FunctionPublic Function toGuiListItem() As GUIListItemDim result As GUIListItem = New GUIListItem(starttime.ToString(&quot;MM/dd/yyyy hh:mm tt&quot;))result.Label += StrDup(6 - channel.Length, &quot;_&quot;) + channel + &quot; &quot; + channeldisplaynameresult.IconImage = &quot;c:\\programdata\\Team MediaPortal\\MediaPortal\\skin\\Titan\\Media\\checkmark_unchecked.png&quot;result.Label2 = seriesresult.Label3 = season + &quot;.&quot; + episodenumber + &quot; &quot; + episode'AddHandler result.OnItemSelected, New GUIListItem.ItemSelectedHandler(AddressOf myOnItemselected)Return resultEnd FunctionEnd Class[/code]</blockquote>

[QUOTE="gpnash, post: 1201243, member: 151666"] Guess I just don't get it.... but then again the windows 10 universal windows code baffles me too. windows forms... that I understand. Thanks for the last straw.. Here's the working vb example.... [code] <window> <id>10001</id> <defaultcontrol>3</defaultcontrol> <allowoverlay>yes</allowoverlay> <controls> <control> <id>0</id> <type>image</type> <posX>66</posX> <posY>34</posY> <width>61</width> <height>57</height> <texture>icon_tv.png</texture> <animation effect="fade" time="250">WindowOpen</animation> <animation effect="fade" time="250">WindowClose</animation> </control> <import>common.time.xml</import> <control> <description>Refresh</description> <type>button</type> <id>3</id> <posX>100</posX> <posY>175</posY> <height>60</height> <onleft>3</onleft> <onright>3</onright> <onup>3</onup> <ondown>4</ondown> <label>Refresh</label> </control> <control> <description>text label</description> <type>label</type> <id>2</id> <posX>100</posX> <posY>240</posY> <label></label> font16 <align>left</align> <textcolor>ffffffff</textcolor> </control> <control> <description>GuiList</description> <type>listcontrol</type> <id>4</id> <posX>100</posX> <posY>305</posY> <scrollOffset>2</scrollOffset> font10 <align>left</align> <onleft>3</onleft> <onright>3</onright> <textcolor>ffffffff</textcolor> <unfocusedAlpha>160</unfocusedAlpha> </control> </controls> </window> [/code] [code] Imports System Imports System.Windows.Forms Imports MediaPortal.GUI.Library Imports MediaPortal.Dialogs Namespace MPtvApprove ' http://wiki.team-mediaportal.com/1_MEDIAPORTAL_1/18_Contribute/6_Plugins/Plugin_Developer's_Guide/1_Develop_a_Plugin/Visual_Basic Public Class TvApprove Inherits GUIWindow Implements ISetupForm <SkinControlAttribute(2)> Protected lblText As GUILabelControl = Nothing <SkinControlAttribute(3)> Protected buttonOne As GUIButtonControl = Nothing <SkinControlAttribute(4)> Protected myList As GUIListControl = Nothing Private _windowID As Integer = 10001 Private errors As String = String.Empty ' With GetID it will be an window-plugin / otherwise a process-plugin ' Enter the id number here again Public Overrides Property GetID As Integer Get Return _windowID End Get Set(value As Integer) _windowID = value End Set End Property Public Overrides Function Init() As Boolean Dim result As Boolean = Load(GUIGraphicsContext.Skin + "\MPtvapprove.xml") Return result End Function Protected Overrides Sub OnPageLoad() GUIPropertyManager.SetProperty("#header.label", "TV Approve for Recording") myList.Clear() errors = String.Empty myList.SetTextOffsets(100, 0, 1090, 0, 1100, 0) myList.IconOffsetX = 0 myList.IconOffsetY = 0 myList.TypeOfList = GUIListControl.ListType.CONTROL_LIST myList.Space = 1 For Each candidate As tvCandidate In getTitlesToApprove() myList.Add(candidate.toGuiListItem) Next errors += If(errors.Length > 0, "\n", "") lblText.Label = errors + "found:" + myList.Count.ToString + " records" MyBase.OnPageLoad() End Sub Public Sub New() MyBase.New End Sub Public Function PluginName() As String Implements ISetupForm.PluginName Return "TvApprove" End Function Public Function Description() As String Implements ISetupForm.Description Return "TvApprove - Approve selected TVshows for recording." End Function Public Function Author() As String Implements ISetupForm.Author Return "Guy Nash" End Function Public Sub ShowPlugin() Implements ISetupForm.ShowPlugin MessageBox.Show("Nothing to configure, this is just an example") End Sub Public Function CanEnable() As Boolean Implements ISetupForm.CanEnable Return True End Function ' Get Windows-ID Public Function GetWindowId() As Integer Implements ISetupForm.GetWindowId Return _windowID End Function Public Function DefaultEnabled() As Boolean Implements ISetupForm.DefaultEnabled Return True End Function Public Function HasSetup() As Boolean Implements ISetupForm.HasSetup Return False End Function ''' <summary> ''' If the plugin should have it's own button on the main menu of MediaPortal then it ''' should return true to this method, otherwise if it should not be on home ''' it should return false ''' </summary> ''' <param name="strButtonText">text the button should have</param> ''' <param name="strButtonImage">image for the button, or empty for default</param> ''' <param name="strButtonImageFocus">image for the button, or empty for default</param> ''' <param name="strPictureImage">subpicture for the button or empty for none</param> ''' <returns>true : plugin needs it's own button on home ''' false : plugin does not need it's own button on home</returns> Public Function GetHome(ByRef strButtonText As String, ByRef strButtonImage As String, ByRef strButtonImageFocus As String, ByRef strPictureImage As String) As Boolean Implements ISetupForm.GetHome strButtonText = PluginName() strButtonImage = "c:\\programdata\\team mediaportal\\mediaportal\\skin\\Titan\\Media\\hover_my tv.png" strButtonImageFocus = [String].Empty strPictureImage = [String].Empty Return True End Function Public Overrides Function OnMessage(ByVal message As GUIMessage) As Boolean Select Case message.Message Case GUIMessage.MessageType.GUI_MSG_CLICKED If message.SenderControlId = myList.GetID Then If CType(MediaPortal.GUI.Library.Action.ActionType.ACTION_SELECT_ITEM, Integer) = message.Param1 Then Dim item As GUIListItem = myList.SelectedListItem 'MessageBox.Show("msg:" + item.IconImage) item.Selected = item.IconImage.ToLower.EndsWith("checkmark_unchecked.png") item.IconImage = If(item.Selected, "c:\\programdata\\Team MediaPortal\\MediaPortal\\skin\\Titan\\Media\\checkmark_checked.png", "c:\\programdata\\Team MediaPortal\\MediaPortal\\skin\\Titan\\Media\\checkmark_unchecked.png") Return True End If End If Case Else End Select Return MyBase.OnMessage(message) End Function Protected Overrides Sub OnClicked(ByVal controlId As Integer, ByVal control As GUIControl, ByVal actionType As MediaPortal.GUI.Library.Action.ActionType) Select Case controlId Case buttonOne.GetID OnButtonOne() Case myList.GetID Dim item As GUIListItem = myList.SelectedListItem 'MessageBox.Show(item.IconImage) item.Selected = item.IconImage.ToLower.EndsWith("checkmark_unchecked.png") item.IconImage = If(item.Selected, "c:\\programdata\\Team MediaPortal\\MediaPortal\\skin\\Titan\\Media\\checkmark_checked.png", "c:\\programdata\\Team MediaPortal\\MediaPortal\\skin\\Titan\\Media\\checkmark_unchecked.png") Case Else End Select MyBase.OnClicked(controlId, control, actionType) End Sub Private Sub OnButtonOne() myList.Clear() myList.SetTextOffsets(100, 0, 1090, 0, 1100, 0) myList.IconOffsetX = 0 myList.IconOffsetY = 0 myList.Space = 1 For Each candidate As tvCandidate In getTitlesToApprove() myList.Add(candidate.toGuiListItem) Next errors += If(errors.Length > 0, "\r", "") lblText.Label = errors + "found:" + myList.Count.ToString + " records" End Sub Function getTitlesToApprove() As List(Of tvCandidate) Dim result As List(Of tvCandidate) = New List(Of tvCandidate) errors = String.Empty Try Using c0 As SqlClient.SqlConnection = New SqlClient.SqlConnection("server=mediaportalserv;user id=xx;password=xxxxxxxx;database=mptvdb;") c0.Open() Using c1 As SqlClient.SqlCommand = New SqlClient.SqlCommand("select idprogram,series,episode,season,episodenumber,dbchannelid,channel,channeldisplayname,starttime,endtime from tvshowcandidates where starttime > getdate() order by starttime,series,channel desc", c0) Using c2 As SqlClient.SqlDataReader = c1.ExecuteReader If c2.HasRows Then While c2.Read result.Add(New tvCandidate(c2)) End While End If End Using End Using c0.Close() End Using Catch ex As Exception Dim a As tvCandidate = New tvCandidate a.series = ex.Message result.Add(a) errors += "\r" + ex.Message End Try Return result End Function End Class End Namespace [/code] [code] Imports MediaPortal.GUI.Library Imports MediaPortal.Dialogs Public Class tvCandidate Public idprogram As Integer Public series As String Public episode As String Public season As String Public episodenumber As String Public dbchannelid As Integer Public channel As String Public channeldisplayname As String Public starttime As DateTime Public endtime As DateTime Public Sub New() End Sub Public Sub New(ByVal i() As Object) idprogram = i(0) series = i(1) episode = i(2) season = i(3) episodenumber = i(4) dbchannelid = i(5) channel = i(6) channeldisplayname = i(7) starttime = i(8) endtime = i(9) End Sub Public Sub New(ByVal i0 As Integer, ByVal i1 As String, ByVal i2 As String, ByVal i3 As String, ByVal i4 As String, ByVal i5 As Integer, ByVal i6 As String, ByVal i7 As String, ByVal i8 As DateTime, ByVal i9 As DateTime) Me.New({i0, i1, i2, i3, i4, i5, i6, i7, i8, i9}) End Sub Public Sub New(ByVal sqlrdr As SqlClient.SqlDataReader) Dim i() As Object = {New Object, New Object, New Object, New Object, New Object, New Object, New Object, New Object, New Object, New Object, New Object} Dim mydefault() As Object = {-1, String.Empty, String.Empty, String.Empty, String.Empty, -1, String.Empty, String.Empty, Date.MinValue, Date.MinValue} For j = 0 To 9 i(j) = getSQLvalue(sqlrdr, j, mydefault(j)) Next idprogram = i(0) series = i(1) episode = i(2) season = i(3) episodenumber = i(4) dbchannelid = i(5) channel = i(6) channeldisplayname = i(7) starttime = i(8) endtime = i(9) End Sub Private Function getSQLvalue(ByVal r As SqlClient.SqlDataReader, ByVal c As Integer, ByVal empty As Object) As Object Dim result As Object = empty If r.IsDBNull(c) Then Else result = r.GetValue(c) End If Return result End Function Public Function toGuiListItem() As GUIListItem Dim result As GUIListItem = New GUIListItem(starttime.ToString("MM/dd/yyyy hh:mm tt")) result.Label += StrDup(6 - channel.Length, "_") + channel + " " + channeldisplayname result.IconImage = "c:\\programdata\\Team MediaPortal\\MediaPortal\\skin\\Titan\\Media\\checkmark_unchecked.png" result.Label2 = series result.Label3 = season + "." + episodenumber + " " + episode 'AddHandler result.OnItemSelected, New GUIListItem.ItemSelectedHandler(AddressOf myOnItemselected) Return result End Function End Class [/code] [/QUOTE]

Verification