Метод MouseMove не проканывает, т.к. он блокирует метод Click.
А как это откомпилировать и в проект засунуть ?
RusoTerroristo писал(а):Если не сложно то скажи как проверку делать ? А то лишний раз грузить это правдо ненужно.
dim buffer as byte
open "gigabyte.dat" for binary as 1
open "gig2.dat" for binary as 2
For i = 1000 to len(1)
get #1,i,buffer
put #1,i-999,buffer
next i
Думал среди программистов все нормальные люди... дак нет видно несудьба...
Private bSetNoSelect As Boolean
Private bSetSelect As Boolean
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not bSetNoSelect Then
imgButton.Picture = pictNoSelect.Picture
bSetNoSelect = True
End If
End Sub
Private Sub imgButton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not bSetSelect Then
imgButton.Picture = pictSelect.Picture
bSetSelect = True
End If
End Sub
Private bSetNoSelect As Boolean
Private bSetSelect As Boolean
Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 183