☰

» »

VB in cd

VB in cd

alesrosina ::

eno vprasanje .... delam program, ki se bo nahajal na CDju. Zdej me pa zanima, kako dobit crko cd-roma (D: , E: , al mogoce kej druzga) v katerga je le-ta cd vstavljen (mogoce ima kdo dva cd-roma). Upam da je dost jasno vprasanje.

(vse skupaj delam v VisualBasic 6)

LP, ASPmaster.

StratOS ::

ajd na hitro

Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Const DRIVE_REMOVABLE = 2
Const DRIVE_FIXED = 3
Const DRIVE_REMOTE = 4
Const DRIVE_CDROM = 5
Const DRIVE_RAMDISK = 6

const 0 ali 1 pa je napaka, mislim

Drive=GetDriveType("c:\")

"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."

Gandalfar ::

pomojem, da ni hotu tega. Poskusi pogruntat iz kje se izvajas .. Application.ExeName oz. nekaj podobnega in potem prebrat prvo crko oz. ExctratPath in te funkcije

alesrosina ::

hm... se opravicujem, se vid da ob poznih vecernih urah ne morem vec mislt .....
resil sem zadevo z App.Path
hja, kaj cmo, tud najboljsim se dogaja :D

zdej pa nov problem:

imam 5 pictureboxov, ki so arrayi (torej: picture1(0) , picture1(1), ... , picture1(4) ) v katerih se nahajajo pomanjsane slike iz nekega direktorija. Zdej bi pa rad, da se odpre nova forma, v kateri bo ta slika originalne velikosti. Problem pa nastane, kako kontrolirati, ko nekdo klikne na (recimo) picture1(1), da se mu odpre ta slika, ki je naloudana v tem pictureboxu..... upam da je dost jasno vprasanje.

Zgodovina sprememb…

webblod ::

Hja... Dogodek OnClick...

Torej:


 Private Sub Picture1_Click(Index As Integer)
 Select Case Index
 Case 0: ShowPicture(Path)
 Case 1: ShowPicture(Path)
 End Select
 End Sub


Tako nekako bi moralo zgledat... Pri tem sem predpostavljal, da si napisal lastno proceduro za odpiranje slike v novem obrazcu z imenom ShowPicture, ki sprejema kot vhodni parameter pot do slike... Slednjo pa tudi lahko prebereš že iz tiste pomanjšane slike...
There must be a reason, why I'm so damn dissapointed on M$ Visual Basic
WEBblod.NET :: Slovenska programerska scena

StratOS ::

Se opravičujem na hitrem površnem prebiranju posta.
Sedaj vidim kaj delaš in kako sem se zmotil.
"Multitasking - ability to f##k up several things at once."
"It works better if you plug it in."
"The one who is digging the hole for the other to fall in is allready in it."

alesrosina ::

hja, se mi je zdelo, da bo nekaj z select, pa nisem vedel kako. Hvala.
StratOS: odpusceno. :)

Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

[android] vstavljanje slike

Oddelek: Programiranje		71217 (1114) messi
»

LCD Samsung in PiP(slika v sliki)

Oddelek: Zvok in slika		71923 (1818) Seljak
»

[SQL] Insert

Oddelek: Programiranje		252049 (1651) greentech
»

API+VB

Oddelek: Programiranje		262065 (1769) webblod
»

vkljucevanje txt datoteke v ...

Oddelek: Programiranje		131555 (1331) webblod

Več podobnih tem