package {
import flash.events.MouseEvent;
import flash.display.Sprite;
import flash.display.MovieClip;
import flash.text.TextField;
import com.GetDefinitionByName_example;
public class DocMainCls extends MovieClip{
private var objGetDefinitionByName_example:GetDefinitionByName_example = new GetDefinitionByName_example();
private var objsAddedOnStage:Array = new Array();
private var objCounter:uint = 0;
public function DocMainCls(){
init();
}
private function init(){
attachToStageBtn.addEventListener(MouseEvent.MOUSE_DOWN, attachBtnPressFunction);
}
private function attachBtnPressFunction(e:MouseEvent):void{
if(objToAddDropDown.selectedItem.data < 0)
{
msgBox.text = "Select Object To Add..."
}
else
{
objGetDefinitionByName_example.objToAddName = objToAddDropDown.selectedItem.data;
objsAddedOnStage.push(objGetDefinitionByName_example.getClipToAddOnStage());
myStage.addChild(objsAddedOnStage[objCounter]);
objsAddedOnStage[objCounter].objId = "StageObj"+objCounter;
objsAddedOnStage[objCounter].addEventListener(MouseEvent.MOUSE_DOWN, stageObjectDragFunction);
objsAddedOnStage[objCounter].addEventListener(MouseEvent.MOUSE_UP, stageObjectDropFunction);
msgBox.text = "Object on stage "+objGetDefinitionByName_example.objToAddName
objCounter++;
}
}
private function stageObjectDragFunction(e:MouseEvent):void{
e.target.startDrag();
}
private function stageObjectDropFunction(e:MouseEvent):void{
e.target.stopDrag();
}
}
}
The important method in above class is "attachBtnPressFunction". It is an event method. In this methodobjGetDefinitionByName_example.objToAddName = objToAddDropDown.selectedItem.data; objsAddedOnStage.push(objGetDefinitionByName_example.getClipToAddOnStage()); myStage.addChild(objsAddedOnStage[objCounter]);
The first line in above is setting a value for the object to be added. It is assiging class name from the combobox dropdown to the GetDefinitionByName_example class below.
GetDefinitionByName_example Class - GetDefinitionByName_example.as - Download Here
package com{
import flash.display.MovieClip;
import flash.utils.getDefinitionByName;
public class GetDefinitionByName_example{
private var _objToAddStage:String;
private var _objType:Class;
private var _objTypeInstance:MovieClip;
public function GetDefinitionByName_example(){
trace("Class -> GetDefinitionByName_example::::: constructor initiated...")
}
public function set objToAddName(_setVal:String):void
{
_objToAddStage = _setVal;
trace("Class -> GetDefinitionByName_example:::Method -> objToAddName::::"+ _objToAddStage)
}
public function getClipToAddOnStage():MovieClip
{
_objType = getDefinitionByName(_objToAddStage) as Class;
_objTypeInstance = new _objType as MovieClip
return _objTypeInstance;
}
public function get objToAddName():String
{
return _objToAddStage;
}
}
}
package {
import flash.display.Sprite;
import flash.display.MovieClip;
import flash.events.MouseEvent;
import flash.external.ExternalInterface;
import flash.text.TextField;
import flash.net.navigateToURL;
import flash.net.URLRequest;
import flash.net.URLLoader;
import flash.display.Loader;
public class main extends Sprite
{
private var _directoryPath:String;
private var _directoryList:XML;
private var _sampleXML:XML;
private var _parserData:directoryParser;
private var _linkObjects:Array = new Array();
public function main()
{
_directoryPath = "C:\\Documents and Settings\\nitins\\Desktop\\Reading_Directory_Content\\data"
selectFolder.addEventListener(MouseEvent.MOUSE_DOWN, selectDirectoryInvoked);
ExternalInterface.addCallback("sendToActionScript",callFromVB);
}
private function callFromVB(_myParam)
{
_directoryList = XML(_myParam);
_parserData = new directoryParser(_directoryList);
generateTree(_parserData.returnXML());
}
public function selectDirectoryInvoked(event:MouseEvent)
{
ExternalInterface.call("selectFolder",_directoryPath);
}
public function generateTree(givenList:XML)
{
var loopLen:Number = givenList.filename.length();
var strtY:Number = 50;
for(var i=0;i<loopLen;i++)
{
var tempHold = givenList.filename[i].split(".")
var req:String = tempHold(tempHold.length-1)+".jpg"
var iconLoader:Loader = new Loader();
iconLoader.load(new URLRequest(req));
_linkObjects[i] = new ListBox();
_linkObjects[i].txt.text = givenList.filename[i];
_linkObjects[i].openFileName = givenList.filename[i];
_linkObjects[i].addEventListener(MouseEvent.MOUSE_DOWN, clikedLink);
_linkObjects[i].y = strtY
addChild(_linkObjects[i]);
strtY += _linkObjects[i].height+10;
}
}
public function clikedLink(e:MouseEvent):void
{
var _passPath:String = _directoryPath+"\\"+e.currentTarget.openFileName
ExternalInterface.call("openFile",_passPath);
}
}
}
<invoke name="functionName" returntype="xml">
<arguments>
... (individual argument values)
</arguments>
</invoke>Communication between ActionScript and an application hosting the Shockwave Flash ActiveX control uses a specific XML format to encode function calls and values. There are two parts to the XML format used by the external API. One format is used to represent function calls. Another format is used to represent individual values; this format is used for parameters in functions as well as function return values. The XML format for function calls is used for calls to and from ActionScript. For a function call from ActionScript, Flash Player passes the XML to the container; for a call from the container, Flash Player expects the container application to pass it an XML string in this format. - (From Adobe Docs)This is the reason i have casted the parameter from VB to XML. One more thing to notice in the above method is _parserData = new directoryParser(_directoryList);Here i also have created one class which parses the VB returned XML to flash. Lets take a lookat this class.directoryParser.aspackage {import flash.display.Sprite;
public class directoryParser
{
private var _returnData:XML;
private var _maxLen:Number;
private var _typeArray:Array;
public function directoryParser(dataToParse:XML)
{
_maxLen = dataToParse.filename.length();
_typeArray = new Array();
var temp:Array;
for(var i=0;i<_maxLen;i++)
{
temp = dataToParse.filename[i].split(".")
dataToParse.filename[i].@type = temp[1];
_typeArray.pushUnique(temp[1]);
}
_typeArray.sort();
generateSortedXML(dataToParse);
}
private function generateSortedXML(inputXML:XML)
{
var myTempXML:XML = <rootNode></rootNode>;
for(var i=0;i<_typeArray.length;i++)
{
for(var k=0;k<inputXML.filename.length();k++)
{
if(inputXML.filename[k].@type == _typeArray[i])
{
myTempXML.appendChild(inputXML.filename[k].toXMLString());
}
}
}
_returnData = myTempXML
}
public function returnXML():XML
{
return _returnData;
}
Array.prototype.pushUnique = function( a )
{
var l:Number = this.length;
var exists:Boolean = false;
for( var i=0; i<l; i++ ) if( this[i] == a ) exists = true;
if( !exists ) this.push( a );
};
}
}
In the above image the two red boxes are important, mySWF is the name of the shockwave object. AllowScriptAccess you need to make it "always" if you want your application to work.
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim directoryPath As String
Private Sub mySWF_FlashCall(ByVal request As String)
Dim objXML As MSXML2.DOMDocument
Dim strXML As String
Set objXML = New MSXML2.DOMDocument
strXML = request
If Not objXML.loadXML(strXML) Then
Err.Raise objXML.parseError.errorCode, , objXML.parseError.reason
End If
Dim objElem As MSXML2.IXMLDOMElement
Set objElem = objXML.selectSingleNode("//invoke")
If objElem.getAttribute("name") = "selectFolder" Then
Dim xmlElem As IXMLDOMElement
Set xmlElem = objXML.selectSingleNode("invoke/arguments/string")
directoryPath = xmlElem.Text
Dim fso As FileSystemObject
Dim fso_folder As Folder
Dim txt As String
Dim fso_file As File
Dim i As Long
Dim file_names() As String
' Make a new File System object.
Set fso = New FileSystemObject
' Get the FSO Folder (directory) object.
MsgBox directoryPath + "\"
Set fso_folder = fso.GetFolder(directoryPath + "\")
' Make the list of names.
ReDim file_names(1 To fso_folder.Files.Count)
i = 1
For Each fso_file In fso_folder.Files
file_names(i) = fso_file.Name
i = i + 1
Next fso_file
'MsgBox file_names(1)
Dim postString As String
postString = "<rootNode>"
For k = 1 To UBound(file_names)
postString = postString + "<filename>" + file_names(k) + "</filename>"
Next k
postString = postString + "</rootNode>"
mySWF.CallFunction ("<invoke name='sendToActionScript' returntype='xml'><arguments><string>" + postString + "</string></arguments></invoke>")
End If
If objElem.getAttribute("name") = "openFile" Then
Dim xmlElem1 As IXMLDOMElement
Set xmlElem1 = objXML.selectSingleNode("invoke/arguments/string")
MsgBox xmlElem1.Text
temp1 = Split(xmlElem1.Text, "\")
For i = 1 To UBound(temp1) - 1
finalPath = finalPath + temp1(i) + "\"
Next i
Dim ret As Long
Dim lErr As Long
ret = ShellExecute(Me.hwnd, vbNullString, xmlElem1.Text, vbNullString, finalPath, 1)
If (ret < 0) Or (ret > 32) Then
'ShellEx = True
Else
Select Case ret
Case 0
lErr = 7: sErr = "Out of memory"
Case ERROR_FILE_NOT_FOUND
lErr = 53: sErr = "File not found"
Case ERROR_PATH_NOT_FOUND
lErr = 76: sErr = "Path not found"
Case ERROR_BAD_FORMAT
sErr = "The executable file is invalid or corrupt"
Case SE_ERR_ACCESSDENIED
lErr = 75: sErr = "Path/file access error"
Case SE_ERR_ASSOCINCOMPLETE
sErr = "This file type does not have a valid file association."
Case SE_ERR_DDEBUSY
lErr = 285: sErr = "The file could not be opened because the target application is busy. Please try again in a moment."
Case SE_ERR_DDEFAIL
lErr = 285: sErr = "The file could not be opened because the DDE transaction failed. Please try again in a moment."
Case SE_ERR_DDETIMEOUT
lErr = 286: sErr = "The file could not be opened due to time out. Please try again in a moment."
Case SE_ERR_DLLNOTFOUND
lErr = 48: sErr = "The specified dynamic-link library was not found."
Case SE_ERR_FNF
lErr = 53: sErr = "File not found"
Case SE_ERR_NOASSOC
sErr = "No application is associated with this file type."
Case SE_ERR_OOM
lErr = 7: sErr = "Out of memory"
Case SE_ERR_PNF
lErr = 76: sErr = "Path not found"
Case SE_ERR_SHARE
lErr = 75: sErr = "A sharing violation occurred."
Case Else
sErr = "File could not be opened due to invalid application"
End Select
'Err.Raise lErr, , App.EXEName & "", sErr
MsgBox sErr
End If
End If
End Sub
postString = "<rootNode>"
For k = 1 To UBound(file_names)
postString = postString + "<filename>" + file_names(k) + "</filename>"
Next k
postString = postString + "</rootNode>" mySWF.CallFunction ("<invoke name='sendToActionScript' returntype='xml'><arguments><string>" + postString + "</string></arguments></invoke>") 
Doing coding is as simple as putting up some text line in notepad. The only disadvantage or advantage whatever u consider is that you don't get code hints. Lets go with a simple example. All I am trying to do is to create a simple circle and move it through Left and Right arrow.
This blog explains usage of FormBuilder , Validators , FormGroup classes in Angular 2 projects. In this post we will create HTML form a...
