GINPRO / SQLの窓と銀プログラマ

' ************************************
' アイコンの取得
' ************************************
<DllImport("shell32.dll")> _
Public Shared Function _
ExtractIconEx( _
 ByVal lpszExeFileName As String, _
 ByVal nIconIndex As Integer, _
 ByVal phiconLarge As System.IntPtr(), _
 ByVal phiconSmall As System.IntPtr(), _
 ByVal nIcons As UInt32) As UInt32
End Function

' ************************************
' フォームの初期化
' ************************************
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load

	Me.Text = "IME(Input Method Editor) API のチェック"

	Dim hL As System.IntPtr() = New System.IntPtr(1) {}
	Dim hS As System.IntPtr() = New System.IntPtr(1) {}

	ExtractIconEx("SHELL32.dll", 22, hL, hS, 1)
	Me.品詞の取得.Image = (System.Drawing.Icon.FromHandle(hS(0))).ToBitmap()

	ExtractIconEx("SHELL32.dll", 68, hL, hS, 1)
	Me.登録.Image = (System.Drawing.Icon.FromHandle(hS(0))).ToBitmap()

End Sub

<?xml version="1.0" encoding="utf-8"?>
<mx:Application
	xmlns:mx="http://www.adobe.com/2006/mxml"
	initialize="initData();"
>

<mx:Script>
<![CDATA[

	import mx.controls.*;
	import mx.events.*; 
	import mx.rpc.events.*;
	import mx.formatters.*;
	import flash.external.*;

	// **********************************
	// アプリケーションの初期化
	// **********************************
	public function initData():void {

		firebug("処理開始")

	}

	// **********************************
	// ログ表示
	// **********************************
	public function firebug(data:Object):void {
	
		var fmt:DateFormatter = new DateFormatter();
	
		fmt.formatString = "YYYY/MM/DD HH:NN:SS";
		var logdt:String = fmt.format( new Date );
	
		ExternalInterface.call(
			"console.log", logdt,
			data+""
		);
	
	}

	// **********************************
	// HTTPServiceを使用してHTTPリクエスト（GET）を行う
	// **********************************
	private function sendData():void {
		// リクエストするURLをセット
		srv.url = "response.php";

		srv.request.fld1 = fld1.text;
		srv.request.fld2 = fld2.text;
		srv.request.fld3 = fld3.text;

		// レスポンス結果のデータフォーマット
		srv.resultFormat = "text";
		srv.method = "GET";
		srv.send();

	}
	

	// **********************************
	// HTTPServiceが成功
	// **********************************
	private function resultHandler(e:ResultEvent):void {

		Alert.show(e.result.toString());

	}

	// **********************************
	// HTTPServiceでエラーが発生した
	// **********************************
	private function faultHandler(e:FaultEvent):void {
		Alert.show(e.fault.message);
	}

]]>
</mx:Script>

<mx:HTTPService
	id="srv"
	showBusyCursor="true"
	result="resultHandler(event)"
	fault="faultHandler(event)"
/>

<mx:Form width="90%" height="90%">
	<mx:FormHeading label="http データ通信"/>
	
	<mx:FormItem
		label="フィールド1"
		labelStyleName="labelAlign"
		 paddingBottom="30"
	>
		<mx:TextInput id="fld1" />

	</mx:FormItem>
	<mx:FormItem
		label="フィールド2"
		labelStyleName="labelAlign"
		 paddingBottom="30"
	>
		<mx:TextInput id="fld2" />

	</mx:FormItem>
	<mx:FormItem
		label="フィールド3"
		labelStyleName="labelAlign"
		 paddingBottom="30"
	>
		<mx:TextInput id="fld3" />

	</mx:FormItem>

	<mx:FormItem
		label=""
		labelStyleName="labelAlign"
		 paddingBottom="30"
	>
		<mx:Button
			id="btn"
			label="送信"
			click="sendData()"
		/>
	</mx:FormItem>


</mx:Form>

</mx:Application>