Pregunta
Publicado por Olatz Jimenez (8 intervenciones) el 20/05/2002 09:09:05
¿Como pobria funcionar esto?: si quieres poner en el textbox o en el label no funciona , esto es:
Private Sub NumFrutal_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
If State = vbLeave Then
StatusBar1.Panels.Item(3).text = ""
ElseIf State = vbEnter Then
StatusBar1.Panels.Item(3).text = "La especie aparecera automaticamente cuando metas el nº de frutal"
End If
end sub
no me sale nada
Private Sub NumFrutal_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
If State = vbLeave Then
StatusBar1.Panels.Item(3).text = ""
ElseIf State = vbEnter Then
StatusBar1.Panels.Item(3).text = "La especie aparecera automaticamente cuando metas el nº de frutal"
End If
end sub
no me sale nada
Valora esta pregunta
0