1001コメント282KB

VBプログラマ質問スレ（6.0以前） Part55

■ このスレッドは過去ログ倉庫に格納されています

0606デフォルトの名無しさん

2010/04/13(火) 15:10:25

If sen Then Line (x * 20, y * 20)-(x * 20, y * 20 + 20)

↓

Dim w, h
w = TextWidth("あ")
h = TextHeight("は")
If sen Then Line (x * w, y * h)-(x * w, y * h + h)

■ このスレッドは過去ログ倉庫に格納されています