くだすれVB6.0以前（超初心者向け）

くだすれVB6.0以前（超初心者向け） at TECH

746:デフォルトの名無しさん
09/03/29 22:15:43
>>745

Private Sub txtLesson_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

With txtLesson(Index)
If .Left <= X And X <= .Left + .Width And .Top <= Y And Y <= .Top + .Height Then
　.Left = .Left + 2: .Top = .Top + 2
SetCapture txtLesson(Index).hwnd
Else
.Left = .Left - 2: .Top = .Top - 2
ReleaseCapture
End If
End With
End Sub

いろいろ省きましたが、デバッグ中にIf文のところでYにポイントするとY=0と表示されます。
Xは通常どおり取得できます。

もうこれはコードの問題じゃないのではないかと思うのですが、どうでしょう？

次ページ

続きを表示

1を表示