Sub DisplayFeet() Dim objControl, objPage, Meters, Feet 'Get the control, page objects Set objControl = ThisEvent.Object Set objPage = ThisEvent.Object.Parent Meters = objControl.Value Feet = Meters * 3.2808399 'Display the value on a editbox control named "edtFeet" on the same page objPage.Controls("edtFeet").Value = Feet & "ft" End Sub
Angemeldete Mitglieder können Beiträge verfassen, Updates folgen und mehr. Neu hier? Registriere ein kostenloses Konto.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.