投稿日	： 2003/07/29(Tue) 13:38
投稿者	： Say
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: 代替案

> > Win2000以降限定でよければレイヤードウィンドウでも可能かと・・・。
> Layered Windowって、コントロール単位ではなく、
> フォーム単位でしか適用できなかったような気がします。(未確認)

私もForm以外で使えるかどうか知りませんので、
だいたいこういう感じで考えてます。

Form1を動かすと、ListBoxが微妙に遅れてついてきますが・・・。 (^_^;

Option Explicit

Private Sub Form_Load()
Dim i As Long
    Form2.Show , Me
    Form2.Left = Me.Left + 1000
    Form2.Top = Me.Top + 1000
    hListBox = Form2.List1.hwnd
    For i = 0 To 25
        Form2.List1.AddItem String(10, Chr(Asc("A") + i))
    Next
    
    ExStyle = GetWindowLong(Form2.hwnd, GWL_EXSTYLE)
    ExStyle = ExStyle Or WS_EX_LAYERED
    SetWindowLong Form2.hwnd, GWL_EXSTYLE, ExStyle
    SetLayeredWindowAttributes Form2.hwnd, vbWhite, 0, LWA_COLORKEY
    Timer1.Interval = 10
    Timer1.Enabled = True
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    Form2.Left = Me.Left + 1000
    Form2.Top = Me.Top + 1000
End Sub

★ - ListBoxの背景色をFormと一緒にしたいので.. - tak 07/28-16:36No.5096
• Re: ListBoxの背景色をFormと一緒にしたい.. - Say 07/28-17:26 No.5098
  • オーナードローじゃ無理・・？？ - tak 07/29-09:33 No.5111
    • Re: オーナードローじゃ無理・・？？ - Say 07/29-11:37 No.5116
      • 代替案 - 魔界の仮面弁士 07/29-12:53 No.5117
        • Re: 代替案 - Say 07/29-13:38 No.5118
          • 代替案を応用して・・ - tak 07/29-16:42 No.5126