ab.com コミュニティ

'透過設定 
　'Dim hModule As HINSTANCE 
'架空の関数を宣言（SetLayeredWindowAttributesの宣言を参考にして作成） 
　TypeDef SetLWA = *Function(hwnd As HWND,crKey As 　　　Long,bAlpha As BYTE ,dwFlags As DWORD ) As Integer 
　Dim DamSetLayeredWindowAttributes As SetLWA 
'DLLを動的にロード 
　hModule=LoadLibrary("user32.dll") 
　IF hModule<>0 Then    'hModule=0 のときDLLがないので終了 
'関数のアドレスを取得 
　DamSetLayeredWindowAttributes=GetProcAddress(hModule,"SetLayeredWindowAttributes") 

'ここから
　　If DamSetLayeredWindowAttributes=0 then
　　　FreeLibrary(hModule)
　　　exit sub
　　End If
'ここまでを追加

'透過設定　SPRITさんホームページより 
　SetWindowLong(hMainWnd, GWL_EXSTYLE, GetWindowLong(hMainWnd, GWL_EXSTYLE) or &H80000) 
　　if Toukasuru =1 then 
'ポインタを使って関数を実行します 
　　DamSetLayeredWindowAttributes(hMainWnd,0,Int(Toukaritu*255/100),LWA_ALPHA) 
　　SetLayeredWindowAttributes(hMainWnd,0,Int(Toukaritu*255/100),LWA_ALPHA) 
'第３引数　0（薄い）～255（濃い）を変えると、透過度が変わります。 
　　Else 
　　DamSetLayeredWindowAttributes(hMainWnd,0,255,LWA_ALPHA) 
　　End If 
　End If 
'DLLを開放 
　FreeLibrary(hModule) 

MainWnd_Createに書いた以前のコードに追加して自宅の98で確認しました。
時間がたって読みかえしたときずいぶんまごつきそうです。たくさんコメントかいていますが、もっとすっきりした書き方があるのでしょうね。
動いて何ぼということでいつも自分をなぐさめています。
今回も希望の機能が実現できました、ありがとうございました。

[hide][code]
'透過設定
　'Dim hModule As HINSTANCE
'架空の関数を宣言（SetLayeredWindowAttributesの宣言を参考にして作成）
　TypeDef SetLWA = *Function(hwnd As HWND,crKey As 　　　Long,bAlpha As BYTE ,dwFlags As DWORD ) As Integer
　Dim DamSetLayeredWindowAttributes As SetLWA
'DLLを動的にロード
　hModule=LoadLibrary("user32.dll")
　IF hModule<>0 Then 'hModule=0 のときDLLがないので終了
'関数のアドレスを取得
　DamSetLayeredWindowAttributes=GetProcAddress(hModule,"SetLayeredWindowAttributes")

'ここから
　　If DamSetLayeredWindowAttributes=0 then
　　　FreeLibrary(hModule)
　　　exit sub
　　End If
'ここまでを追加

'透過設定　SPRITさんホームページより
　SetWindowLong(hMainWnd, GWL_EXSTYLE, GetWindowLong(hMainWnd, GWL_EXSTYLE) or &H80000)
　　if Toukasuru =1 then
'ポインタを使って関数を実行します
　　DamSetLayeredWindowAttributes(hMainWnd,0,Int(Toukaritu*255/100),LWA_ALPHA)
　　SetLayeredWindowAttributes(hMainWnd,0,Int(Toukaritu*255/100),LWA_ALPHA)
'第３引数　0（薄い）～255（濃い）を変えると、透過度が変わります。
　　Else
　　DamSetLayeredWindowAttributes(hMainWnd,0,255,LWA_ALPHA)
　　End If
　End If
'DLLを開放
　FreeLibrary(hModule) [/code][/hide]

わざわざ時間をとって試していただいてすいません。

今はuser32.dllが有るか無いかをみていて、98でもあるので×
user32.dllの中にSetLayeredWindowAttributes関数がアルカナイカ
を見るわけですね。

また試してみます。

試しにWindows 98で実行してみましたが，落ちます。
Windows 98もuser32.dllはあります。しかし，SetLayeredWindowAttributesは無いのでGetProcAddressはNULLを返すからです。
つまりDamSetLayeredWindowAttributesがNULLかどうかを確かめるのも必要です。

また，これは私がうっかりしていたことですが，ウィンドウを使うプログラムにおいて，
user32.dllは常に読み込まれて（ロードされて）いると仮定してよいのです。
（CreateWindowなどウィンドウプログラミングに必須の関数がuser32.dllにあり，それらをDeclareして使っているので）

こういうときはLoadLibraryの代わりにGetModuleHandle("user32.dll")が使えます。
するとFreeLibraryをする必要はありません。

結果的にこのようにしたら動的リンクができました。まだ98にてのテストは行っていませんが、大丈夫だと思うんだけどなー

[hide]'透過設定
　'Dim hModule As HINSTANCE
'架空の関数を宣言（SetLayeredWindowAttributesの宣言を参考にして作成）
　TypeDef SetLWA = *Function(hwnd As HWND,crKey As 　　　Long,bAlpha As BYTE ,dwFlags As DWORD ) As Integer
　Dim DamSetLayeredWindowAttributes As SetLWA
'DLLを動的にロード
　hModule=LoadLibrary("user32.dll")
　IF hModule<>0 Then 'hModule=0 のときDLLがないので終了
'関数のアドレスを取得
　DamSetLayeredWindowAttributes=GetProcAddress(hModule,"SetLayeredWindowAttributes")
'透過設定　SPRITさんホームページより
　SetWindowLong(hMainWnd, GWL_EXSTYLE, GetWindowLong(hMainWnd, GWL_EXSTYLE) or &H80000)
　　if Toukasuru =1 then
'ポインタを使って関数を実行します
　　DamSetLayeredWindowAttributes(hMainWnd,0,Int(Toukaritu*255/100),LWA_ALPHA)
　　SetLayeredWindowAttributes(hMainWnd,0,Int(Toukaritu*255/100),LWA_ALPHA)
'第３引数　0（薄い）～255（濃い）を変えると、透過度が変わります。
　　Else
　　DamSetLayeredWindowAttributes(hMainWnd,0,255,LWA_ALPHA)
　　End If
　End If
'DLLを開放
　FreeLibrary(hModule) [/hide]

イグトランスさんこんにちは

> プログラムのはじめ（Createイベントなど）でLoadLibraryを行い，
> GetProcAddressでSetLayeredWindowAttributesのアドレスを入手します。
> そのアドレスは関数へのポインタの変数へ代入することでその関数を呼ぶことができます。
> Windows 98などではGetProcAddressがNULLを返すので，それに気を付ければ良いだけです。
>
> もちろんFreeLibraryを忘れてはいけません。

結構大変なんですね。LoadLibrayにて検索して試してみようと思います。ありがとうございました。

Declareで宣言したDLL関数はプログラムの実行開始時にその関数が見つからないといけません。
SetLayeredWindowAttributesはWindows 2000以上にのみ存在する関数ですから，
Windows 98などではそれが存在せず実行が開始できないのです。

どうするかというと，明示的リンクをすることになります。
プログラムのはじめ（Createイベントなど）でLoadLibraryを行い，
GetProcAddressでSetLayeredWindowAttributesのアドレスを入手します。
そのアドレスは関数へのポインタの変数へ代入することでその関数を呼ぶことができます。
Windows 98などではGetProcAddressがNULLを返すので，それに気を付ければ良いだけです。

もちろんFreeLibraryを忘れてはいけません。

SPIRITさんのActiveBasic講座のウィンドウを半透明にする(Win2000以上) をためさせていただきました。（いつも参考にさせていただいてます）
http://www.geocities.jp/skynet3113/data/Win3.html#Window

サンプル自体は問題なく成功したのですが、XPでコンパイルしたEXEを95、98環境で実行させたとき､透過の機能を使わないようにしたいのです。

Win2000以前のOSの時はスキップさせようと、Winのバージョン判定し、透過のコードの方はIFでスルーする様にできたのですが、

Declare Function SetLayeredWindowAttributes Lib "user32" (hwnd As Long,crKey As Long, bAlpha As Byte,dwFlags As Long) As Long

EXEを実行した時上記部分でプログラム開始エラーとなってしまいます。98・XP両方で使える様にするにはどのようにすればよいのでしょうか？

98SEでもエラーが出ないPCと、出るPCがあるのも謎です。