| |
|
|
| | С помощью vb можно как то проигрывать файлы *.kar
Есть у кого нибудь идеи или советы? | |
| |
| |
| |
 2 Кб. |
|
| | А чем их вообще играют?
если ассоциированной прогой?
у меня есть такой кодик
bflag = fHandleFile(Me.LISTATTACH.Column(6), WIN_NORMAL)
fHandleFile - ф-я открывающая файл из Me.LISTATTACH.Column(6) соответствующим приложением. | |
| |
| |
| |
|
|
| | Хрен их знает чем их играют....
стою вот как баран перед воротами.
хотел хоть ба поднакачать их - несколько штук.
чё та никак нигде не найду.
==========================================
кодик наверное подойдёт, если приложение подобрать для открытия этих файлов. | |
| |
| |
|
|
|
|
| |
|
|
| | готовлюся, типа....
Это чё выдалось - проигрыватели что ли. | |
| |
| |
|
|
| |
|
|
| | блин - какую скачать  | |
| |
| |
| |
|
|
| | Attribute VB_Name = "MdlOpenFileAss"
Option Compare Database
Option Explicit
Private Declare Function apiShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" _ (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) _ As Long '***App Window Constants***
Public Const WIN_NORMAL = 1 'Open Normal
Public Const WIN_MAX = 2 'Open Maximized
Public Const WIN_MIN = 3 'Open Minimized '***Error Codes***
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_MEM = 0&
Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11& | |
| |
| |
| |
|
|
| | Это экспорт модуля, а чЁ? АААА .Щас
Option Compare Database
Option Explicit
Private Declare Function apiShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) _
As Long
'***App Window Constants***
Public Const WIN_NORMAL = 1 'Open Normal
Public Const WIN_MAX = 2 'Open Maximized
Public Const WIN_MIN = 3 'Open Minimized
'***Error Codes***
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_MEM = 0&
Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&
'***************Usage Examples***********************
'Open a folder: ?fHandleFile("C:\TEMP\",WIN_NORMAL)
'Call Email app: ?fHandleFile("mailto:dash10@hotmail.com",WIN_NORMAL)
'Open URL: ?fHandleFile("http://home.att.net/~dashish", WIN_NORMAL)
'Handle Unknown extensions (call Open With Dialog):
' ?fHandleFile("C:\TEMP\TestThis",Win_Normal)
'Start Access instance:
' ?fHandleFile("I:\mdbs\CodeNStuff.mdb", Win_NORMAL)
'****************************************************
Function fHandleFile(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
'First try ShellExecute
lRet = apiShellExecute(hWndAccessApp, vbNullString, _
stFile, vbNullString, vbNullString, lShowHow)
If lRet > ERROR_SUCCESS Then
stRet = vbNullString
lRet = -1
Else
Select Case lRet
Case ERROR_NO_ASSOC:
'Try the OpenWith dialog
varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " _
& stFile, lShowHow)
lRet = (varTaskID <> 0)
Case ERROR_OUT_OF_MEM:
stRet = "Error: Out of Memory/Resources. Couldn't Execute!"
Case ERROR_FILE_NOT_FOUND:
stRet = "Error: File not found. Couldn't Execute!"
Case ERROR_PATH_NOT_FOUND:
stRet = "Error: Path not found. Couldn't Execute!"
Case ERROR_BAD_FORMAT:
stRet = "Error: Bad File Format. Couldn't Execute!"
Case Else:
End Select
End If
fHandleFile = lRet & _
IIf(Len(stRet) = 0, vbNullString, ", " & stRet)
End Function
|
| |
| |
| |
| |
|
|
| | Во спасибо - отформатированный код - более понятен, а то я поначалу офигел, пока знакомые слова нашёл.  | |
| |
| |
|
|
| |
|
|
| | пока попробовать не могу
надо файлы караочные и прогу под них заточенную
и тада попробую из списка выбираем файл, в колонке6 путь к файлу и открываем во всё окно с помощью соответствующей файлу программе.
Ты из меня просветлённого барана сделал, спасибо!!!  | |
| |
| |
| |
|
|
| | А это не смотрел
http://www.mymusictools.com/rus/download/kar/ | |
| |
| |
| |
|
|
| | а чё тама?
ААААА смотрел, ды хто его знает какую качать
Мне нужно (Free) - бесплатную какую нить......
а там шаравары | |
| |
| |
| |
|
|
| | наверное вот это
http://www.karaoke.ru/karaoke-systems/software/galakar-player/
Программа является ShareWare, то есть Вы можете пользоваться ей бесплатно, но она будет вас уведомлять о незарегистрированности версии. Купить лицензию можно здесь ($14,95). Понимая неплатежеспособность российских жителей, публикуем открытый ключ: «КАРАОКЕ ПО-РУССКИ» для Galakar. Кавычки набирать не надо. | |
| |
| |
|
|
|
|
