ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月28日(木) 19:22

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2009年10月22日(木) 10:32 
日ごろは大変お世話になっております。
サーバー復旧おめでとうございます。さびしかったです。

さて、A,B,C,Dと画像がトランプのように重なって表示されていて
Aがだんだん薄くなってB
Bがだんだん薄くなってC
というような表示をするプログラムを考えています。

描画にはけっこう時間がかかるようにも思いますがこうした
RGBを段階的に薄くしていってダイレクトに表示するような
方法は具体的にどのようなファンクションで行なうのが良い
のでしょうか。

達人皆様ご教示お願いいたします。


通報する
ページトップ
   
 記事の件名:
投稿記事Posted: 2009年10月24日(土) 15:09 
オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市
AlphaBlend関数が使えるようです。

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。


通報する
ページトップ
投稿記事Posted: 2009年10月26日(月) 08:40 
なるほど良く分かりました。
しかし、BLENDの関数内の設定が良く分からないのですが
やはりこの数値の設定はRGB別々に行なうようでしょうか。

下記のプログラム変更で確認してみましたが変化させているのは
Bのみと思っています。RGBを同時に低減させて黒くしたりすることで
BLENDの機能が実現できそうです。
コード:
Const AC_SRC_OVER=0
Const AC_SRC_ALPHA=1

Type BLENDFUNCTION
    BlendOp As Byte'ブレンド操作(常にAC_SRC_OVER)
    BlendFlags As Byte'常に0
    SourceConstantAlpha As Byte'コピー元のビットマップ全体に適用するアルファ値
    AlphaFormat As Byte'コピー元のビットマップがアルファ値を持つときAC_SRC_ALPHA
End Type

TypeDef _BLENDFUNCTION=DWord

'AB423でコンパイルできる事は確認したけど、関数のオーバーロードが出来るようになったのっていつだっけ?
Function Get_BLENDFUNCTION(ByRef bf As BLENDFUNCTION) As _BLENDFUNCTION
    Get_BLENDFUNCTION=GetDWord(VarPtr(bf))
End Function

Function Get_BLENDFUNCTION(bf As *BLENDFUNCTION) As _BLENDFUNCTION
    Get_BLENDFUNCTION=GetDWord(bf)
End Function

Declare Function AlphaBlend Lib "msimg32.dll" (_
hdcDest As HDC,nXOriginDest As DWord,nYOriginDest As DWord,nWidthDest As DWord,hHeightDest As DWord,_
hdcSrc As HDC,nXOriginSrc As DWord,nYOriginSrc As DWord,nWidthSrc As DWord,nHeightSrc As DWord,_
blendFunction As _BLENDFUNCTION) As Long

'定義ここまで
#prompt
Line (0,0)-Step(100,100),4,bf
Line (110,0)-Step(100,100),2,bf

Dim hDC As HDC,bf As BLENDFUNCTION
Dim i as Long,t as Long

hDC=GetDC(_PromptSys_hWnd)
bf.BlendOp=AC_SRC_OVER
bf.BlendFlags=0
bf.AlphaFormat=0

bf.SourceConstantAlpha=255
AlphaBlend(hDC,220,0,100,100,hDC,0,0,100,100,Get_BLENDFUNCTION(bf))

for i=1 to 128 
		bf.SourceConstantAlpha=i
AlphaBlend(hDC,220,0,100,100,hDC,110,0,100,100,Get_BLENDFUNCTION(bf))
for t=1 to 10000000:Next t


Next i

ReleaseDC(_PromptSys_hWnd,hDC)


通報する
ページトップ
   
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[26人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean