vb.net - resize borderless form -

-

i able resize using code below resizes towards right side , bottom right corner

i want modify code user can re size form bottom left corner.

also of solution given on site based on wndproc / wm_nclbuttondown , not using because form have lots of controls flicker's badly.

  private shared frmlastwidth integer = 0   private shared frmlastheight integer = 0   private shared frmwidth integer   private shared frmheight integer   private shared frmisresizing boolean = false   private frmrectangle new system.drawing.rectangle()    private sub resizeme_mouseup(byval sender object, byval e system.windows.forms.mouseeventargs) handles resizeme.mouseup     if frmisresizing         frmrectangle.location = new system.drawing.point(me.left, me.top)          frmrectangle.size = new system.drawing.size(frmwidth, frmheight)       controlpaint.drawreversibleframe(frmrectangle, color.black, system.windows.forms.framestyle.dashed)       me.width = frmwidth       me.height = frmheight       frmisresizing = false      end if        end sub    private sub resizeme_mousedown(byval sender object, byval e system.windows.forms.mouseeventargs) handles resizeme.mousedown      frmrectangle.location = new system.drawing.point(me.left, me.top)     frmrectangle.size = new system.drawing.size(frmwidth, frmheight)     controlpaint.drawreversibleframe(frmrectangle, color.black, system.windows.forms.framestyle.dashed)    end sub      private sub resizeme_mousemove(byval sender object, byval e system.windows.forms.mouseeventargs) handles resizeme.mousemove         if e.button = windows.forms.mousebuttons.left   'me.resizeredraw = false     dim sizeagex integer = mouseposition.x - me.location.x     dim sizeagey integer = mouseposition.y - me.location.y      ' use restrict width     if sizeagex < me.minimumsize.width       sizeagex = me.minimumsize.width     end if     ' use restrict height     if sizeagey < me.minimumsize.height       sizeagey = me.minimumsize.height     end if     frmwidth = sizeagex     frmheight = sizeagey      if frmlastwidth = 0       frmlastwidth = frmwidth     end if     if frmlastheight = 0       frmlastheight = frmheight     end if     if frmisresizing        frmrectangle.location = new system.drawing.point(me.left, me.top)       frmrectangle.size = new system.drawing.size(frmlastwidth, frmlastheight)     end if      frmisresizing = true      controlpaint.drawreversibleframe(frmrectangle, color.black, system.windows.forms.framestyle.dashed)     frmlastwidth = frmwidth     frmlastheight = frmheight       frmrectangle.location = new system.drawing.point(me.left, me.top)     frmrectangle.size = new system.drawing.size(frmwidth, frmheight)     controlpaint.drawreversibleframe(frmrectangle, color.black, system.windows.forms.framestyle.dashed)   end sub    private sub resizeright(byval e system.windows.forms.mouseeventargs)     'me.resizeredraw = false      dim sizeagex integer = (mouseposition.x + me.width) - me.location.x     dim sizeagey integer = (mouseposition.y + me.height) - me.location.y        ' use restrict width     if sizeagex < me.minimumsize.width       sizeagex = me.minimumsize.width     end if     ' use restrict height     if sizeagey < me.minimumsize.height       sizeagey = me.minimumsize.height     end if     frmwidth = sizeagex     frmheight = sizeagey      if frmlastwidth = 0       frmlastwidth = frmwidth     end if     if frmlastheight = 0       frmlastheight = frmheight     end if     if frmisresizing        frmrectangle.location = new system.drawing.point(me.left, me.top)       frmrectangle.size = new system.drawing.size(frmlastwidth, frmlastheight)     end if      frmisresizing = true      controlpaint.drawreversibleframe(frmrectangle, color.black, system.windows.forms.framestyle.dashed)     frmlastwidth = frmwidth     frmlastheight = frmheight       frmrectangle.location = new system.drawing.point(me.left, me.top)     frmrectangle.size = new system.drawing.size(frmwidth, frmheight)     controlpaint.drawreversibleframe(frmrectangle, color.black, system.windows.forms.framestyle.dashed)       end if     end sub

update

i able re size form bottom left corner shows dashed lines many times dashed lines not restrict minimum height , width of form modified code is

 private sub resizeright(byval e system.windows.forms.mouseeventargs)     'me.resizeredraw = false     dim sizeagex integer = mouseposition.x + me.location.x     dim sizeagey integer = mouseposition.y + me.location.y      ' use restrict width     if sizeagex > me.minimumsize.width       sizeagex = me.minimumsize.width     end if     ' use restrict height     if sizeagey > me.minimumsize.height       sizeagey = me.minimumsize.height     end if     frmwidth = sizeagex - e.x     frmheight = sizeagey - e.y       if frmlastwidth = 0       frmlastwidth = frmwidth     end if     if frmlastheight = 0       frmlastheight = frmheight     end if      if frmisresizing        frmrectangle.location = new system.drawing.point(me.left + e.x, me.top)       frmrectangle.size = new system.drawing.size(frmlastwidth, frmlastheight)     end if      frmisresizing = true      controlpaint.drawreversibleframe(frmrectangle, color.black, system.windows.forms.framestyle.dashed)     frmlastwidth = frmwidth     frmlastheight = frmheight       frmrectangle.location = new system.drawing.point(me.left + e.x, me.top)     frmrectangle.size = new system.drawing.size(frmwidth, frmheight)     controlpaint.drawreversibleframe(frmrectangle, color.black, system.windows.forms.framestyle.dashed) end sub

what suspend control layout (suspend.layout) according http://msdn.microsoft.com/en-us/library/system.windows.forms.control.suspendlayout%28vs.80%29.aspx might able stop flickering.


Comments

Post a Comment

Popular posts from this blog

ASP.NET/SQL find the element ID and update database -

-
basically i've got update query runs when click submit button. i have asp:repeater in page layer inside this <asp:repeater id="dgbookings" runat="server" onitemdatabound="itemdb"> <itemtemplate> <div class="bookingscontent"> <div class="bookingdetails" id="<%# databinder.eval(container.dataitem, "booking_ref") %>"> <p class="infotext"><%# databinder.eval(container.dataitem, "adults") %> <asp:linkbutton onclick="editdetails" text="edit..." runat="server"></asp:linkbutton></p> <p class="infotext"><asp:linkbutton onclick="submitdetails" text="submit..." runat="server"></asp:linkbutton></p> </div> </div> </itemtemplate> <asp:repeater> and outputs ...
Read more

jquery - appear modal windows bottom -

-
i have modal windows in application, work fine <div id="modal" class="modal hide fade" tabindex="-1" role="dialog" aria-labelledby="mymodallabel" aria-hidden="true"> but when modal appears, appear top of windows, , want appear bottom the application joomla 3.0! , using template of meet gavern any idea? i found solution i modified de css in bootstrap .modal.fade { top:-25%; -webkit-transition:opacity .3s linear, bottom .3s ease-out; -moz-transition:opacity .3s linear, bottom .3s ease-out; -ms-transition:opacity .3s linear, bottom .3s ease-out; -o-transition:opacity .3s linear, bottom .3s ease-out; transition:opacity .3s linear, bottom .3s ease-out; }
Read more

c++ - Compiling static TagLib 1.6.3 libraries for Windows -

-
i having super hard time compiling , using taglib 1.6.3 in qt project. i've tried can think of. taglib claims supported through cmake i'm not having luck. furthermore, i'm confused kinds of files need qt libs! i've built *.a files, *.lib, , *.dll. understand far... believe since i'm working in windows *.lib want. no matter do, end "undefined references" taglib functions try use when try compile qt project. have tried mingw32, msys, visual studio 2008, , cross-compiling windows on linux. turning nothing. what makes less sense me if compile same taglib source qt on mac (g++ think?) works fine! somewhere in windows compilation procedures have going wrong. have been smacking face on desk 30 (on , off) hours trying figure out. since qt uses mingw must compile taglib same compiler? if compile *.lib's visual studio not compatible? are *.a libraries usable in windows? (assuming mingw) i'm still trying handle on c++ stuff, after reading coun...
Read more