کلاس خصوصی

'here's the actual drag'n'drop work
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
 Dim i As Integer
 Dim NewIndex As Integer

 ' check to see source of drop event.
 Select Case Effect
 Case vbDropFilesFromExplorer
 'data.files is a collection of strings that are absolute paths to any files
 'dragged and dropped to the form.
 For i = 1 To Data.Files.Count
 NewIndex = Picture1.Count + 1
 
 'check to see if we've got an image file
 If ImageFileCheck(Data.Files(i)) Then
 Load Picture1(NewIndex)
 Picture1(NewIndex).Picture = LoadPicture(Data.Files(i))
 Picture1(NewIndex).Visible = True
 End If
 Next i
 
 Case vbDropEffectCopy
 If Data.GetFormat(vbCFBitmap) Then
 NewIndex = Picture1.Count + 1
 Load Picture1(NewIndex)
 Picture1(NewIndex).Picture = Data.GetData(vbCFBitmap)
 Picture1(NewIndex).Visible = True
 Picture1(NewIndex).ZOrder
 End If
 
 End Select
End Sub

<?xml version="1.0" encoding="utf-8"?>

<install version="1.5" type="plugin" group="content">
 
 <name>Content - Content Tabs (&amp; Sliders)</name>
 <version>2.0</version>
 <modified>01 March 2011</modified>
 <creationDate>01 March 2011</creationDate>
 <author>ToolJoom.com - Tools for Joomla!</author>
 <authorEmail>contact@tooljoom.com</authorEmail>
 <authorUrl>http://www.tooljoom.com/</authorUrl>
 <copyright>(C) 2011 ToolJoom.com - Tools for Joomla!</copyright>
 <license>GNU/GPLv3 http://www.gnu.org/licenses/gpl-3.0.html</license>
 <description>PLG_CONTENTTABS_XML_DESCRIPTION</description>
 
 <files>
 <filename plugin="contenttabs">contenttabs.php</filename>
 <folder>contenttabs</folder>
 </files>
 
 <languages>
 <language tag="en-GB">language/en-GB/en-GB.plg_content_contenttabs.ini</language>
 <language tag="el-GR">language/el-GR/el-GR.plg_content_contenttabs.ini</language>
 </languages>
 
 <params addpath="/plugins/content/contenttabs/elements">
 <param
 type="version"
 name="cversion"
 label="PLG_CONTENTTABS_FIELD_CVERSION_LABEL"
 description="PLG_CONTENTTABS_FIELD_CVERSION_DESC"
 default="current" />
 </params>
 
</install>

 
 

private function replacer( &$matches ) {
 jimport('domit.xml_saxy_shared');

 //adjust document header to include SyntaxHighlighter styles and core
 $this->includeCSSOnce();
 $html_entities_match = array( "'n'", "'<s*spans*[sS]*?/*s*>'i", "'<pres*[sS]*?/*s*>'i","'<s*/s*pres*>'i", "'<divs*[sS]*?/*s*>'i","'<s*/s*divs*>'i","'<s*/s*spans*>'i", "'<s*/s*ps*>'i", "'<ps*[sS]*?/*s*>'i","'<brs*/*s*>'i", "'<'i", "'>'i", "'&#39;'", "'&quot;'i", "'&nbsp;'i" );
 $html_entities_replace = array("",      "",                              "",                           "",                     "",                           "",                     "",                       "",                  "n",                      "n",               '&lt;',  '&gt;', "'",        '"',        ' ' );

 $matches[2]=preg_replace($html_entities_match, $html_entities_replace, $matches[2] );
 $matches[3]=preg_replace($html_entities_match, $html_entities_replace, $matches[3] );
 $text = $matches[3];
 
 $args = SAXY_Parser_Base::parseAttributes( $matches[2] );
 
 $shclass = JArrayHelper::getValue( $args, 'class', '' );
 $width = JArrayHelper::getValue( $args, 'width', 'inherit' );
 
 //determine language to show
 $langAlias="";
 $regexLangAlias="#brushs*:s*(S[^;]*[^;s])#s";

 if (preg_match($regexLangAlias,$shclass,$langAliasMatches)>0) 
 {
 $langAlias=$langAliasMatches[1];
 }
 else
 {
 $langAlias=$this->params->def( 'defaultlang', 'text');
 $shclass='brush:'.$langAlias.';'.$shclass;
 }
 //determine if we need to include xml markup parser for html scripts
 $htmlScriptMode=False;
 $regexHtmlScriptMode="#html-scripts*:s*(S[^;]*[^;s])#s";
 if (preg_match($regexHtmlScriptMode,$shclass,$htmlScriptModeMatches)>0) 
 {
 $htmlScriptMode=strtoupper($htmlScriptModeMatches[1]);
 }
 else
 {
 $htmlScriptMode="FALSE";
 }    
 
 //include Java script that is necessary to show the code (if we have not already did it for this language)
 $codes=$this->includeScript($langAlias,$htmlScriptMode);
 
 $prolog='<div style="overflow: hidden; float:left;display: block; height: auto; width: '.$width.';"><pre>';
 $epilog='</pre></div>';

 $text = $codes.$prolog.$text.$epilog;

 return $text;
 }