Visual Basic 6.0 Proについて(2)

コンニチワ
VBで
Private Sub ....
if a="1" then　ここにルーチンを抜ける記述
.
text1.text="1"
.
.
.
End Sub
(....は省略の意）
のように書いたとき
if a="1" thenの後に
このルーチンを抜けさせたいのですが
どうやったらいいのでしょうか？
また、VBにおけるサイズ表記を（オブジェクトなどの大きさなど）
をピクセルに変換するときはどのようにしたらよいのでしょうか?
詳しい方、わかる方よろしくお願いします

No.1 ベストアンサー 回答者： arata 回答日時： 2001/02/12 15:05

ルーチンの脱出は

Exit Sub

です。Functionの場合は、

Exit Function

になります。

TwipsとPixelの変換は、Screen.TwipsPerPixelXやScreen.TwipsPerPixelYを使って計算します。プリンタでのサイズの場合は、Printer.TwipsPerPixcelXになります。

詳しくは、HELPをご覧ください。

No.2 回答者： eijyu 回答日時： 2001/02/12 15:40

ども、最近VBは全然やってないのですが、曖昧な記憶でゴメンなさい。

if a="1" then : Exit sub

で良かったと思います。
end if は要らないです。

変換はやったことないのでわからないです。
何か関数あったかな～？
分かんなかった自分で書いちゃってもいいかも？
DLLとかに頼ってもいいかもね。

No.3 回答者： arata 回答日時： 2001/02/12 17:37

:(コロン)はいりませんよ。

If a="1" Then Exit Sub

でいいですよ。