投稿日 | : 2003/12/25(Thu) 18:18 |
投稿者 | : 魔界の仮面弁士 |
Eメール | : |
URL | : |
タイトル | : Layered Window その1 |
>> # 全角・半角の使い分けは適切に。
> 半角カタカナの使用は禁止とは理解しているのですが、?
その点も含めて「適切に」という事です。
特に、花ちゃんさんからのフォローにもあった『プログラムのコード』の場合は、
半角/全角の違いが重要な意味を持つこともあるので、特に理由が無ければ、
基本的には「英数字は半角、カタカナは全角」の方が良いでしょう。
それはさておき、Layered Windowを使った「透過」のサンプルです。
Windows 2000/XP/2003などで動作します。
# Windows Longhorn や MCE2004での動作は未検証。
Option Explicit
Private Declare Function SetWindowLongW Lib "user32" _
(ByVal hWnd As Long, _
ByVal Index As Long, _
ByVal NewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hWnd As Long, _
ByVal Key As Long, _
ByVal Alpha As Byte, _
ByVal Flag As Long) As Long
Private Const GWL_EXSTYLE As Long = -20&
Private Const WS_EX_LAYERED As Long = &H80000
Private Const LWA_COLORKEY As Long = 1&
Private Const LWA_ALPHA As Long = 2&
Private Sub Form_Load()
AutoRedraw = True
BackColor = vbCyan
ForeColor = vbWhite
Font.Name = "MS 明朝"
Font.Size = 32
Font.Bold = True
Print "魔界の仮面弁士"
SetWindowLongW hWnd, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes hWnd, vbCyan, 0&, LWA_COLORKEY
End Sub