von Dr.N » So, 11.12.2011 18:32
Für jeden Datensatz soll ein Bild, dessen Dateiname in Datensatz enthalten ist, im Formular erscheinen.
Gegeben:
V3.3 Base
Formular "Mainform" mit u.a. Textfeld (Bilddateiname) "textBild" und Grafisches Kontrollfeld "Grafisches Kontrollfeld 1"
Ereignis: z.Z. Maus über Grafischen Kontrollfeld
Makro:
Sub bildanzeigen( oEvt as Object )
dim Pfad as String
oMainForm = oEvt.Source
oImg = oMainForm.getByName("Grafisches Kontrollfeld 1")
oBildname = oMainForm.getbyName("textBild")
if oBildname.Text > "" then
Pfad = "M:\personen\"+oBildname.Text+".jpg"
oImg.ImageUrl = ConvertToURL(Pfad)
End If
End Sub
Bei den Zeilen:
oImg = oMainForm.getByName("Grafisches Kontrollfeld 1")
oBildname = oMainForm.getbyName("txtBild")
kommt Fehler: Eigenschaft oder Methode nicht gefunden: GetbyName
Das Makro lief früher mit V3.0 (andere Bezeichner). Damals mühsam ohne Basic-Kenntnisse (nur das Basic vor 20 Jahren) zusammmengesucht.
Help me!
Für jeden Datensatz soll ein Bild, dessen Dateiname in Datensatz enthalten ist, im Formular erscheinen.
Gegeben:
V3.3 Base
Formular "Mainform" mit u.a. Textfeld (Bilddateiname) "textBild" und Grafisches Kontrollfeld "Grafisches Kontrollfeld 1"
Ereignis: z.Z. Maus über Grafischen Kontrollfeld
Makro:
Sub bildanzeigen( oEvt as Object )
dim Pfad as String
oMainForm = oEvt.Source
oImg = oMainForm.getByName("Grafisches Kontrollfeld 1")
oBildname = oMainForm.getbyName("textBild")
if oBildname.Text > "" then
Pfad = "M:\personen\"+oBildname.Text+".jpg"
oImg.ImageUrl = ConvertToURL(Pfad)
End If
End Sub
Bei den Zeilen:
oImg = oMainForm.getByName("Grafisches Kontrollfeld 1")
oBildname = oMainForm.getbyName("txtBild")
kommt Fehler: Eigenschaft oder Methode nicht gefunden: GetbyName
Das Makro lief früher mit V3.0 (andere Bezeichner). Damals mühsam ohne Basic-Kenntnisse (nur das Basic vor 20 Jahren) zusammmengesucht.
Help me!