API・泣・潟・・・・/b>




VB・・・・API・・篏帥・・・号・
綽・荀・・・PI・・・≪・・・・戎・・・号・

MSDN・・・ゃ・・・・・・/a> ・・・違・・・・・c・・・・・・・・・潟・・・・・・・<・・・c・≪€・-・・GDI・・-・・SDK・・・㏍・ャ・<・潟・・・・
-・・Windows・€GDI・・-・・・・・祉€・-・・・・・・・<・・・潟・鴻€・-・・・∽・違€・-・・DrawEdge・・
鐚・・・・・・・羞宴・・・с・・・・・・・・絽・・・・・・・・・・・・・・・・・DK・・・㏍・ャ・<・潟・・・・・・・・・眼・・・・・・・・・障・・・・鐚・
・с・・・ゃ・・・㏍・純・・・・MSDN・・・潟・・・ゃ・潟・・荀・・・・帥・障・・・・・・・・
・・・若・吾・・・・・・・・・・筝€・・・・障・с・鴻・・・㏍・若・・・・・障・・・・
・・・・・・br>
絲上・・・・・br> Windows NT/2000鐚・Windows NT 3.51 篁ラ・・
Windows 95/98鐚・Windows 95 篁ラ・・
・・・・・€・種・Winuser.h ・・・у・荐€・・Windows.h ・・・ゃ・潟・・・・・若・・
・・・・・・膊・・€・・・・・・・障・・・・

綽・荀・・・・・・・€・・・・・€・Winuser.h・・・с・・・・
・・・・・・・<・ゃ・・・・€・・・・・€・DrawEdge・・・・篏帥・・絎・・違・・絎・臂・・・・・・・・・・障・・・・

・・・c・潟・・・・・冴・・・<・ゃ・・・・・膣≪・с€・Winuser.h・・・・罎・膣≪・・・障・・・・

荀・・ゃ・・・c・・・・・・・潟・・・若・・・・・・・・・・・・・㏍・鴻・・・ч・・・・・・・・障・・・・
・・・・・・・・・・・・・ゃ・・・・・・・・・・・・・・・・・・・・・・・
・・・・賢・с€・・・BDR_RAISEDINNER・・・・罎・膣≪・・・・・・€・

#define BDR_RAISEDINNER 0x004

・・・・・・荐・菴違・・・・・・・障・・・・
綽・荀・・・・・・・・・・・・с€・・・・・・・違・・
VB・・6・我・域;荐・・・・・・・・・・・・∽・違・・・・・・・<・若・帥・・撮・ャ・・・障・・・・

・・0x004・・・・B・с・・€・鐚・H4・・・・・・・・・障・・・・鐚・
[VB] 16 ・我・医€ゃ・・・傑・贋・違・・・・・・・・・・号・鐚・

筝・・・戎・・・・・篏・・・・障・・・・・・・с€・荅・・・・・・帥・・・・・・・・・・・


・・・帥・潟・・・・・・・・


・≪・吾・ャ・若・・br> Public・€Declare・€Function・€DrawEdge・€Lib・€"user32"・€(ByVal・€hdc・€As・€Long,・€qrc・€As・€RECT,・€ByVal・€edge・€As・€Long,・€ByVal・€grfFlags・€As・€Long)・€As・€Long


Type・€RECT
・€left・€As・€Long
・€top・€As・€Long
・€right・€As・€Long
・€bottom・€As・€Long
End・€Type


・・・・・若・・・br> Private・€Sub・€Command1_Click()
'羌・・・筝・・・・・・・・・
Dim・€ret
Dim・€myr・€As・€RECT
myr.left・€=・€10
myr.right・€=・€100
myr.bottom・€=・€100
myr.top・€=・€10

ret・€=・€DrawEdge(Me.hdc,・€myr,・€&H1・€+・€&H4,・€&H1・€+・€&H4・€+・€&H2・€+・€&H8)
End・€Sub

Private・€Sub・€Command2_Click()
'・若・・莨若・€
Dim・€ret
Dim・€myr・€As・€RECT
myr.left・€=・€10
myr.right・€=・€100
myr.bottom・€=・€100
myr.top・€=・€10

ret・€=・€DrawEdge(Me.hdc,・€myr,・€&H2・€+・€&H8,・€&H1・€+・€&H4・€+・€&H2・€+・€&H8)
End・€Sub


腟・篋・・・・€・≪・・・<・若・激・с・潟・х・篋・・・・・・号・

・≪・吾・ャ・若・・・・br> Public・€Declare・€Function・€DrawAnimatedRects・€Lib・€"user32"・€(ByVal・€hWnd・€As・€Long,・€ByVal・€idAni・€As・€Long,・€lprcFrom・€As・€RECT,・€lprcTo・€As・€RECT)・€As・€Long


・・・・・若・・・br> Private・€Sub・€Form_Unload(Cancel・€As・€Integer)

'腟・篋・・・・€・≪・・・<・若・激・с・潟・х・篋・・・・・
Dim・€ret
Dim・€Are・€As・€RECT
Dim・€Bre・€As・€RECT
Are.Left・€=・€(Me.Left・€/・€Screen.TwipsPerPixelX)
Are.Right・€=・€(Me.Left・€+・€Me.Width)・€/・€Screen.TwipsPerPixelX
Are.Top・€=・€(Me.Top・€/・€Screen.TwipsPerPixelY)
Are.Bottom・€=・€(Me.Top・€+・€Me.Height)・€/・€Screen.TwipsPerPixelY

Bre.Left・€=・€0
Bre.Right・€=・€0
Bre.Top・€=・€0
Bre.Bottom・€=・€0

ret・€=・€DrawAnimatedRects(Me.hWnd,・€3,・€Are,・€Bre)

End・€Sub



VB Tips And Sample鐚・HOME鐚・