投稿日 | : 2006/09/01(Fri) 18:54 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: スクリーンのスナップショット |
OsVer = CreateObject("SysInfo.SYSINFO").OSVersion
の部分でエラーが発生している物と思われます。
上記の場合配布等する場合配布先にMicrosoft SysInfo Control 6.0 (SysInfo.ocx)
コントロールが入っている必要があります。
通常のランタイムには含まれていない為に、配布される場合は、事前にFormに
Microsoft SysInfo Control コントロールを貼り付けて使用するようにして一緒に
配布して下さい。
SysInfo コントロールを Form に貼り付けた場合は下記にコードを変更して下さい。
OsVer = SysInfo1.OSVersion
又は、SysInfo.ocx を含んだランタイムを配布して下さい。
又は、WinXP・Windows2000 でしか使用しないなら
OsVer = 5.1
WindowsXP 以前(Windows98 等)しか使用しないなら
OsVer = 4
に変更すれば、ocx 等は必要ありません。