用PB编写一个记事本程序

[qq_30584827]

小弟最近刚刚学PB，不是很会。
希望各位大神能帮帮小弟，给个源代码，最好再解释一下。

[WorldMobile]

http://download.csdn.net/detail/lzp_lrp/5869173

[qq_30584827]

@lzp_lrp 我下载了一个功能比较全的记事本，但是好多地方看不懂

[qq_30584827]

引用 1 楼 lzp_lrp 的回复:

http://download.csdn.net/detail/lzp_lrp/5869173

IF FileExists(is_filename) THEN IF Messagebox("另存为",is_path+string("已存在。~n要替换它吗？"), & Exclamation!,YESNO!,2) = 2 THEN RETURN END IF END IF ii_FileNum = fileopen(is_path,StreamMode!,Write!,LockReadWrite!,Replace!) filewrite(ii_FileNum,w_notepad.mle_notepad.text) fileclose(ii_FileNum) ib_store = TRUE