Gå til innhold

Anbefalte innlegg

Videoannonse
Annonse

Det er heller bedre å legge til en backslash dynamisk, slik at du ikke skulle komme til skade for å skape en feilslått sti. Du kan enkelt skrive denne koden selv:

 

Public Function ValidPath(Path As String) As String

ValidPath = Path & IIf(Right(Path, 1) = "\", "", "\")

End Function

Private Sub Form_Load()

' Selv om det ikke er nødvendig i dette tillfellet, anbefaler jeg å bruke Set når man "kopierer" COM+ objekter.
Set Image1.Picture = ValidPath(App.Path)  & "data\GFX\Ny.bmp"

End Sub

Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
  • Hvem er aktive   0 medlemmer

    • Ingen innloggede medlemmer aktive
×
×
  • Opprett ny...