Visual Basic 6 Data

Συζητήσεις για τις γλώσσες του dot Net και για του Visual Studio της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Sup3r
Δημοσιεύσεις: 13
Εγγραφή: 13 Μάιος 2008 12:11

Visual Basic 6 Data

Δημοσίευση από Sup3r » 25 Μάιος 2008 19:23

Έχω φτιάξει ένα προγραμμα με την Visual Basic 6 το οποίο περιέχει καποιες φωτογραφίες που εμφανίζονται με το πάτημα κάποιων command buttons. Το πρόβλημα μου είναι οτι αν αλλάξω την τοποθεσία του φακέλου που περιέχει μέσα το πρόγραμμα (π.χ Επιφάνεια εργασίας, Τα Έγγραφά μου κ.τ.λ) πρέπει να αλλάξω και τον κώδικα για να είναι σε θέση το πρόγραμμα να φορτώσει τις φωτογραφίες. :roll: Μήπως κάποιος ξέρει πως θα μπορούσα όταν τρέχω το πρόγραμμα οι φωτογραφίες να φορτώνονται κανονικά σε οποιαδήποτε τοποθεσία και αν βρίσκεται ο φάκελος του προγράμματος?

Ευχαριστώ!

Άβαταρ μέλους
dva_dev
Script Master
Δημοσιεύσεις: 3790
Εγγραφή: 16 Σεπ 2005 01:32
Επικοινωνία:

Visual Basic 6 Data

Δημοσίευση από dva_dev » 25 Μάιος 2008 21:39

1) App.Path
Επιστρέφει πάντα το path στο οποίο βρίσκεται το exe
2) CurDir
Δουλεύει σχεδόν όπως το προηγούμενο, αλλά αν έχεις φτιάξει συντόμευση και της έχεις αλλάξει το εκκίνηση από (Work Dir) σε κάποιο άλλο pathB θα δείχνει το pathB

Άβαταρ μέλους
dimsis
Reporter
Δημοσιεύσεις: 7994
Εγγραφή: 25 Ιούλ 2001 03:00

Visual Basic 6 Data

Δημοσίευση από dimsis » 25 Μάιος 2008 21:43

Δοκίμασε App.Path & "\images\ονομα_εικονας.jpg"

όπου images είναι ο φάκελος με τις εικόνες σου... και app.path = ο φάκελος από τον οποίο τρέχει εφαρμογή.

Sup3r
Δημοσιεύσεις: 13
Εγγραφή: 13 Μάιος 2008 12:11

Visual Basic 6 Data

Δημοσίευση από Sup3r » 26 Μάιος 2008 03:03

Με συγχωρείται, αλλά επειδή είμαι αρχάριος δεν κατάφερα να βγάλω αποτέλεσμα :roll:

Private Sub Command1_Click()

If Combo1.Text = "NamePicture" Then
Image1.Picture = LoadPicture("C:\Επιφάνεια Εργασίας\pics\NamePicture.jpg")
End If

End Sub

Αυτός είναι ο κώδικας που είχα εισάγει. Πως γίνεται η μετατροπή του κώδικα με το App.Path ?


Ευχαριστώ!

Άβαταρ μέλους
dimsis
Reporter
Δημοσιεύσεις: 7994
Εγγραφή: 25 Ιούλ 2001 03:00

Visual Basic 6 Data

Δημοσίευση από dimsis » 26 Μάιος 2008 10:00

Private Sub Command1_Click()
If Combo1.Text = "NamePicture" Then
Image1.Picture = LoadPicture(app.path & "\pics\NamePicture.jpg")
End If
End Sub

με προυπόθεση ότι μέσα στο φάκελο που έχεις την εφαρμογή σου, υπάρχει ένας υποφάκελος με όνομα PICS και μέσα σε αυτόν μια εικόνα με όνομα NamePicture.jpg
Sup3r έγραψε:Με συγχωρείται, αλλά επειδή είμαι αρχάριος δεν κατάφερα να βγάλω αποτέλεσμα

Άβαταρ μέλους
paink1ller
Δημοσιεύσεις: 865
Εγγραφή: 21 Ιαν 2008 19:51

Visual Basic 6 Data

Δημοσίευση από paink1ller » 26 Μάιος 2008 12:50

Sup3r έγραψε:Με συγχωρείται, αλλά επειδή είμαι αρχάριος δεν κατάφερα να βγάλω αποτέλεσμα :roll:

Private Sub Command1_Click()

If Combo1.Text = "NamePicture" Then
Image1.Picture = LoadPicture("C:\Επιφάνεια Εργασίας\pics\NamePicture.jpg")
End If

End Sub

Αυτός είναι ο κώδικας που είχα εισάγει. Πως γίνεται η μετατροπή του κώδικα με το App.Path ?


Ευχαριστώ!
βασικα αυτος ο κωδικας δεν εξαρταται απο την τοποθεσια που εχεις το προγραμμα σου.
Αν ο φακελος που εχεις τις φωτογραφιες ειναι παντα σ'αυτο το Path τοτε οπουδηποτε και να εχεις το προγραμμα σου θα "βλεπει" τις φωτογραφιες.
Καπου αλλου στον κωδικα ξερναει το προγραμμα.

Sup3r
Δημοσιεύσεις: 13
Εγγραφή: 13 Μάιος 2008 12:11

Visual Basic 6 Data

Δημοσίευση από Sup3r » 26 Μάιος 2008 13:27

Ευχαριστώ πολύ παίδες! Όλα καλά! :D

Απάντηση

Επιστροφή στο “dot Net και Visual Studio”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες