HSPTV!掲示板

Input を透明化する方法はありませんか？

http://tu3.jp/0414

を参考にして作ってみましたが、一部が透明になりませんでした><

Input のウインドウ・スタイルを変更してません。

・拡張ウィンドウスタイル
http://chokuto.ifdef.jp/urawaza/prm/extended_window_style.html
↑
ここの WS_EX_TRANSPARENT を追加して下さい。

・ウィンドウスタイルの変更
http://lhsp.s206.xrea.com/hsp_window.html#1
↑
これを参考に拡張ウインドウ・スタイルを変更します。

文字まで、透過されてしまいました><

1:これらを定義してください。
　関数:SetWindowLong.GetWindowLong
　定数:GWL_EXSTYLE,WS_EX_TRANSPARENT

2:inputを設置し、そのハンドルを変数に格納してください。
　その際、HSP Document Libraryにある"objprm"の項がヒントになるかもしれません。

3:SetWindowLongと、2の変数を使ってinputを透明にします。
　SetWindowLongやGetWindowLongの使い方は自分で調べてみてください。
　HSPでもSetWindowLongを使用したサンプルはいくつかありました。

#uselib "user32.dll"
	#func  GetWindowLong "GetWindowLongA" int, int
	#func  SetWindowLong "SetWindowLongA" int, int, int
	
	picload dir_exe + "/sample/demo/sky_bg.jpg"
	
	a = "AAAAAAAAAAAAAAAA"
	input a, 200
	hInput = objinfo(stat, 2)
	
	GetWindowLong hInput, -20
	SetWindowLong hInput, -20, $00000020
	
	stop

これで、あっていますか？
透明になりませんでした><

> 透明になりませんでした><
なんか難しいですね。
input に WS_EX_TRANSPARENT の代わりに WS_EX_LAYERED スタイルを付けてみるとか。どう？

・第３４６章 透明ウィンドウを作る
http://www.kumei.ne.jp/c_lang/sdk4/sdk_346.htm
http://www.kumei.ne.jp/c_lang/sdk4/sdk_347.htm
http://www.kumei.ne.jp/c_lang/sdk4/sdk_348.htm
http://www.kumei.ne.jp/c_lang/sdk4/sdk_349.htm
↑
ここを参考に

・SetLayeredWindowAttributes
http://msdn.microsoft.com/ja-jp/library/cc411043.aspx
↑
こちらはAPI関数の資料

ネットで「コントロール 透明化」で検索をかけてみるとか？
↑
いっぱい出るが
http://oshiete.goo.ne.jp/qa/5263202.html
↑
ここによると無理っぽい。

うげ、できたと思ったら白背景だったからだ(´；ω；`)

結局できてませんごめんなさい(´；ω；`)

こんなのがあったけど(・ω・)……
http://www.lunaport.net/blog/2011/12/windows.html

テストです。の文字が透明になるってことは、
白い部分が透明になるようにすることもできませんかね。。。

ヒラギノさんの参考先のスクリプトを一か所変更して枠を消す部分を追加しただけでで動きましたが

#module
#uselib "gdi32.dll"
  #cfunc CreatePatternBrush "CreatePatternBrush" int
  #func DeleteObject "DeleteObject"
  #func SetBkMode "SetBkMode" int,int 
  #func SetBrushOrgEx "SetBrushOrgEx" int,int,int,int
#uselib "user32.dll"
  #func GetWindowRect "GetWindowRect" int,int
  #func MapWindowPoints "MapWindowPoints" int,int,int,int

#deffunc UpdateBackgroundBrush
    if ginfo_sel >= length(hBrush) : hBrush.ginfo_sel = 0
    if hBrush.ginfo_sel : DeleteObject hBrush.ginfo_sel
    mref bmscr,67 : hBrush.ginfo_sel = CreatePatternBrush(bmscr.7)
    oncmd gosub *OnCtlColor, 0x133 //WM_CTLCOLOREDIT
    return

 *OnCtlColor
    oldSel = ginfo_sel : gsel ginfo_intid : dim rect,4
    SetBkMode wParam, 1 // TRANSPARENT
    GetWindowRect lParam, varptr(rect)
    MapWindowPoints 0, hWnd, varptr(rect), 2
    SetBrushOrgEx wParam, -rect.0, -rect.1, 0
    gsel oldSel : return hBrush.ginfo_intid

#global //// モジュここまで

picload dir_exe + "/sample/demo/sky_bg.jpg"

UpdateBackgroundBrush

#include "user32.as"
a = "AAAAAAAAAAAAAAAA"
input a, 200
hInput = objinfo(stat, 2)
GetWindowLong hInput, -20
SetWindowLong hInput, -20,stat & $FFFFFDFF
SetWindowPos hInput, 0, 0, 0, 0, 0, $0027

kona さん、ありがとうございます！解決です！