[flex] as3.0 实现基于air的简单浏览器

<?xml version="1.0" encoding="utf-8"?>
<s:WindowedApplication xmlns:fx="http://ns.adobe.com/mxml/2009" 
                       xmlns:s="library://ns.adobe.com/flex/spark" 
                       xmlns:mx="library://ns.adobe.com/flex/mx"
                       width="800" height="600" minWidth="200" 
                       creationComplete="onCreationComplete(event)" showStatusBar="false" keyUp="keyUp(event)" title="air web browser">
    
    <fx:Script>
        <![CDATA[
import mx.controls.Alert;
            import mx.events.FlexEvent;
            
            protected function onCreationComplete(event:FlexEvent):void
            {
                html.location = 'http://www.baidu.com';
                html.addEventListener(LocationChangeEvent.LOCATION_CHANGING,onLocationChanging);
                txtUrl.setFocus();
            }
            
            private function keyUp(e:KeyboardEvent):void {
                
                if(e.keyCode == 9){//tap
                    
                }else if(e.keyCode == 13){//Enter
                    
                }
            }
            
            private function stateChange(target:Object):void {
                var url:String = target.text;
                if (url.indexOf('http://') == -1 && url.indexOf('https://') == -1) {
                    url = 'http://' + url;
                }
                html.location = url;
            }
            private function onLocationChanging(e:LocationChangeEvent):void
            {
                txtUrl.text = e.location;
            }
        ]]>
    </fx:Script>
    
    <s:HGroup left="10" y="10" right="10" width="100%" >
        <s:TextInput id="txtUrl" x="10"  width="100%" keyUp="keyUp(event)">
        </s:TextInput>
        <s:Button id="btnGo" y="10"  width="65" label="Go" click="html.location = txtUrl.text" />
    </s:HGroup>
    <mx:HTML id="html" bottom="5" top="40" right="10" left="10" locationChange="txtUrl.text = html.location" />
    
</s:WindowedApplication>

 

posted on 2017-02-27 17:23  晏过留痕  阅读(1210)  评论(0编辑  收藏  举报