SQLの窓 Build C++ の呼び出し

基本処理

Dim hWnd	' SQLの窓のウインドウハンドル

' **********************************************
' SQLの窓とのインターフェイス
' **********************************************
' SQLの窓が実行されているかどうかをチェック
if Lbox.CheckMutex( "WinOfSql" ) then
	' SQLの窓のウインドウハンドルを取得("WINOFSQL" はクラス名)
	hWnd = Lbox.FindTopWindow( "WINOFSQL" ) 
else
	' SQLの窓のインストールディレクトリを取得
	strInstallDir = WshShell.RegRead("HKLM\SOFTWARE\WinOfSql\InstallDir")
	' SQLの窓を実行してウインドウハンドルを取得("WINOFSQL" はクラス名)
	hWnd = Lbox.Run(strInstallDir & "\WinOfSql.exe", "WINOFSQL" )
end if
if hWnd = 0 then
	Lbox.MsgOk( "SQLの窓のウインドウハンドルを取得できませんでした" )
	quit
end if

' **********************************************
' SQLの窓の操作
' **********************************************
' ウインドウオブジェクトのプロパティにセット
Window.hWnd = hWnd
' ウインドウを最小化や最大化から標準状態に戻します
Window.Restore
' ウインドウをデスクトップにあわせます
Window.ScreenFit
' ウインドウをアクティブにします
Lbox.ActiveWindow = hWnd
' 表示ビューを一番大きい状態にします
Call Lbox.PostCommand( hWnd, 32961 )

トップレベルウインドウの情報を列挙

Dim List

List = Lbox.TopWindow( )
Call Lbox.EnumList( hWnd, List )

ログ出力ウインドウとしてSQLの窓を使用

Dim i,Row

' タイトル出力
Row = "№" & vbTab & "時間" & vbTab & "メッセージ"
Call Lbox.EnumList( hWnd, Row )

' ログ出力テスト
For i = 1 to 50
	Row = i & vbTab & Time & vbTab & "メッセージ"
	Call Lbox.EnumListAdd( hWnd, Row )
Next