VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日: 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

としてください。


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- Web Forum -