VB.NET TableLayout MouseEnter and leave event -

-

i'm trying looks "simple" since several hours, cannot understand how it...and lurking on or different sites seems maybe not obvious.

the question simple: have tablelayoutpanel multiple rows, each 1 of them contains panel, contains several other controls.

i want when mouse enters row, row background changes , when mouse leave row, comes original color.

these simple event trappers, pnllayoutrow name of panel containing other controls:

private sub devrowmouseenter(sender system.object, e eventargs) handles pnllayoutrow.mouseenter     pnllayoutrow.backcolor = drawing.color.fromargb(&hffffeeaa) end sub  private sub devrowmouseleave(sender system.object, e eventargs) handles pnllayoutrow.mouseleave     pnllayoutrow.backcolor = drawing.color.fromargb(&hffe7debd) end sub

the problem is: mouseenter correctly fired each time enter row, mouseleave fired mouse reach 1 of controls inside panel..that drives me crazy.

in other environment, solve placing transparent object on panel , trapping mouseenter , leave object..but seems in vb trasparent objects not exist.

hope have been clear in explanation..it pretty late in night , i'm bit tired.

thank in advance hope can me

cristiano

this version of mouse leave event checks mouse still within bounds of tablelayoutpanel , if exits without changing color

private sub devrowmouseleave(sender system.object, e eventargs) handles pnllayoutrow.mouseleave     dim p point = me.pointtoclient(mouseposition)     if p.y > pnllayoutrow.top , p.y < (pnllayoutrow.top + pnllayoutrow.height) , p.x > pnllayoutrow.left , p.x < (pnllayoutrow.left + pnllayoutrow.width)         exit sub     else         pnllayoutrow.backcolor = drawing.color.fromargb(&hffe7debd)     end if end sub

it seems work ok me,so hope same you.

i've had google mouse polling rates , default, in windows, it's 125hz might seem ok. however, if move mouse quickly, mouse enter , leave panel more windows can detect it. because of this, .mouseenter , .mouseleave events don't fire. have here alternative @ least detect when mouse leaves panel. add timer form called tmrpanelleave

private sub devrowmouseenter(sender system.object, e eventargs) handles pnllayoutrow.mouseenter     pnllayoutrow.backcolor = drawing.color.fromargb(&hffffeeaa)     tmrpanelleave.start() end sub  private sub tmrpanelleave_tick(sender object, e eventargs) handles tmrpanelleave.tick     dim p point = me.pointtoclient(mouseposition)     if p.y > pnllayoutrow.top , p.y < (pnllayoutrow.top + pnllayoutrow.height) , p.x > pnllayoutrow.left , p.x < (pnllayoutrow.left + pnllayoutrow.width)         exit sub     else         pnllayoutrow.backcolor = drawing.color.fromargb(&hffe7debd)         tmrpanelleave.stop()     end if end sub

Comments

Post a Comment

Popular posts from this blog

Delphi XE2 Indy10 udp client-server interchange using SendBuffer-ReceiveBuffer -

-
i use delphi xe2 , indy10 udp protocol. can't receive server echo on client side if use receivebuffer method. got "socket error # 10040" although send small echo message server client. console application illustrate problem below. in advance. program project1; {$apptype console} {$r *.res} uses system.sysutils, idglobal, idbasecomponent, idcomponent, idsockethandle, idudpclient, idudpserver, idudpbase, idstack; type tudp_serv = class(tidudpserver) procedure udpsvudpread(athread: tidudplistenerthread; adata: tidbytes; abinding: tidsockethandle); end; var udpserver: tudp_serv; udpcl: tidudpclient; bsnd, brcv: tbytes; s: string; k: integer; //============================================================================== procedure tudp_serv.udpsvudpread(athread: tidudplistenerthread; adata: tidbytes; abinding: tidsockethandle); begin writeln(' server read: ' + tohex(adata, length(adata))); abinding sendto(peerip, peerport, adat...
Read more

Qt ActiveX WMI QAxBase::dynamicCallHelper: ItemIndex(int): No such property in -

-
i new windows programming. here goes code objiwbemlocator = new qaxobject("wbemscripting.swbemlocator"); objwmiservice = objiwbemlocator->querysubobject("connectserver(qstring&,qstring&)",qstring("."),qstring("root\\cimv2")); qaxobject* returnlist = objwmiservice->querysubobject("execquery(qstring&)", qstring("select * %1").arg(domain)); qaxobject* result = returnlist->querysubobject("itemindex(int)", 0); i getting error on runtime qt activex wmi qaxbase::dynamiccallhelper: itemindex(int): no such property in but itemindex method exists msdn says the itemindex method not work collections not contain swbemobjects, such swbemmethodset, swbemnamedvalueset, swbemprivilegeset, swbempropertyset, , swbemqualifierset. what selecting ? have tried iterating on collection ? plus need minimum windows vista itemindex method. hope helps
Read more

Enable autocomplete or intellisense in Atom editor for PHP -

-
i'm first time user of atom editor php code. atom can autocomplete built-in functions of php. possible make editor autocomplete custom function written in separate file? function.php <?php function printsomething() { echo "hello world"; } index.php <?php require_once "function.php"; printsomething(); // autocompleted atom editor while typing thanks in advance. there text file in %userprofile%.atom called snippets.cson. in there can add snippet. more this: http://flight-manual.atom.io/using-atom/sections/snippets/ but need think can use later on other files well. otherwise need copy , paste.
Read more