RayShade » 28.04.2003 (Пн) 12:49
Берешь форму. Кидаешь на нее TextBox с multiline = true, scrollbars = 2
В Menu Editor делаешь меню File в нем два подменю Open и Save.
Кидаешь на форму CommonDialog.
Пишешь примерно такой код:
private sub menuopen_click()
on error goto errhdl
with commondialog1
.cancelerror = true
.showopen
open .filename for input as #1
do until eof(1)
line input #1,st
text1.text = text1.text & vbcrlf & st
loop
end with
close #1
errhdl:
end sub
private sub menusave_click()
on error goto errhdl
with commondialog1
if .filename = "" then .showopen
open .filename for output as #1
print #1, text1.text
close #1
end with
end sub