Sub Image Dim Image1 Set Image1= Applet.Forms("Supports").Pages("Page2").Controls("Image1") Image1.Value = "C:\Temp\Streetsign_Database_LatLong\Images\R1-3.jpg" End Sub Sub Image Dim Image1 Set Image1= Application.Applets("Custom Settings").Forms("Supports").Pages("Page2").Controls("Image1") Image1.Value = "C:\Temp\Streetsign_Database_LatLong\Images\R1-3.jpg" End Sub Sub Image Dim Image1 Set Image1= ThisEvent.Object.Pages("Page2").Controls("Image1") Image1.Value = "C:\Temp\Streetsign_Database_LatLong\Images\R1-3.jpg" End Sub Sub Image Image1.Value = "C:\Temp\Streetsign_Database_LatLong\Images\R1-3.jpg" End Sub
Dim objRS, objSelLayer, objEFPageOneControls4, objEditForm4, objEFPageOneControls2, objEditForm2 Set objSelLayer = Map.SelectionLayer Set objRS = objSelLayer.Records objRS.Bookmark = Map.SelectionBookmark Set objEditForm4 = application.map.layers("Supports").forms("EDITFORM") Set objEFPageOneControls4 = objEditForm4.Pages("page2").Controls Dim varobjectid varobjectid = objEFPageOneControls4("objectid").Value msgbox "varobjectid: " & varobjectid Dim imagename imagename = objEFPageOneControls4("Image1").Name msgbox "Image name : " & imagename Set objEFPageOneControls4.("Image1").Value = "c:\Temp\Streetsign_Database_LatLong\Images\R1-3.jpg"
Dim objRS, objSelLayer, objEFPageOneControls4, objEditForm4, objEFPageOneControls2, objEditForm2 Set objSelLayer = Map.SelectionLayer Set objRS = objSelLayer.Records objRS.Bookmark = Map.SelectionBookmark Set objEditForm4 = application.map.layers("Supports").forms("EDITFORM") Set objEFPageOneControls4 = objEditForm4.Pages("page2").Controls Dim varfilepath varfilepath = "C:\Temp\StreetSign_Collection_ArcPAD\Images\" Dim varimagename varimagename = "R1-3.jpg" objEFPageOneControls4("Image1").Visible = True objEFPageOneControls4("Image1").Enabled = True objEFPageOneControls4("Image1").Value = varfilepath & varimagename