Re: ]] XL-mania [[ Link path

 

Temans,..

Jangan dikira aku bisa...
Ini contoh juga kiriman dari si embak itu..... saya tinggal pakai saja..
Bagi yg belum biasa main 'API' ndak usah mencoba memahami
Pakai aja, (seperti kalau pakai WinAmp, kita kan tidak ingin tahu daleman-nya)

hanya ini masih banyak ribet - nya, harus tulis nama file di cell dsb..

Aktifkan cell yg sudah diisi teks  nama file lengkap (dgn path nya)
klik tombolnya, dengarkan..

Kata si embak.. 

Sebetulnya tidak hanya untuk memutar MUSIC tetapi untuk MEMBUKA
semua file menurut jenisnya (aplikasi peng-Handle-nya
Lihat juga makro untuk CommandButton - nya di modul sheet X.

misal terpakai, dan misalnya akan ada ucapan tengkyu segala macam 

jangan kpd saya...

oiya, ini bukan pak zam "zamproduct" kan ya, soalnya jenis pertanyaannya laen..

' OmRur for siti Vi / 22 feb 2010
' sumber: http://www.ozgrid.com/forum/showthread.php?
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function ShellExecute 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
Private Const SW_HIDE As Long = 0
Private Const SW_NORMAL As Long = 1
Private Const SW_MAXIMIZE As Long = 3
Private Const SW_MINIMIZE As Long = 6

Public Function ShellOper(strFileExe As String, _
  Optional strOperation As String, _
  Optional nShowCmd As Double) As Long
  Dim hWndDesk As Long
  hWndDesk = GetDesktopWindow()
  If Len(strOperation) = 0 Then strOperation = "Open"
  If Len(Dir(strFileExe)) = 0 Then GoTo ErrH
  ShellOper = ShellExecute(hWndDesk, strOperation, strFileExe, 0, 0, nShowCmd)
  If ShellOper <= 32 Then MsgBox "Couldn't " & strOperation & " " & strFileExe
  Exit Function
ErrH:
  ShellOper = -1
End Function

Sub BukaOrMainkan(fName As String)
  Dim Ret
  Ret = ShellOper(fName, "Open", 1)
End Sub


On Wed, Mar 23, 2011 at 9:54 AM,  <zamrony70@yahoo.co.id> wrote:
> Dengan hormat,
>
> Kepada Yth teman2 XL-mania yang budiman, mohon arahan, bagaimana caranya untuk membuat link dalam satu kolom yg isinya path (contoh= c:>lagu/dangdut/begadang.mp3) jika di klik langsung menjalankan file tersebut
>
> Atas bantuannya, diucapkan terima kasih
>
> Salam
> Zamrony

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 101

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| silakan klik... ada buku nih.... dijamin bukan "bom buku"...      |
| http://goo.gl/iQauc... btw kalau ada kerjaan enak kabarin momods  |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___