Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

ListBox の 色について

32 views
Skip to first unread message

JO

unread,
Mar 12, 2003, 1:29:38 AM3/12/03
to
JOと申します。

リストボックス（ListBox）の中の選択されている行の背景色（或は文字色）を自由に
設定したいですが、方法がわかりません。
どなたか教えてください。
よろしくお願いいたします。

Yuichiro Ochifuji

unread,
Mar 12, 2003, 3:03:17 AM3/12/03
to
落藤です。

> リストボックス（ListBox）の中の選択されている行の背景色（或は文字色）を
自由に
> 設定したいですが、方法がわかりません。

http://www.codeguru.com/vb/articles/1834.shtml

多分、これ参考になります。


--
************************************************************
　　落藤　勇一郎
************************************************************

JO

unread,
Mar 12, 2003, 5:06:22 AM3/12/03
to
ありがとうございます。

早速、試しましたが、このサンプルは「チェックボックス」 スタイルのみ対応している
みたいです。 標準スタイルなら、効きませんでした。
またよろしくお願いします。


"Yuichiro Ochifuji" <ochi...@japan.interq.or.jp> wrote in message
news:uDTk94G6...@TK2MSFTNGP11.phx.gbl...

Yuichiro Ochifuji

unread,
Mar 12, 2003, 11:07:37 PM3/12/03
to
落藤です。

> 早速、試しましたが、このサンプルは「チェックボックス」 スタイルのみ対応し
ている
> みたいです。 標準スタイルなら、効きませんでした。

実行時の見た目は標準スタイルみたいになるようですが、
それでは、ダメなのでしょうか？

標準スタイルのときは、どうするんでしょう？＞皆様

HIKARU SAYAMA

unread,
Mar 12, 2003, 11:26:43 PM3/12/03
to
いつもお世話になります。佐山です。

# はずしていたらすみません

「選択時」の背景色と文字色ってWindowsの画面設定に依存しませんか？

いまWindowsXPでやってみたら、
画面のプロパティで変わってしまったので。

以上御参考になれば幸いです。

--
HIKARU SAYAMA
<raspbe...@hotmail.com>

Kaoru Kodaka

unread,
Mar 13, 2003, 12:01:05 AM3/13/03
to
かおく です。

On Thu, 13 Mar 2003 13:07:37 +0900
"Yuichiro Ochifuji" <ochi...@japan.interq.or.jp> wrote:

> 標準スタイルのときは、どうするんでしょう？＞皆様

リストボックスを持ったユーザーコントロールを作成し、そのリス
トボックスをオーナードローすることで実現できたと思います。

＃オーナーズエリアにサンプルがあったんだけど...。

---
| aMailAddress |
aMailAddress := 'ka...@venus.dti.ne.jp'.

JO

unread,
Mar 13, 2003, 1:46:08 AM3/13/03
to
複数行の選択ができてしまうから、ちょっと仕様と合わないです。

"Yuichiro Ochifuji" <ochi...@japan.interq.or.jp> wrote in message

news:uVE67ZR6...@TK2MSFTNGP12.phx.gbl...

JO

unread,
Mar 13, 2003, 1:44:49 AM3/13/03
to
すみませんですが、
サンプルをいただけませんか？
よろしくお願いします。

"Kaoru Kodaka" <ka...@venus.dti.ne.jp> wrote in message
news:200303131359...@venus.dti.ne.jp...

Ayumu Maeda

unread,
Mar 13, 2003, 2:18:01 AM3/13/03
to
前田です。

JO wrote:

> JOと申します。
>
> リストボックス（ListBox）の中の選択されている行の背景色（或は文字色）を自由に
> 設定したいですが、方法がわかりません。

リストボックスはあきらめて、MsFlexGridを使うとか。
(うまく設定すれば、リストボックスにみえる)

Kaoru Kodaka

unread,
Mar 13, 2003, 6:02:47 AM3/13/03
to
かおく です。

On Thu, 13 Mar 2003 15:44:49 +0900
"JO" <mdp...@blue.ocn.ne.jp> wrote:

> すみませんですが、
> サンプルをいただけませんか？

オーナーズエリアで探してみてください。ちょっと違うテクニック
ですが、

|| The VBBox - CodeBox [Samples] - Owner-Drawn Listbox
|| http://www.vbbox.com/codebox.htm

というのもありました。

Yuichiro Ochifuji

unread,
Mar 15, 2003, 12:20:23 AM3/15/03
to
落藤です。

> オーナーズエリアで探してみてください。ちょっと違うテクニック
> ですが、
>
> || The VBBox - CodeBox [Samples] - Owner-Drawn Listbox
> || http://www.vbbox.com/codebox.htm
>
> というのもありました。

オーナーズエリアってVB5持ってないとだめですか？

上記サイトをはじめ、いろいろなところを参考に、オーナードロー
以下のように書いてみたのですが、文字が表示されません。
悪いところをご指摘いただければ幸いです。

'標準モジュール
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Public Declare Function SendMessageT Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Dim drawstruct As DRAWITEMSTRUCT
Dim szBuf(256) As Byte
Dim hBrush As Long
Dim hBMP As Long
Dim hFont As Long
Dim i As Long
Dim strlength As Long

Select Case (uMsg)

Case WM_DRAWITEM:
'//リストボックスだったら
Debug.Print wParam & " " & WM_DRAWITEM
If wParam = ID_LIST Then
CopyMemory drawstruct, ByVal lParam, Len(drawstruct)
'//描画対象の文字列取得
strlength = SendMessage(hList, LB_GETTEXTLEN, _
drawstruct.itemID, CLng(0))
SendMessage hList, LB_GETTEXT, drawstruct.itemID, _
szBuf(0)
'//選択状態かチェック
If drawstruct.itemState And ODS_SELECTED = _
ODS_SELECTED Then

'//ブラシ作成
hBrush = CreateSolidBrush(RGB(255, 0, 0))
'//テキストのカラーを設定
SetTextColor drawstruct.hdc, RGB(0, 0, 0)
'//テキストの背景色を指定
SetBkColor drawstruct.hdc, RGB(255, 0, 0)

Else

'//ブラシ作成
hBrush = CreateSolidBrush(RGB(255, 255, 255))
'//テキストのカラーを設定
SetTextColor drawstruct.hdc, RGB(0, 255, 0)
'//テキストの背景色を指定
SetBkColor drawstruct.hdc, RGB(255, 255, 255)

End If
'//バックグラウンドを塗りつぶす
FillRect drawstruct.hdc, drawstruct.rcItem, hBrush
'//ブラシ削除
DeleteObject hBrush
'//テキストを描画
TextOut drawstruct.hdc, drawstruct.rcItem.Left, _
drawstruct.rcItem.Top, szBuf(0), strlength
End If
WindowProc = 0
Case Else
WindowProc = (CallWindowProc(lpProcOrg, hwnd, _
uMsg, wParam, lParam))
End Select

End Function

Public Function SetWindowFont(hwnd As Long, Height As Long, _
Weight As Long, Italic As Long, Underlin As Long, _
StrikeOut As Long, FontName As String) As Long
Dim hFont As Long
hFont = (CreateFont(-12, 0, 0, 0, Weight, Italic, Underlin, _
StrikeOut, SHIFTJIS_CHARSET, OUT_DEFAULT_PRECIS, _
CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, _
DEFAULT_PITCH, FontName))
SendMessage hwnd, WM_SETFONT, hFont, 1

SetWindowFont = hFont
End Function

Public Function CreateControlWindow(hWndParent As Long, _
Left As Long, Top As Long, Width As Long, Height As Long, _
dwExStyle As Long, dwFlag As Long, Caption As String, _
ClassName As String, ChildID As Long, hInstance As Long) _
As Long
CreateControlWindow = CreateWindowEx(dwExStyle, ClassName, _
Caption, WS_CHILD Or WS_VISIBLE Or dwFlag, _
Left, Top, Width, Height, hWndParent, ChildID, hInstance, 0)
End Function

'フォームモジュール
Private Sub Command1_Click()
Dim hList As Long
hList = CreateControlWindow(Me.hwnd, 10, 10, 250, 200, _
WS_EX_CLIENTEDGE, LBS_OWNERDRAWFIXED, "", _
"LISTBOX", ID_LIST, GetWindowLong(Me.hwnd, GWL_HINSTANCE))
'//フォントの変更
hFont = SetWindowFont(hList, -12, FW_REGULAR, False, False, _
False, "ＭＳ Ｐゴシック")
oldFont = SelectObject(Me.hdc, hFont)

Dim strtest As String
strtest = "新規作成"

SendMessageT hList, LB_ADDSTRING, 0, (strtest)
SendMessageT hList, LB_ADDSTRING, 0, (strtest)
SendMessageT hList, LB_ADDSTRING, 0, (strtest)
SendMessageT hList, LB_ADDSTRING, 0, (strtest)
SendMessageT hList, LB_ADDSTRING, 0, (strtest)
End Sub

Private Sub Form_Load()
SubClass Me.hwnd
End Sub

Private Sub Form_Unload(Cancel As Integer)
SelectObject Me.hdc, oldFont
DeleteObject hFont

UnSubClass Me.hwnd
End Sub

Yuichiro Ochifuji

unread,
Mar 16, 2003, 9:42:32 PM3/16/03
to
落藤です。

> 'フォームモジュール
> Private Sub Command1_Click()
> Dim hList As Long
> hList = CreateControlWindow(Me.hwnd, 10, 10, 250, 200, _
> WS_EX_CLIENTEDGE, LBS_OWNERDRAWFIXED, "", _
> "LISTBOX", ID_LIST, GetWindowLong(Me.hwnd, GWL_HINSTANCE))
> '//フォントの変更

hListをここで定義しているのが悪かったです。
標準モジュールでも使っていましたので。
お騒がせいたしました。

Yuichiro Ochifuji

unread,
Mar 17, 2003, 5:05:54 AM3/17/03
to
落藤です。

とりあえず動くコードを載せておきます。
いらない宣言もありますが。

'標準モジュール
Public hFont As Long

Public Const CP_ACP = 0
Public Const CP_OEMCP = 1

Public Const WS_EX_CLIENTEDGE = &H200

Public Const LBS_NOTIFY = &H1
Public Const LBS_SORT = &H2
Public Const LBS_NOREDRAW = &H4
Public Const LBS_MULTIPLESEL = &H8
Public Const LBS_OWNERDRAWFIXED = &H10
Public Const LBS_OWNERDRAWVARIABLE = &H20
Public Const LBS_HASSTRINGS = &H40
Public Const LBS_USETABSTOPS = &H80
Public Const LBS_NOINTEGRALHEIGHT = &H100
Public Const LBS_MULTICOLUMN = &H200
Public Const LBS_WANTKEYBOARDINPUT = &H400
Public Const LBS_EXTENDEDSEL = &H800
Public Const LBS_DISABLENOSCROLL = &H1000
Public Const LBS_NODATA = &H2000

Public Const ID_LIST = 100

Public Const GWL_WNDPROC = (-4)
Public Const GWL_HINSTANCE = (-6)
Public Const GWL_HWNDPARENT = (-8)
Public Const GWL_STYLE = (-16)
Public Const GWL_EXSTYLE = (-20)
Public Const GWL_USERDATA = (-21)
Public Const GWL_ID = (-12)

Public Const WS_OVERLAPPED = &H0
Public Const WS_POPUP = &H80000000
Public Const WS_CHILD = &H40000000
Public Const WS_MINIMIZE = &H20000000
Public Const WS_VISIBLE = &H10000000
Public Const WS_DISABLED = &H8000000
Public Const WS_CLIPSIBLINGS = &H4000000
Public Const WS_CLIPCHILDREN = &H2000000
Public Const WS_MAXIMIZE = &H1000000
Public Const WS_CAPTION = &HC00000
Public Const WS_BORDER = &H800000
Public Const WS_DLGFRAME = &H400000
Public Const WS_VSCROLL = &H200000
Public Const WS_HSCROLL = &H100000
Public Const WS_SYSMENU = &H80000
Public Const WS_THICKFRAME = &H40000
Public Const WS_GROUP = &H20000
Public Const WS_TABSTOP = &H10000

Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000

Public Const LBS_OUR_STYLE As Long = (LBS_HASSTRINGS Or _
LBS_OWNERDRAWFIXED Or LBS_NOINTEGRALHEIGHT Or _
WS_CHILD Or WS_VISIBLE Or WS_BORDER Or WS_VSCROLL)

Public Const FW_DONTCARE = 0
Public Const FW_THIN = 100
Public Const FW_EXTRALIGHT = 200
Public Const FW_LIGHT = 300
Public Const FW_NORMAL = 400
Public Const FW_MEDIUM = 500
Public Const FW_SEMIBOLD = 600
Public Const FW_BOLD = 700
Public Const FW_EXTRABOLD = 800
Public Const FW_HEAVY = 900

Public Const FW_ULTRALIGHT = FW_EXTRALIGHT
Public Const FW_REGULAR = FW_NORMAL
Public Const FW_DEMIBOLD = FW_SEMIBOLD
Public Const FW_ULTRABOLD = FW_EXTRABOLD
Public Const FW_BLACK = FW_HEAVY

Public Const SHIFTJIS_CHARSET = 128
Public Const OUT_DEFAULT_PRECIS = 0
Public Const CLIP_DEFAULT_PRECIS = 0
Public Const DEFAULT_QUALITY = 0
Public Const DEFAULT_PITCH = 0

Public Const WM_PAINTICON = &H26
Public Const WM_ICONERASEBKGND = &H27
Public Const WM_NEXTDLGCTL = &H28
Public Const WM_SPOOLERSTATUS = &H2A
Public Const WM_DRAWITEM = &H2B
Public Const WM_MEASUREITEM = &H2C
Public Const WM_DELETEITEM = &H2D
Public Const WM_VKEYTOITEM = &H2E
Public Const WM_CHARTOITEM = &H2F
Public Const WM_SETFONT = &H30
Public Const WM_GETFONT = &H31
Public Const WM_SETHOTKEY = &H32
Public Const WM_GETHOTKEY = &H33
Public Const WM_QUERYDRAGICON = &H37
Public Const WM_COMPAREITEM = &H39
Public Const WM_USER = &H400


Public Const LB_ADDSTRING = &H180
Public Const LB_INSERTSTRING = &H181
Public Const LB_DELETESTRING = &H182
Public Const LB_SELITEMRANGEEX = &H183
Public Const LB_RESETCONTENT = &H184
Public Const LB_SETSEL = &H185
Public Const LB_SETCURSEL = &H186
Public Const LB_GETSEL = &H187
Public Const LB_GETCURSEL = &H188
Public Const LB_GETTEXT = &H189
Public Const LB_GETTEXTLEN = &H18A
Public Const LB_GETCOUNT = &H18B
Public Const LB_SELECTSTRING = &H18C
Public Const LB_DIR = &H18D
Public Const LB_GETTOPINDEX = &H18E
Public Const LB_FINDSTRING = &H18F
Public Const LB_GETSELCOUNT = &H190
Public Const LB_GETSELITEMS = &H191
Public Const LB_SETTABSTOPS = &H192
Public Const LB_GETHORIZONTALEXTENT = &H193
Public Const LB_SETHORIZONTALEXTENT = &H194
Public Const LB_SETCOLUMNWIDTH = &H195
Public Const LB_ADDFILE = &H196
Public Const LB_SETTOPINDEX = &H197
Public Const LB_GETITEMRECT = &H198
Public Const LB_GETITEMDATA = &H199
Public Const LB_SETITEMDATA = &H19A
Public Const LB_SELITEMRANGE = &H19B
Public Const LB_SETANCHORINDEX = &H19C
Public Const LB_GETANCHORINDEX = &H19D
Public Const LB_SETCARETINDEX = &H19E
Public Const LB_GETCARETINDEX = &H19F
Public Const LB_SETITEMHEIGHT = &H1A0
Public Const LB_GETITEMHEIGHT = &H1A1
Public Const LB_FINDSTRINGEXACT = &H1A2
Public Const LB_SETLOCALE = &H1A5
Public Const LB_GETLOCALE = &H1A6
Public Const LB_SETCOUNT = &H1A7

Public Const CB_ADDSTRING = (WM_USER + 3)

Const ODS_SELECTED = &H1
Const ODS_GRAYED = &H2
Const ODS_DISABLED = &H4
Const ODS_CHECKED = &H8
Const ODS_FOCUS = &H10

Const ODS_DEFAULT = &H20
Const ODS_COMBOBOXEDIT = &H1000

Const ODS_HOTLIGHT = &H40
Const ODS_INACTIVE = &H80

Public lpProcOrg As Long
Public hList As Long

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Type DRAWITEMSTRUCT
CtlType As Long
CtlID As Long
itemID As Long
itemAction As Long
itemState As Long
hwndItem As Long
hDC As Long
rcItem As RECT
itemData As Long
End Type

Public Declare Function SelectObject Lib "gdi32" _
(ByVal hDC As Long, ByVal hObject As Long) As Long

Public Declare Function CallWindowProc Lib "user32" Alias _
"CallWindowProcA" ( _
ByVal lpPrevWndFunc As Long, _
ByVal hwnd As Long, _
ByVal Msg As Long, _


ByVal wParam As Long, _
ByVal lParam As Long) As Long

Public Declare Function CreateWindowEx Lib "user32" Alias _
"CreateWindowExA" (ByVal dwExStyle As Long, _
ByVal lpClassName As String, ByVal lpWindowName As String, _
ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, _
ByVal nWidth As Long, ByVal nHeight As Long, _
ByVal hWndParent As Long, ByVal hMenu As Long, _
ByVal hInstance As Long, lpParam As Any) As Long

Public Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) _
As Long

Public Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" _
(ByVal H As Long, ByVal W As Long, ByVal E As Long, _
ByVal O As Long, ByVal W As Long, ByVal i As Long, _
ByVal u As Long, ByVal S As Long, ByVal C As Long, _
ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, _
ByVal PAF As Long, ByVal F As String) As Long

Public Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _


ByVal wParam As Long, ByVal lParam As Long) As Long

Public Declare Function SendMessageT Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Public Declare Function CreateSolidBrush Lib "gdi32" _
(ByVal crColor As Long) As Long
Public Declare Function SetTextColor Lib "gdi32" _
(ByVal hDC As Long, ByVal crColor As Long) As Long
Public Declare Function SetBkColor Lib "gdi32" _
(ByVal hDC As Long, ByVal crColor As Long) As Long
Public Declare Function FillRect Lib "user32" _
(ByVal hDC As Long, lpRect As RECT, ByVal hBrush As Long) _
As Long
Public Declare Function DeleteObject Lib "gdi32" _
(ByVal hObject As Long) As Long
Public Declare Function TextOut Lib "gdi32" Alias "TextOutA" _
(ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, _
ByVal lpString As String, ByVal nCount As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias _
"RtlMoveMemory" (Destination As Any, Source As Any, _
ByVal Length As Long)


Public Function CreateControlWindow(hWndParent As Long, _
Left As Long, Top As Long, Width As Long, Height As Long, _
dwExStyle As Long, dwFlag As Long, Caption As String, _
ClassName As String, ChildID As Long, hInstance As Long) _
As Long

CreateControlWindow = CreateWindowEx(dwExStyle, _
ClassName, Caption, WS_CHILD Or WS_VISIBLE Or dwFlag, _


Left, Top, Width, Height, hWndParent, ChildID, hInstance, 0)
End Function

Public Function SetWindowFont(hwnd As Long, Height As Long, _


Weight As Long, Italic As Long, Underlin As Long, _
StrikeOut As Long, FontName As String) As Long
Dim hFont As Long

hFont = (CreateFont(-18, 0, 0, 0, Weight, Italic, Underlin, _
StrikeOut, SHIFTJIS_CHARSET, _
OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, _
DEFAULT_QUALITY, DEFAULT_PITCH, FontName))

SendMessage hwnd, WM_SETFONT, hFont, ByVal 1

SetWindowFont = hFont
End Function

Public Function WindowProc(ByVal hwnd As Long, _
ByVal uMsg As Long, ByVal wParam As Long, _


ByVal lParam As Long) As Long

Dim drawstruct As DRAWITEMSTRUCT
Dim szBuf(256) As Byte

Dim itemstr As String


Dim hBrush As Long
Dim hBMP As Long
Dim hFont As Long
Dim i As Long
Dim strlength As Long

Select Case (uMsg)

Case WM_DRAWITEM:

If wParam = ID_LIST Then

CopyMemory drawstruct, ByVal lParam, Len(drawstruct)

strlength = SendMessage(hList, LB_GETTEXTLEN, _
drawstruct.itemID, CLng(0))

SendMessageT hList, LB_GETTEXT, drawstruct.itemID, _
szBuf(0)

If drawstruct.itemState And ODS_SELECTED = _
ODS_SELECTED Then

hBrush = CreateSolidBrush(RGB(255, 0, 0))
SetTextColor drawstruct.hDC, RGB(0, 0, 0)
SetBkColor drawstruct.hDC, RGB(255, 0, 0)

Else

hBrush = CreateSolidBrush(RGB(255, 255, 255))

SetTextColor drawstruct.hDC, RGB(0, 255, 0)
SetBkColor drawstruct.hDC, RGB(255, 255, 255)

End If
FillRect drawstruct.hDC, drawstruct.rcItem, hBrush
DeleteObject hBrush

TextOut drawstruct.hDC, drawstruct.rcItem.Left + 24, _
drawstruct.rcItem.Top, StrConv(szBuf, vbUnicode), _
strlength

End If
WindowProc = 0
Case Else

WindowProc = (CallWindowProc(lpProcOrg, hwnd, uMsg, _
wParam, lParam))
End Select

End Function


Public Sub SubClass(ByVal hwnd As Long)
lpProcOrg = SetWindowLong(hwnd, GWL_WNDPROC, _
AddressOf WindowProc)
End Sub

Public Sub UnSubClass(ByVal hwnd As Long)
Dim lngRet As Long
lngRet = SetWindowLong(hwnd, GWL_WNDPROC, lpProcOrg)
End Sub

'フォームモジュール
Private Sub Command1_Click()

hList = CreateControlWindow(Me.hwnd, 10, 10, 250, 200, _

WS_EX_CLIENTEDGE, LBS_OUR_STYLE, "", "LISTBOX", _
ID_LIST, GetWindowLong(Me.hwnd, GWL_HINSTANCE))
hFont = SetWindowFont(hList, -12, FW_REGULAR, False, _
False, False, "ＭＳ ゴシック")

Dim strtest As String
strtest = "新規作成"

SendMessageT hList, LB_ADDSTRING, 0, ByVal strtest
SendMessageT hList, LB_ADDSTRING, 0, ByVal strtest
SendMessageT hList, LB_ADDSTRING, 0, ByVal strtest
SendMessageT hList, LB_ADDSTRING, 0, ByVal strtest
SendMessageT hList, LB_ADDSTRING, 0, ByVal strtest

End Sub

Private Sub Form_Load()
SubClass Me.hwnd
End Sub

Private Sub Form_Unload(Cancel As Integer)

DeleteObject hFont
'ImageList_Destroy hImageList
UnSubClass Me.hwnd
End Sub

JO

unread,
Mar 18, 2003, 5:47:31 AM3/18/03
to
助けました。ありがとうございました。
今後ともよろしくお願いします。

"Yuichiro Ochifuji" <ochi...@japan.interq.or.jp> wrote in message

news:ueHa00G7...@TK2MSFTNGP12.phx.gbl...

0 new messages