giannis2001 Δημοσ. 28 Αυγούστου 2001 Δημοσ. 28 Αυγούστου 2001 Xerei kanenas pws mporw na ftiaxw ena programma se vb pou na paizei kai mp3?
Paulus Δημοσ. 28 Αυγούστου 2001 Δημοσ. 28 Αυγούστου 2001 Mporeis na xrisimopoieiseis ta etoima xeiristiria Multimedia Control i Media Player poy exei i VB.An theleis ta exeis aorata kai ftiaxneis diki sou efarmogi apo pisw pou na ta xrisimopoiei.
Paulus Δημοσ. 28 Αυγούστου 2001 Δημοσ. 28 Αυγούστου 2001 A, ksexasa sorry-an se endiaferoun perissoteres low-level plirofories gia to mp3 format episkepsou ti selida <A HREF="http://www.mp3-tech.org" TARGET=_blank>http://www.mp3-tech.org</A> ti sinistw se olous!
giannis2001 Δημοσ. 29 Αυγούστου 2001 Μέλος Δημοσ. 29 Αυγούστου 2001 thanx alla to MCI de paizei mono WAV?Pws to vazw na paizei kai MP3?Tha koitaxw ti selida pou mou proteineis.
Paulus Δημοσ. 29 Αυγούστου 2001 Δημοσ. 29 Αυγούστου 2001 Exeis dikio gia to mci!Pragmati den ypostirizei mp3-kektimeni taxitita.To Media Player ocx to exeis dokimasei (-to exeis?) einai yperbolika eyxristo-egw me ayto paizw mp3.-An kai apo o,ti katalaba tha se endiaferei perissotero na matheis gia to format toy mp3 -to opoio tha to matheis me ti boitheia toy link.Good luck!
giannis2001 Δημοσ. 30 Αυγούστου 2001 Μέλος Δημοσ. 30 Αυγούστου 2001 den exw dokimasei to media-player pantws to exw.tha to dokimasw kai mias kai eipes to xrisimopeieis gia oti apories exw se esena! thanx
giannis2001 Δημοσ. 30 Αυγούστου 2001 Μέλος Δημοσ. 30 Αυγούστου 2001 re paidia mia kai leme gia VB pws mporw na xrisimopoiisw to TreeView control gia na pigainw se dirs,folders ktl.?
Paulus Δημοσ. 30 Αυγούστου 2001 Δημοσ. 30 Αυγούστου 2001 Tha sou proteinw eidika gia directories kai folders na xrisimopoiiseis to parakatw (xwris na xrisimopoiiseis to Treeview gia to opoio tha prepei na psakseis eite me ti sinartisi dir i alles api).Kaloume ws eksis gia paradeigma:<BR>fold=BrowseForFolder(form1.hwnd,"Test")<P>Bale ta parakatw se ena module:<P>Public Enum BROWSEINFOFLAGS<BR> BIF_RETURNONLYFSDIRS = &H1<BR> BIF_DONTGOBELOWDOMAIN = &H2<BR> BIF_RETURNFSANCESTORS = &H8<BR> BIF_BROWSEFORCOMPUTER = &H1000<BR> BIF_BROWSEFORPRINTER = &H2000<BR> BIF_STATUSTEXT = &H4<BR>End Enum<P>Private Const MAX_PATH = 260<P>Private Declare Function SHBrowseForFolder Lib _<BR>"shell32" (lpbi As BROWSEINFO) As Long<P>Private Declare Function SHGetPathFromIDList Lib _<BR>"shell32" (ByVal pidList As Long, ByVal lpBuffer _<BR>As String) As Long<P>Private Type BROWSEINFO<BR> hWndOwner As Long<BR> pIDLRoot As Long<BR> pszDisplayName As Long<BR> lpszTitle As Long<BR> ulFlags As BROWSEINFOFLAGS<BR> lpfnCallback As Long<BR> lParam As Long<BR> iImage As Long<BR>End Type<P>Public Function BrowseForFolder$(hWnd&, szTitle$)<BR> 'Opens a Browse Folders Dialog Box that displays the<BR> 'directories in your computer<BR> Dim lpIDList As Long, sBuffer As String, tBrowseInfo As BROWSEINFO<BR> <BR> ' Text to appear in the the gray area under the<BR> ' title bar telling you what to do<BR> With tBrowseInfo<BR> .hWndOwner = hWnd ' Owner Form<BR> .lpszTitle = sztitle &chr(0)<BR> .ulFlags = BIF_RETURNONLYFSDIRS Or BIF_DONTGOBELOWDOMAIN<BR> End With<BR> lpIDList = SHBrowseForFolder(tBrowseInfo)<BR> If (lpIDList) Then<BR> sBuffer = Space(MAX_PATH)<BR> SHGetPathFromIDList lpIDList, sBuffer<BR> sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)<BR> BrowseForFolder = sBuffer<BR> End If<BR>End Function
giannis2001 Δημοσ. 31 Αυγούστου 2001 Μέλος Δημοσ. 31 Αυγούστου 2001 Thanx an kai me vlepw telika na xrisimopeiw ton paradosiako tropo tis VB.Diladi ta default controls pou exei.
Προτεινόμενες αναρτήσεις
Αρχειοθετημένο
Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.