Visual Basic kai mp3

[giannis2001]

Xerei kanenas pws mporw na ftiaxw ena programma se vb pou na paizei kai mp3?

[Paulus]

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]

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]

thanx alla to MCI de paizei mono WAV?Pws to vazw na paizei kai MP3?Tha koitaxw ti selida pou mou proteineis.

[Paulus]

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]

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]

re paidia mia kai leme gia VB pws mporw na xrisimopoiisw to TreeView control gia na pigainw se dirs,folders ktl.?

[Paulus]

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]

Thanx an kai me vlepw telika na xrisimopeiw ton paradosiako tropo tis VB.Diladi ta default controls pou exei.