Re: Mayayana and others: Know The Notes now for 98SE using MM's new 'Never Replace' scheme


I've gone back to using picture boxes and graphics obtained from
http://www.glassybuttons.com/glassy.php as I used in TuneFinder.


That's an interesting page. I didn't know
there were such things online.

It's also possible to get a MouseLeave event
in Win98+ using the function TrackMouseEvent.
It requires subclassing the button, though.


In form's declarations section:
Dim picFindTune_Left As Integer
Dim picFindTune_Top As Integer

In Form_Load:

' Capture coords of picture "button"
picFindTune_Left = picFindTune.Left
picFindTune_Top = picFindTune.Top

' Copy default picture into "button"
picFindTune.Picture = images(0).Picture

Plus:
Private Sub picFindTune_MouseDown(......)
picFindTune.Move picFindTune_Left + 1, picFindTune_Top + 1
End Sub

Private Sub picFindTune_MouseMove(......)
picFindTune.Picture = images(1).Picture
End Sub

Private Sub picFindTune_MouseUp(......)
picFindTune.Move picFindTune_Left, picFindTune_Top
End Sub

Private Sub Form_MouseMove(......)
picFindTune.Picture = images(0).Picture
End Sub

MM


.

Relevant Pages

  • Adding a second picture to same record
    ... that I made was to add a second picture at my daughter's insistance. ... On Error GoTo cmdAddImage1_Err ... Dim strFilter As String ... Private Sub cmdDeleteImage1_Click ...
    (comp.databases.ms-access)
  • Re: Print preview image in a picture box
    ... Private Sub SetPrinterOrigin ... Dim sFileFilter As String ... Dim Ratio As Double ' Ratio between Printer and Picture ...
    (microsoft.public.vb.general.discussion)
  • RE: Adding Bound Pictures to an Access Database
    ... when the student's picture is missing it is leaving the ... Private Sub Form_Current ... Dim strPath As String ... Private Function pfValidFile(aFile As String) As Boolean ...
    (microsoft.public.access.modulesdaovba)
  • Re: lines dont stay on form...
    ... Personally for such jobs I would draw ... On way to achieve what you're after and still use your existing "picture ... Private xCentre As Single, yCentre As Single ... Private Sub Label1_DblClick ...
    (microsoft.public.vb.general.discussion)
  • Re: Add a logo to hard copy
    ... If you can't see the CommonDialog Control ... Private Sub CmdDisplay_Click ... Dim blockwide As Single, blockhigh As Single ... ' control and to allow him to choose a picture ...
    (comp.lang.basic.visual.misc)