投稿日 | : 2003/07/23(Wed) 09:02 |
投稿者 | : LESIA |
Eメール | : |
URL | : |
タイトル | : Re^3: ありがとうございました! |
> 自分でデータ型は変更してみたのですがうまくいかなかったので質問させて頂きました。
データ型は何に変更してみたのですか?
あと、x1, x2, y1, y2には何が入っていますか?
x1とx2、y1とy2が同じだと(y2 - y1) / (x2 - x1)は、0 / 0になるので
オーバーフローになります。
> Dim x1, x2, y1, y2 As Integer
ちなみにこれだと、y2だけがInteger型で、x1, x2, y1はVariant型になります
Dim x1 As Integer, x2 As Integer, y1 As Integer, y2 As Integer
もしくは
Dim x1 As Integer
Dim x2 As Integer
Dim y1 As Integer
Dim y2 As Integer
としてください。