デバッグコンパイルでは正常に表示されるのですが、
リリースコンパイルではおかしいのです。
WindowsXP SP2
AB41001~AB41103
リースコンパイル時
起動後 ms_cnt = 0 のときは、マウスを動かしても表示されているのですが
ms_cnt = 1 のとき、マウスを動かすと表示がおかしくなってしまいます。
宜しくお願いします。
コード: 全て選択
Dim mouse_1X As Double
Dim mouse_1Y As Double
Dim mouse_2X As Double
Dim mouse_2Y As Double
Dim fontname = "MS ゴシック" As BytePtr
Dim moldx As Single
Dim moldy As Single
'--------------------------------------------------------------------
Sub MainWnd_MouseMove(flags As Long, x As Long, y As Long)
Dim ms1x As String
Dim ms1y As String
Dim ms2x As String
Dim ms2y As String
If kind_b >= 1 Then '描画時
Mouse_Near_Blt(moldx, moldy)'旧XY位置にマウスの近くに
貼り付け(位置情報)
If ms_cnt = 0 Then '描画前
ms1x = ms1x + "X="
ms1x = ms1x + Double_To_String(mouse_1X, 10, 3)'As BytePtr
ms1y = ms1y + "Y="
ms1y = ms1y + Double_To_String(mouse_1Y, 10, 3)
Text_Dsp(x, y-40, 1, fontname, 12, 0, ms1x)
Text_Dsp(x, y-27, 1, fontname, 12, 0, ms1y)
Else '描画中
ms2x = ms2x + "X="
ms2x = ms2x + Double_To_String(mouse_2X - mouse_1X, 10, 3)
ms2y = ms2y + "Y="
ms2y = ms2y + Double_To_String(mouse_2Y - mouse_1Y, 10, 3)
Text_Dsp(x, y-40, 3, fontname, 12, 0, ms2x)
Text_Dsp(x, y-27, 3, fontname, 12, 0, ms2y)
End If
End If
moldx = x '前のマウス位置保存
moldy = y
End Sub