Dynamic expanding visual basic forms -
I have the simplest question I have a visual basic form, but when I extend it, no one Does not spread with fields or text windows. I was wondering how to make it so that the form spreads dynamically when a person maximizes or stretches the window on the desktop, someone can advise you!
Properties in each control This can either be true or both (top or bottom vertical) and if it is In addition to the double chuck that hope that helps! Edit: This is some code from my predecessor which uses this event: Private sub form_ size Err_Form_Resize on error () on Because you can see this a lot of maths, tests, and errors, I try to do this experiment but maybe it will start some ideas. vertical anchor and
horizontal anchor Is.
left and
top (default), then they By changing the distance from the upper and left side to the
correct and
down , keep the distance between the right and the bottom
both as both sizes The shape of the control changes to control the same distance.
CanGrow and
CanShrink
if CurrentProject.AllForms ("FrmFMEA_PartA"). IsLoaded then Double Datacenter form of Double Datasheet H in the form of Double Datasheet Double Dataset as Double Dataset in form of H = I.frmFMEA_PartB_Subform.width FormW = Me.WindowWidth Datasheet H = ME.frmFMEA_PartB_Subform.Height FormH = Me .WindowHeight 'MsgBox FormH' MSBBX DatasheetHMframeFMEA_PartB_Subform.width = IIf (FormW - 360> 0, FormW - 360, 1) '390m .frmFMEA_PartB_Subform.Height = IIf (formH - 3405> 0, formH - 3405, 1) '3195m .text.Left = IIf (FormW - 2340 & gt; 0, FormW - 2340, 1) Me.text_Logo.Left = IIF (FormW - 2340 & gt; 0, FormW - 2340, 1 ) Termination if Exit_Form_Res Ize: Exit sub Err_Form_Resize: MsgBox Err.Description resume Exit_Form_Resize End Sub
Comments
Post a Comment