Ho creato questo script per darti accesso a più stati d'animo con un solo clic.
Funziona solo per il brano attualmente in RIPRODUZIONE.
Devi salvarlo nella sezione Auto scripts come file .vbs e ricaricare media monkey. Verrà creato un pannello agganciabile. Se chiudi il pannello puoi riaprirlo andando al menu View, vai in fondo e si chiama "Mood Setting Panel"

Quando clicchi su una delle caselle di controllo dell'umore, questa viene aggiunta all'umore della canzone, se non è già presente. Aggiunge anche i punti e virgola per più stati d'animo.

Modificando il codice sottostante nei punti che ho contrassegnato, puoi cambiare la posizione e il numero delle caselle di controllo, nonché i generi che vuoi che impostino.

Dovrebbe essere abbastanza semplice modificare il codice per creare un altro pannello che consenta di fare la stessa cosa con Occasioni o qualsiasi altro campo di testo.

Conosco a malapena la programmazione VBScript o MediaMonkey, quindi non sarò in grado di soddisfare richieste in merito. Qualcuno con più tempo e voglia potrà aiutarti!
Godere

Vorrei ringraziare il team di sviluppo di Mediamonkey per aver creato un prodotto così fantastico che ti consente di fare così tanto da solo, e poi espanderlo tramite codice. Batte facilmente iTunes.


[codice]



Dim Mnu, Pnl, Lbl, Lbl2

Sottoscrivi OnStartup
Imposta UI = SDB.UI

Imposta Pnl = UI.NewDockablePersistentPanel("TestingPanel")
se Pnl.IsNew allora
Pnl.DockedTo = 2
Larghezza comune = 250
finire se
Pnl.Caption = "Pannello di impostazione dell'umore"
Script.RegisterEvent Pnl, "OnClose", "PnlClose"

Imposta Lbl = UI.NewLabel(Pnl)
Lbl.Autosize = falso
Lbl.Multiline = vero
Lbl.Common.SetRect 10, 10, Pnl.Common.Larghezza-20, Pnl.Common.Altezza-20
Lbl.Common.Ancore = 15 '1+2+4+8

'non cambiare nulla sopra questa riga


' USA QUESTA PARTE PER MODIFICARE LE CASELLE DI CONTROLLO GENERE e posizione
'Cambia le didascalie delle caselle di controllo nei generi che desideri
'Usa "SetRect" per cambiare la posizione di ogni casella di controllo
'Copia e incolla 6 righe di codice della casella di controllo per aggiungere una nuova casella di controllo
Tutti i clic sulle caselle di controllo vengono gestiti dal gestore eventi 1 in basso
'che guarda la didascalia del controllo che lo chiama



Imposta ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 0, 100, 20
'sinistra, in alto, larghezza, altezza
ChB.Caption = "Epico"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Imposta ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 0, 100, 20
ChB.Caption = "Determinato"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Imposta Chb = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 20, 100, 20
ChB.Caption = "Triste"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Imposta ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 20, 100, 20
ChB.Caption = "Felice"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Imposta Chb = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 40, 100, 20
ChB.Caption = "Etereo"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Imposta ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 40, 100, 20
ChB.Caption = "Pacifico"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Imposta Chb = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 60, 100, 20
ChB.Caption = "Pippo"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Imposta ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 60, 100, 20
ChB.Caption = "Spaventoso"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Imposta Chb = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 80, 100, 20
ChB.Caption = "Arrabbiato"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Imposta ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 80, 100, 20
ChB.Caption = "Romantico"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"

Imposta Chb = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 100, 100, 20
ChB.Caption = "Avventuroso"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Imposta ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 100, 100, 20
ChB.Caption = "Popolare"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Imposta Chb = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 120, 100, 20
ChB.Caption = "Fantastico"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


Imposta ChB = UI.NewCheckBox( Pnl)
ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 123, 120, 100, 20
ChB.Caption = "Divertimento"
Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"







''non cambiare nulla sotto questa linea


'Aggiungi una voce di menu che mostra il pannello dopo la sua chiusura
Imposta Sep = SDB.UI.AddMenuItemSep(SDB.UI.Menu_View,0,0)
Imposta Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_View,0,0)
Mnu.Caption = "Pannello di impostazione dell'umore"
Mnu.Controllato = Pnl.Common.Visibile
Script.RegisterEvent Menu, "OnClick", "ShowPanel"

SDB Script.RegisterEvent, "OnChangedSelection", "OnSelection"
Fine Sottotitolo

Sotto MostraPanel(Elemento)
Pnl.Common.Visible = non Pnl.Common.Visible
Mnu.Controllato = Pnl.Common.Visibile
Fine Sottotitolo

Sub PnlClose( Elemento)
Mnu.Checked = falso
Fine Sottotitolo

Sottotitolato in Selezione

Fine Sottotitolo


Sotto ChBClick( ChB)



Dim objSongList , objSongData
Imposta objSongList = SDB.NewSongList

Imposta objSongData = SDB.Player.CurrentSong
Aggiungi(objSongData)

Stringa umore attenuata, Stringa nuovo umore, Stringa aggiungi umore
StringMood = objSongData.Mood

StringAddMood = ";" & ChB.Caption


Se InStr(StringMood,ChB.Caption) = 0 allora
'Old Mood non contiene quello che hai controllato.
StringNewMood = StringMood & StringAddMood

objSongData.Mood = StringNewMood
objSonglist.Aggiorna tutto

Fine se ' Se il vecchio stato d'animo contiene il nuovo stato d'animo, non viene intrapresa alcuna azione.
ChB.Checked = falso

Fine Sottotitolo





[/codice]

I made this script to give you one-click access to multiple moods.
It only works for the currently PLAYING song.
You need to save it in the Auto scripts section as a .vbs file, and reload media monkey.  It will create a dockable panel.  If you close the panel you can reopen it by going to the View menu, go to the bottom, and it's "Mood Setting Panel"

When you click one of the mood checkboxes, it adds that to the mood for the song if it's not already on there.  It also adds the semicolons for multiple moods.

By editing the below code in the places I marked out, you can change the position and number of the checkboxes as well as the genres you want them to set.

It should be easy enough to modify the code to make another panel that lets you do the same thing with Occasions or any other text field. 

I hardly know VBScript or Mediamonkey programming so any requests on this I will not be able to do, someone with more time and inclination can pick that up for you!
Enjoy

I would like to thank Mediamonkey's dev team for making such an awesome product that allows you to do so much on its own, and then expand it using code.  Beats Itunes easy.


[code]

 
 
Dim Mnu, Pnl, Lbl, Lbl2
 
Sub OnStartup
  Set UI = SDB.UI
 
  Set Pnl = UI.NewDockablePersistentPanel("TestingPanel")
  if Pnl.IsNew then
    Pnl.DockedTo = 2
    Pnl.Common.Width = 250
  end if
  Pnl.Caption = "Mood Setting Panel"
  Script.RegisterEvent Pnl, "OnClose", "PnlClose"
 
  Set Lbl = UI.NewLabel(Pnl)
  Lbl.Autosize = false
  Lbl.Multiline = true
  Lbl.Common.SetRect 10, 10, Pnl.Common.Width-20, Pnl.Common.Height-20
  Lbl.Common.Anchors = 15  '1+2+4+8

'don't change anything above this line


' USE THIS PART TO EDIT CHECK BOXES GENRE and position
'Change Checkbox Captions to Genres you want
'Use "SetRect" to change position of each checkbox
'Copy paste 6 lines of checkbox code to add a new checkbox
'All clicks to checkboxes are handled by the 1 event handler at the bottom
'which looks at the caption of the control that calls it



 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
ChB.Common.SetRect 3, 0, 100, 20
'left, top, width, height
  ChB.Caption = "Epic"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 0, 100, 20
  ChB.Caption = "Determined"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 20, 100, 20
  ChB.Caption = "Sad"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 20, 100, 20
  ChB.Caption = "Happy"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 40, 100, 20
  ChB.Caption = "Ethereal"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 40, 100, 20
  ChB.Caption = "Peaceful"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 60, 100, 20
  ChB.Caption = "Goofy"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 60, 100, 20
  ChB.Caption = "Scary"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 80, 100, 20
  ChB.Caption = "Angry"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 80, 100, 20
  ChB.Caption = "Romantic"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"

 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 100, 100, 20
  ChB.Caption = "Adventurous"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 100, 100, 20
  ChB.Caption = "Popular"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set Chb = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 3, 120, 100, 20
  ChB.Caption = "Cool"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"


 Set ChB = UI.NewCheckBox( Pnl)
  ChB.Common.ControlName = "ChB"
 ChB.Common.SetRect 123, 120, 100, 20
  ChB.Caption = "Fun"
  Script.RegisterEvent ChB.Common, "OnClick", "ChBClick"







''don't change anything below this line

 
  ' Add menu item that shows panel after it is closed
  Set Sep = SDB.UI.AddMenuItemSep(SDB.UI.Menu_View,0,0)
  Set Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_View,0,0)
  Mnu.Caption = "Mood Setting Panel"
  Mnu.Checked = Pnl.Common.Visible
  Script.RegisterEvent Mnu, "OnClick", "ShowPanel"
 
  Script.RegisterEvent SDB, "OnChangedSelection", "OnSelection"
End Sub
 
Sub ShowPanel(Item)
  Pnl.Common.Visible = not Pnl.Common.Visible
  Mnu.Checked = Pnl.Common.Visible
End Sub
 
Sub PnlClose( Item)
  Mnu.Checked = false
End Sub
 
Sub OnSelection
 
End Sub


Sub ChBClick( ChB)



Dim objSongList   , objSongData
 Set objSongList = SDB.NewSongList  

 Set objSongData = SDB.Player.CurrentSong
 objSongList.Add(objSongData)   

Dim StringMood, StringNewMood, StringAddMood
 StringMood = objSongData.Mood

StringAddMood =  ";" & ChB.Caption


If InStr(StringMood,ChB.Caption) = 0 Then
'Old Mood does not contain the one you checked.
StringNewMood = StringMood & StringAddMood

objSongData.Mood = StringNewMood
objSonglist.UpdateAll          

End If '   If Old Mood contains New Mood, no action is taken.
ChB.Checked = false
                       
End Sub





[/code]

Hide original

By mutronbiphase
Inviato da mutronbiphase
Aggiornato 31/05/2012