投稿日 | : 2003/12/19(Fri) 14:19 |
投稿者 | : コラボ |
Eメール | : |
URL | : |
タイトル | : WinXP,9xでの変数及びAPIの相違について |
いつも参考にさせていただいています。
下記のコードですが、XPでは問題有りませんが98では
オーバーフローになります。
API若しくは変数の記述でXPと98では工夫が必要なのでしょうか?
宜しくご教授ください。
Private Sub CardDrawDC(hdc&)
'hDC上にカードを描く
Dim hPen&, hOldPen&, hBrush&, hOldBrush&
Dim hFont&, hOldFont&
Dim MyFont As FontEx, MyLog As LOGFONT
Dim MyLogB As LOGFONT
Dim MyText$
Dim MyRect As RECT
Dim hBmpDC&, hBMP&, hOldBmp&
SetBkMode hdc, TRANSPARENT
'背景を白で塗りつぶす
hPen = GetStockObject(NULL_PEN)
hBrush = GetStockObject(vbWhite)
SelectObject hdc, hPen
SelectObject hdc, hBrush
Rectangle hdc, 0, 0, 200, 286
DeleteObject SelectObject(hdc, hPen)
DeleteObject SelectObject(hdc, hBrush)
'用紙枠
hPen = CreatePen(vbSolid, 0.5, vbBlack)
hOldPen = SelectObject(hdc, hPen)
MoveToEx hdc, 15, 20, ByVal 0&
LineTo hdc, 195, 20
DeleteObject SelectObject(hdc, hOldBrush)
hPen = CreatePen(vbSolid, 0.5, vbBlack)
hOldPen = SelectObject(hdc, hPen)
MoveToEx hdc, 195, 20, ByVal 0&
LineTo hdc, 195, 280
DeleteObject SelectObject(hdc, hOldBrush)
hPen = CreatePen(vbSolid, 0.5, vbBlack)
hOldPen = SelectObject(hdc, hPen)
MoveToEx hdc, 195, 280, ByVal 0&
LineTo hdc, 15, 280
DeleteObject SelectObject(hdc, hOldBrush)
hPen = CreatePen(vbSolid, 0.5, vbBlack)
hOldPen = SelectObject(hdc, hPen)
MoveToEx hdc, 15, 280, ByVal 0&
LineTo hdc, 15, 20
DeleteObject SelectObject(hdc, hOldBrush)