Q私のコマンド言語ライブラリ「ユニバーサル」ウィンドウのコマンド機能機能出典

「---------------------操作コマンドウィンドウ------------------------- ------------

機能window_move（ウィンドウハンドル、x、y）は非表示ウィンドウで役割を果たし、画面ウィンドウ2500,0窓の外に移動//

Call Plugin.Window.move(窗口句柄, 2500, 0)

関数の終了
「----------------------------------------------- ----
関数window_shin（ウィンドウハンドル、x、y）は

Call Plugin.Window.move(窗口句柄, x, y) //移动窗口至x,y　　与上条配合使用恢复窗口

関数の終了
「----------------------------------------------- ----
機能window_hide（ウィンドウハンドル）

Call Plugin.Window.Hide(窗口句柄)　　//隐藏窗口

関数の終了
「----------------------------------------------- ----
機能window_show（ウィンドウハンドル）

Call Plugin.Window.Show(窗口句柄)　//显示窗口

関数の終了
「----------------------------------------------- ----
機能getwindow_X（ウィンドウハンドル）//ウィンドウの幅撮影

Dim srect ,srect0
getwindow_X=0
sRect = Plugin.Window.GetClientRect(窗口句柄)
sRect0 = split(sRect, "|")
getwindow_X = Clng(sRect0(2)) - Clng(sRect0(0))//窗口宽

関数の終了
「----------------------------------------------- ----
機能getwindow_Y（ウィンドウハンドル）//高窓を取ります

Dim srect ,srect0
getwindow_Y=0
sRect = Plugin.Window.GetClientRect(窗口句柄)
sRect0 = split(sRect, "|")
getwindow_Y = Clng(sRect0(3)) - Clng(sRect0(1))//窗口高

関数の終了
「----------------------------------------------- ----
機能getclient_X（ウィンドウハンドル）// Xウィンドウ座標は、ユーザ領域を取ります

Dim srect ,srect0
getclient_X=0
sRect = Plugin.Window.GetClientRect(窗口句柄)
sRect0 = split(sRect, "|")
getclient_X = Clng(sRect0(0))//左上角Ｘ

関数の終了
「----------------------------------------------- ----
機能getclient_Y（ウィンドウハンドル）// Yウィンドウ座標は、ユーザ領域を取ります

Dim srect ,srect0
getclient_Y=0
sRect = Plugin.Window.GetClientRect(窗口句柄)
sRect0 = split(sRect, "|")
getclient_Y = Clng(sRect0(1))//左上角Ｙ

関数の終了
「----------------------------------------------- ----
機能WINDOW_SIZE（ウィンドウハンドル、Hwnd2は）//グローバル変数ウィンドウに格納されたデータをフェッチ　

Dim srect ,srect0
window_size=false
sRect = Plugin.Window.GetClientRect(窗口句柄)
sRect0=split(sRect,"|")
client_X = Clng(sRect0(0))//左上角Ｘ
client_Y = Clng(sRect0(1))//左上角Ｙ
client_X2 = Clng(sRect0(2))
client_Y2 = Clng(sRect0(3))        
window_x = Clng(sRect0(2)) - Clng(sRect0(0))//窗口宽
window_y = Clng(sRect0(3)) - Clng(sRect0(1))//窗口高
window_xH = window_x / 2
window_yH = window_y / 2
sRect1 = Plugin.Window.GetWindowRect(Hwnd2)
sRect2=split(sRect1,"|")
Hwnd_X = Clng(sRect2(0))
Hwnd_Y = Clng(sRect2(1))   
If client_X > 0 Then 
    日志运行内容 =  V_当前程序&"得到窗口数据：" & Hwnd & "[" & client_X & "," & client_Y & "](" & window_x & "," & window_y & ")(" & window_xH & "," & window_yH& ")"
    Call 输出日志(日志运行内容):TracePrint 日志运行内容
    日志运行内容 =  V_当前程序&"得到数据：" & Hwnd_0 & "[" & Hwnd_X & "," & Hwnd_Y & "]"
    Call 输出日志(日志运行内容):TracePrint 日志运行内容      
    window_size=true
Else 
    window_size=false
End If

エンド機能

/ *グローバル変数
client_X = CLNG（sRect0（0））// 上部左X-
client_Y = CLNG（sRect0（1））// Yの左上隅
client_X2 = CLNG（sRect0（2））
client_Y2 = CLNG（sRect0（3））
window_x = CLNG（sRect0（2）） - CLNG（sRect0（0））// ウィンドウ幅
window_y = CLNG（sRect0（3）） - CLNG（sRect0（1））// 高いウィンドウ
window_xH = window_x / 2
window_yH = window_y / 2
Hwnd_X = CLNG（sRect2（0））
Hwnd_Y = CLNG（sRect2（1））

Q私のコマンド言語ライブラリ「ユニバーサル」ウィンドウのコマンド機能機能出典

おすすめ