PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 21509 | 04/09/03 10:06:22 | RE(6):PB6.5: ファイルのアイコンをDWにドラッグドロップしてパスを取得する方法（回答続き） By VONGOLE |
| 21508 | 04/09/03 10:06:22 | RE(5):PB6.5: ファイルのアイコンをDWにドラッグドロップしてパスを取得する方法（回答続き） By VONGOLE |
| 21507 | 04/09/03 10:06:18 | RE(4):PB6.5: ファイルのアイコンをDWにドラッグドロップしてパスを取得する方法（回答続き） By VONGOLE |
| 21506 | 04/09/02 12:59:02 | RE(3):PB6.5: ファイルのアイコンをDWにドラッグドロップしてパスを取得する方法（回答続き） By ハム |
| 21505 | 04/09/02 12:58:13 | RE(2):PB6.5: ファイルのアイコンをDWにドラッグドロップしてパスを取得する方法（回答続き） By ハム |
| 21504 | 04/09/02 12:59:39 | RE(1):PB6.5: ファイルのアイコンをDWにドラッグドロップしてパスを取得する方法（回答） By ハム |
| 21503 | 04/09/01 15:31:11 | PB6.5: ファイルのアイコンをDWにドラッグドロップしてパスを取得する方法 By VONGOLE |
カテゴリ：スクリプトの記述
日付：2004年09月02日 12:59 発信者：ハム
題名：RE(1):PB6.5: ファイルのアイコンをDWにドラッグドロップしてパスを取得する方法（回答）
VONGOLEさん、こんにちは。
エクスプローラーからリストビュー コントロールにドラッグした時のサンプルがありますので
下記に記述します。
１、[外部関数宣言]とWindows APIで使用する[構造体]の宣言を行います
[外部関数宣言]
Function ulong DragQueryFileA( ulong hDrop, ulong iFile, ref string LPTSTR, ulong cb )
library \'shell32.dll\'
subroutine DragAcceptFiles(ulong h, boolean b ) library \'shell32.dll\'
Function boolean FindClose (ulong handle) library \"KERNEL32.DLL\"
Function long FindFirstFileA (ref string filename, ref s_win32_find_data findfiledata)
library \"KERNEL32.DLL\"
[構造体]
global type s_filetime from structure
unsignedlong ul_lowdatetime
unsignedlong ul_highdatetime
end type
global type s_WIN32_FIND_DATA from structure
unsignedlong ul_fileattributes
s_filetime str_creationtime
s_filetime str_lastaccesstime
s_filetime str_lastwritetime
unsignedlong ul_filesizehigh
unsignedlong ul_filesizelow
unsignedlong ul_reserved0
unsignedlong ul_reserved1
character ch_filename[260]
character ch_alternatefilename[14]
end type
２、ウィンドウをほかの開かれているウィンドウの一番上に表示するかどうかを指定します。
[OPEN イベントのスクリプト]
//ウィンドウをほかの開かれているウィンドウの一番上に表示します
This.SetPosition(TopMost!)
続く
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows 2000
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.