coba kopi dari file txt ini
parnox2005 <[EMAIL PROTECTED]> wrote: Bos
thanks ya tp sory nih gw coba copy paste trus keluar pesen error
ktnya ngak ada end sub trus gw tambahin eh keluar pesen error lg bunyinya
" Compile error: only comments may appear after end sub,end
function,or end property"
knp ya? mohon pencerahannya.....
--- In [email protected], MUHAMMAD IRFAN <[EMAIL PROTECTED]> wrote:
>
> coba pake ShellExecute
> kopi di form
>
> 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
> Const SW_SHOWNORMAL = 1
> Private Sub Command1_Click()
> 'ini akan membuka MS Word dengan nama winword.exe
> 'kata "winword" bisa kamu ganti dengan nama file lengkap dengan
path-nya
> ShellExecute Me.hwnd, vbNullString, "winword", vbNullString,
"C:\", SW_SHOWNORMAL
> End Sub
>
> semoga bisa membantu
>
> irfan
>
>
> parnox2005 <[EMAIL PROTECTED]> wrote:
Hai semuanya slm kenal....
> gw msh pemula & gw mo tanya
> gini gw mo manggil file trus d tampilkan d layar
> misalnya gini d vb gw buat button kl gw clik button tsb trus mbuka
> file tes.txt
> thanks ya...
>
>
>
>
>
>
> ---------------------------------
> Yahoo! Messenger with Voice. Make PC-to-Phone Calls to the US (and
30+ countries) for 2�/min or less.
>
> [Non-text portions of this message have been removed]
>
---------------------------------
How low will we go? Check out Yahoo! Messengers low PC-to-Phone call rates.
----------
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
Const SW_SHOWNORMAL = 1
Private Sub Command1_Click()
'ini akan membuka MS Word dengan nama winword.exe
'kata "winword" bisa kamu ganti dengan nama file lengkap dengan Path -nya
ShellExecute Me.hwnd, vbNullString, "winword", vbNullString, "C:\",
SW_SHOWNORMAL
End Sub
[Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor --------------------~-->
See what's inside the new Yahoo! Groups email.
http://us.click.yahoo.com/3EuRwD/bOaOAA/yQLSAA/zCsqlB/TM
--------------------------------------------------------------------~->
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
