Guida come fare il tasto sfoglia x il proprio lettore che ti dia subito l'url!!

[xXx.saiev.xXx]

ecco come :
crei un modulo e ci inserisci
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Function LaunchCD(strform As Form) As String
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = strform.hWnd
sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) & _
"mp3 Files (*.mp3)" & Chr(0) & "*.mp3" & Chr(0)
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = String(257, 0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = "C:\"
OpenFile.lpstrTitle = "Select a file using the Common Dialog DLL"
OpenFile.flags = 0
lReturn = GetOpenFileName(OpenFile)
If lReturn = 0 Then
MsgBox "A file was not selected!", vbInformation, _
"Select a file using the Common Dialog DLL"
Else
LaunchCD = Trim(Left(OpenFile.lpstrFile, InStr(1, OpenFile.lpstrFile, vbNullChar) - 1))
End If
End Function



poi sotto il button "sfoglia" metti :

Me!Text1 = LaunchCD(Me)

text1 varia dal nome che ai mexo tu


fonte :

Perfavore, Entra oppure Registrati per vedere i Link!

 

[shinil35]

è??? Spiega di nuovo cosa fa non ci ho capito niente! xD

 

[xXx.saiev.xXx]

che se ti vuoi creare un lettore audio e vuoi che qnd carichi una canzone con il tasto sfoglia venga subito l'url... ecco la guida!^^

 

[shinil35]

a ok... Forte... Forse mi servirà...

 

[davide994]

per quel che ho capito la prima parte di codice va nel tasto sfoglia...la prima ve messa in un modulo...scusa l' ignoranza ma ho appena iniziato a programmare in vb6...cos' è un modulo?

 

[bho]

a me da errore dice ke launch cd è un nome ambiguo ^^

 

[FireFox]

Form > Aggiungi Module
E ci scrivi questo nel Module

Perfavore, Entra oppure Registrati per vedere i codici!

Poi dichiari l'altro blocco di codice.
E poi l'altro ancora serve per il bottone sfoglia.

 

[bho]

si lo so è quello ke c'è scritto sopra però a me dice ke questo--->Me!Text1 = LaunchCD(Me) è errato

 

[FireFox]

Prova a sostituirlo con Text1.Text = LaunchCD(ME) °_° Altrimenti lascia perdere :

 

[xXx.saiev.xXx]

text1 l'hai rinominato?? se si nn devi

 

[bho]

fire fox sei un genio XD

 

[-alessio-]

Magari mettete anche il componente Microsoft Common Dialog...
xD

 

[FireFox]

XD Grazie Bho

 

[Ketto93]

Me!Text1 stava ad indicare la textbox1 di quel form perchè c'è la possibilità di creare più form e in un nuovo form creare un altro text1