VBA窗体处理与绘图功能实现代码优化.pdfVIP

OptionExplicit

PrivateSubcmdCancel_Click()

UnloadMe

EndSub

PrivateSubcmdOK_Click()

DimCtlAsControl

IfNotgbln_CheckAllText(Me,Ctl)ThenExitSub

..startnewdrawing

App.New

Me.Hide

Callg_Main(LicomDbl(txtWidth.Text),LicomDbl(txtLength.Text),_

LicomDbl(txtRail.Text),LicomDbl(txtStile.Text),LicomDbl(txtRadius.Text))

Controlled_Exit:

UnloadMe

ExitSub

cmdOK_Error:

MsgBoxErr.Description,vbExction,cmdOK_Click

ResumeControlled_Exit

EndSub

PrivateSubtxtLength_BeforeUpdate(ByValCancelAsMSForms.ReturnBoolean)

g_TextCalctxtLength,Cancel

EndSub

PrivateSubtxtRadius_BeforeUpdate(ByValCancelAsMSForms.ReturnBoolean)

g_TextCalctxtRadius,Cancel

EndSub

PrivateSubtxtRail_BeforeUpdate(ByValCancelAsMSForms.ReturnBoolean)

g_TextCalctxtRail,Cancel

EndSub

PrivateSubtxtStile_BeforeUpdate(ByValCancelAsMSForms.ReturnBoolean)

g_TextCalctxtStile,Cancel

EndSub

PrivateSubtxtWidth_BeforeUpdate(ByValCancelAsMSForms.ReturnBoolean)

g_TextCalctxtWidth,Cancel

EndSub

PrivateSubUserForm_Initialize()

DimstrEMFAsString

DimFSOAsNewScripting.FiystemObject

OnErrorGoToInit_Error

..setfontsizeforallcontrolsonform

Callg_SetFontSize(Me)

strEMF=gstr_EnsureBackslash(App.Frame.PathOfThisAddin)ADOOR_VBA_EXAMPLE.emf

WithimgDoor

..maketheimagebackcolorthesameasalphacam

Callm_BackgroundColor(imgDoor)

..candyn