Template:Example Code: Difference between revisions

From MediaMonkey Wiki
Jump to navigation Jump to search
No edit summary
No edit summary
Line 6: Line 6:
       SDB.<span style="color: #66cc66;">MessageBox</span> <span style="color: #ff0000;">"Value = '"</span> &  {{{3|-}}}{{{2|-}}} & <span style="color: #ff0000;">"'"</span>, mtError, <span style="color: #b1b100;">Array</span><span style="color: #66cc66;">(</span>mbOK<span style="color: #66cc66;">)</span>    '[[ISDBApplication::MessageBox|SDB.MessageBox]]
       SDB.<span style="color: #66cc66;">MessageBox</span> <span style="color: #ff0000;">"Value = '"</span> &  {{{3|-}}}{{{2|-}}} & <span style="color: #ff0000;">"'"</span>, mtError, <span style="color: #b1b100;">Array</span><span style="color: #66cc66;">(</span>mbOK<span style="color: #66cc66;">)</span>    '[[ISDBApplication::MessageBox|SDB.MessageBox]]
   <span style="color: #b1b100;">Next</span>
   <span style="color: #b1b100;">Next</span>
  ' objSongData.{{{2|-}}}{{#ifeq:{{{3|-}}}|Object|.Member}} = {{{3|-}}}New{{{2|-}}} 'Commented Out For Safety
  <span style="color: #808080;">' objSongData.{{{2|-}}}{{#ifeq:{{{3|-}}}|Object|.Member}} = {{{3|-}}}New{{{2|-}}}</span> 'Commented Out For Safety
  ' objSonglist.UpdateAll              'Commented Out For Safety            '[[SDBSongData|UpdateAll]]
  <span style="color: #808080;">' objSonglist.UpdateAll</span>             'Commented Out For Safety            '[[SDBSongData|UpdateAll]]
                           Updates db and writes tags (if checked in options)
                           Updates db and writes tags (if checked in options)
  <span style="color: #b1b100;">End Sub</span><noinclude>[[Category:Template]]</noinclude>
  <span style="color: #b1b100;">End Sub</span><noinclude>[[Category:Template]]</noinclude>

Revision as of 07:53, 10 April 2008

Sub

  For iCounter = 0 to objSongList.count - 1                                'SongLists
      Set objSongData = objSongList.Item(iCounter)
      -- = objSongData.-
      SDB.MessageBox "Value = '" &  -- & "'", mtError, Array(mbOK)    'SDB.MessageBox
  Next
' objSongData.- = -New- 'Commented Out For Safety
' objSonglist.UpdateAll              'Commented Out For Safety            'UpdateAll
                         Updates db and writes tags (if checked in options)
End Sub