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
Aangemelde leden kunnen berichten plaatsen, updates volgen en meer. Nieuw hier? Registreer een gratis account.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.