Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

hello everyone...

i'd like to know what/if any code is necessary to bridge 2 gui forms together, &
would basically be a parent/child window.

in case no one noticed, the menu displays refresh twice

Another small issue that I'm observing in Windows 7...
When an item is selected near the bottom of a listbox and some items are removed programmatically, a gap is left at the bottom.

In the demo, click on Populate.
When the process is complete, a listbox item will be selected.
Click on Remove to see if the gap appears in your version of Windows.

pnm->hwndFrom

See: https://docs.microsoft.com/en-us/windows/win32/api/richedit/ns-richedit-nmhdr

before I started freebasic I programmed a lot in vb6.
I have often used old vb6 code as it often works with minor changes.
On the way you learn the differences faster

Dear people,

how can I determine which window handle the WM_NOTIFY comes from ?.
If I want to use more than one Rich Edit control, I can't separate them to make them respond differently

Code: [Select]

''
Function frmMain_Load( ByRef sender As wfxForm, ByRef e As EventArgs ) As LRESULT
 SendMessage (frmMain.RichEdit1.hWindow, EM_SETEVENTMASK,0, ENM_SCROLLEVENTS or ENM_SCROLL or ENM_MOUSEEVENTS or ENM_KEYEVENTS)
    Function = 0
End Function

''
''
Function frmMain_AllEvents( ByRef sender As wfxForm, ByRef e As EventArgs ) As LRESULT

 dim as LPNMHDR pnm
 dim as MSGFILTER ptr pmf

   select case E.Message
     
          Case WM_NOTIFY

               pnm = cast(LPNMHDR,E.lParam)

                select case pnm->code
                    case EN_MSGFILTER
                           pmf = cast(MSGFILTER ptr, pnm)

                        select case   pmf->msg
                             case WM_MOUSEWHEEL
                              Print "WM_MOUSEWHEEL" 
                             Case WM_VSCROLL
                              ? "WM_VSCROLL"
                             case WM_HSCROLL
                              ? "WM_HSCROLL" 
                             case WM_MOUSEMOVE
                             
                             case else
                             ' ? MessageName(pmf->msg)
                        end select
 
                end select   
                             case else
                                 
                ' ? MessageName(e.Message)
   end select
 
    Function = 0
End Function

Thanks in advance for your help

code changed so the example works

hello jermy...

i just downloaded your playsound.zip and tried it. thanks it works great & yes i had
worked in vb6 (before .NET framework)... though i guess my zip upload was probably no good
to begin with. thats ok.... so i am sorry if it greatly disappoints anyone who might download it.

I think you used visual basic 6 in the past?
if so then you have some specific explanation in the project about the differences

thank you paul....

i appreciate your explaining about that. i'll definitely be mindful of any
warnings/advice for not editing too much unless i know what i am looking at.

hello everyone...

i would like to know how can this 1 included *.bas could be fixed if possible? i had
ideas on building a simple SND player device if its ever possible. i might need to look
further perhaps as the code within the form of the included *.bas may not be right.
when i try to compile it for runtime,... the compiler seems to not like the declare function
& the "playsound" seems like an undefined variable. i'm not sure where to go from here.

(.... sigh) i guess i have a lot to learn about windows API or how to arrange such things.