T
Tony_VBACoder
One thought would be to have an image control on your
Switchboard form where the "Picture" property of the Image
Control would be set to empty (""). Have some sort of
function in your program that would return the full path
to the image based on some value you could enter during
the installation or you could read some value from the
Windows Registry. See sample code below:
***********************************************************
Public Function sGetImagePath(sCity As String) As String
Select Case sValue
Case "London": sGetImagePath = "C:\Images\London.Gif"
Case "Paris": sGetImagePath = "C:\Images\Paris.Gif"
Case "Italy": sGetImagePath = "C:\Images\Italy.Gif"
End Select
End Function
***********************************************************
To display the image on the Form, during your
initialization routine, set the Picture property of the
image control to value you will need to lookup somewhere.
Dim sCity As String
' Lookup the City based on something and pass it to the
function
Me.imgPicture.Picture = sGetImagePath(sCity)
Just a quick thought to get you started.
Switchboard form where the "Picture" property of the Image
Control would be set to empty (""). Have some sort of
function in your program that would return the full path
to the image based on some value you could enter during
the installation or you could read some value from the
Windows Registry. See sample code below:
***********************************************************
Public Function sGetImagePath(sCity As String) As String
Select Case sValue
Case "London": sGetImagePath = "C:\Images\London.Gif"
Case "Paris": sGetImagePath = "C:\Images\Paris.Gif"
Case "Italy": sGetImagePath = "C:\Images\Italy.Gif"
End Select
End Function
***********************************************************
To display the image on the Form, during your
initialization routine, set the Picture property of the
image control to value you will need to lookup somewhere.
Dim sCity As String
' Lookup the City based on something and pass it to the
function
Me.imgPicture.Picture = sGetImagePath(sCity)
Just a quick thought to get you started.