i have built a text editor, and it works good, and i have set it to be the default program for opening text files. but when i click on a text file, it opens my text editor, but with no text. i have to open the text file after my text editor is already open? here is my code so far;

************************************************** ********
Private Sub Command1_Click()
CommonDialog1.Filter = "Text Files (*.txt)|*.txt|HTML|*.HTML|All Files|*.*"
CommonDialog1.InitDir = "X:\"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Open CommonDialog1.FileName For Output As 1
Print #1, Text1.Text
Close 1
End If
End Sub

Private Sub Command2_Click()

CommonDialog1.Filter = "Text Files (*.txt)|*.txt|HTML|*.HTML|All Files|*.*"
CommonDialog1.InitDir = "X:\"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Text1.Text = ""
Dim strPath As String
Dim strText As String
strPath = CommonDialog1.FileName

n = Chr(13) + Chr(10) ' this is a charater return
Open strPath For Input As 1
Do Until EOF(1)
Line Input #1, strText
Text1.Text = Text1.Text & strText & n
Loop
Close #1
End If

End Sub

Private Sub Command3_Click()

If Text1.Text <> "" Then
REPLY = MsgBox("ERASE ALL TEXT AND START NEW?", vbYesNo)
If REPLY = vbYes Then Text1.Text = ""
End If

End Sub

Private Sub Command4_Click()
Clipboard.SetText (Text1.Text)
End Sub

Private Sub Command5_Click()
Text1.Text = Clipboard.GetText
End Sub

Private Sub Command6_Click()
If Text1.Text <> "" Then
Printer.Print Text1.Text
Printer.EndDoc
End If
End Sub

Private Sub Command7_Click()
If Text1.Text <> "" Then
REPLY = MsgBox("QUIT WITHOUT SAVING?", vbYesNo)
If REPLY = vbYes Then End
End If

End Sub

Private Sub Command8_Click()
Form2.Show
End Sub
************************************************** ********

also, is there a way to get the scrollbar to stay invisable until the page is filled in a regular textbox, like it does in a rich text box?

[email protected]
WWW.GRIMMUSIC.COM

__________________
---------------------------
A Black sheep moves easy in the darkness.
[email protected]
WWW.GRIMMUSIC.COM

Your program is going to thave to respond to the command line argument that the action you described feeds to it, extract the filename from that argument, and open the file itself.

yes, i'm aware of that, and i've made sure that it IS getting the commend line argument, but i still can't figure out how to use it, i've tried the who "line input" and "input file" and "commonfiledialog.filename" and i still haven't gotten it. any examples?

[email protected]
WWW.GRIMMUSIC.COM

in the form load event add something like

if len(command) > 0 then LoadFile(command)

where LoadFile is the part of the Command2_Click event that open the file, reads it and load into the text box

Marco

you have a point, i'm trying that now.

[email protected]
WWW.GRIMMUSIC.COM

where you say "part of" the command2_click event, can you actually call to part of a procedure likt that? i though if you wanted part of a procedure, you'd have to call to the whole thing? because i'm not getting this still. thanks

[email protected]
WWW.GRIMMUSIC.COM

You have to split command2_click into two methods:

Private Sub Command2_Click()
CommonDialog1.Filter = "Text Files (*.txt)|*.txt|HTML|*.HTML|All Files|*.*"
CommonDialog1.InitDir = "X:\"
CommonDialog1.ShowOpen
If len(CommonDialog1.FileName)>0 Then
LoadFile commondialog1.filename
endif
end sub

private sub LoadFile(strPath as string)
Text1.Text = ""
Dim strText As String

n = Chr(13) + Chr(10) ' this is a charater return
Open strPath For Input As 1
Do Until EOF(1)
Line Input #1, strText
Text1.Text = Text1.Text & strText & n
Loop
Close #1
End If

End Sub