PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 16373 | 01/10/02 09:30:38 | RE(6):PB6.5: PBのExEから、別のアプリケーションのエディタへの貼り付けって出来ます？(その２) By Lucky |
| 16365 | 01/10/01 00:23:30 | RE(5):PB6.5: PBのExEから、別のアプリケーションのエディタへの貼り付けって出来ます？(その２) By めめ |
| 16364 | 01/10/01 00:21:14 | RE(4):PB6.5: PBのExEから、別のアプリケーションのエディタへの貼り付けって出来ます？(その１) By めめ |
| 16360 | 01/09/28 19:10:35 | RE(3):PB6.5: PBのExEから、別のアプリケーションのエディタへの貼り付けって出来ます？ By M.M |
| 16351 | 01/09/28 13:30:35 | RE(2):PB6.5: PBのExEから、別のアプリケーションのエディタへの貼り付けって出来ます？ By Lucky |
| 16348 | 01/09/28 09:04:37 | RE(1):PB6.5: PBのExEから、別のアプリケーションのエディタへの貼り付けって出来ます？ By こてちゅ |
| 16338 | 01/09/27 12:00:15 | PB6.5: PBのExEから、別のアプリケーションのエディタへの貼り付けって出来ます？ By Lucky |
カテゴリ：PowerBuilderの開発環境
日付：2001年10月01日 00:23 発信者：めめ
題名：RE(5):PB6.5: PBのExEから、別のアプリケーションのエディタへの貼り付けって出来ます？(その２)
続きです。
【外部関数の宣言】
FUNCTION long FindWindow(String ap_name, long ap_title) LIBRARY \"user32.dll\" alias for \"FindWindowA\"
FUNCTION long SendMessage(Long hndl, Int msg, Int wp, long lp) LIBRARY \"user32.dll\" alias
for \"SendMessageA\"
function long FindWindowEx(long hwndParent, &
long hwndChildAfter, &
string lpszClass, &
long lpszWindow ) library \"user32.dll\" alias for \"FindWindowExA\"
function long FindWindowEx(long hwndParent, &
long hwndChildAfter, &
long lpszClass, &
string lpszWindow ) library \"user32.dll\" alias for \"FindWindowExA\"
【スクリプト】
Long ll_parent, ll_child, ll_edit, ll_ret
Constant Long WM_MDIGETACTIVE = 553 //0x0229
Constant Long WM_PASTE = 770 //0x0302
ll_parent = FindWindow(\"PBFRAME60\", 0)
If ll_parent > 0 then ll_child = FindWindowEx(ll_parent, 0, \"MDIClient\", 0)
If ll_child > 0 then ll_child = Sendmessage(ll_child, WM_MDIGETACTIVE, 0, 0)
If ll_child > 0 then ll_child = FindWindowEx(ll_child, 0, 0, \"\")
If ll_child > 0 then ll_child = FindWindowEx(ll_child, 0, \"PSEDIT60\", 0)
If ll_child > 0 then ll_edit = FindWindowEx(ll_child, 0, \"wedit\", 0)
If ll_edit > 0 then
Clipboard(\"文字の追加\")
ll_ret = Sendmessage(ll_edit, WM_PASTE, 0, 0)
Messagebox(\"処理終了\", \"貼り付けを行いました\")
Else
Messagebox(\"処理終了\", \"貼り付けできませんでした\")
End If
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows98
DBMS Oracle SQL*Net 8
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle 8.0
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.