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

VB Tips And Sample鐚・HOME鐚・

VB・・・・API・・篏帥・・・号・

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

腟・篋・・・・・≪・・・＜・若・激・с・潟・х・篋・・・・・・号・

PC name・・・・緇・・・・・

筝・・・・・絎・・・・誌・UTC鐚・綵√・・・・㏍・若・・・・・・・・茵・ず・・・眼・・・障・・

VB・・・・API・・篏帥・・・号・

綽・荀・・・PI・・・≪・・・・戎・・・号・

MSDN・・・ゃ・・・・・・/a> ・・・違・・・・・ｃ・・・・・・・・・潟・・・・・・・＜・・・ｃ・≪・-・・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・・・・篏帥・・絎・・違・・絎・臂・・・・・・・・・・障・・・・

・・・ｃ・潟・・・・・冴・・・＜・ゃ・・・・・膣≪・с・Winuser.h・・・・罎・膣≪・・・障・・・・

荀・・ゃ・・・ｃ・・・・・・・潟・・・若・・・・・・・・・・・・・㏍・鴻・・・ч・・・・・・・・障・・・・
・・・・・・・・・・・・・ゃ・・・・・・・・・・・・・・・・・・・・・・・
・・・・賢・с・・・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鐚・