Re: [Programmer-VB] bagaimana Caranya Menulis Dari VB6 KE Notepad

Wed, 12 Jul 2006 00:20:37 -0700

Ato gini :
 
Private Sub command1_Click()
dim t as double
'buat nulis ke *.txt
Open "C:\indra.txt" for output as #1 'bisa diganti for append coba aja sendiri
print #1, text1.text
close #1
'yang ini buat mbuka notepad scr otomatis
t = Shell("Notepad c:\indra.txt" , vbNormalFocus)
end sub

ageng setia <[EMAIL PROTECTED]> wrote:
Hallo Semuanya

Klo saya boleh bantu kamu:

aktifkan class Microsoft Scripting Runtime

Option Explicit

Private Sub Command1_Click()

Dim text As New Scripting.FileSystemObject
Dim txtFile As Scripting.TextStream
Set txtFile = text.CreateTextFile("C:\Test.txt", True)
txtFile.Write ("" & text1.text & "" & (vbcrlf --untuk enter, vbtab --untuk tag dst)

End Sub

Semoga membantu kamu ya...

Regards

indra gunawan <[EMAIL PROTECTED]> wrote:
Andai saya punya satu tombol dan satu text box.., saya
ingin apa yang saya
tulis di text box itu bisa tertulis di notepad....

Bisa bantuin g gimana caranya...stuck dari pagi
nih..maklum newbie..

please Jangan suggest ke Google...udah banyak waktu
terpakai untuk nyari ke
sana

__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

Yahoo! Music Unlimited - Access over 1 million songs. Try it free.

__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com __._,_.___

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer




SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



__,_._,___

Kirim email ke