PB干记事本太难了!做了一天都弄不出来
PB做记事本太难了!!做了一天都弄不出来
我的记事本一共有新建,打开,保存,另存为,退出 5个功能全部都做不完整和做不出来。
第一个问题
打开文件显示不了在多行编辑框上,代码如下:
String docname,named
String ls_txt
Integer value
value=GetFileOpenName("開啟文檔",docname,named,"DOC",&
"文檔文件(*.TXT),*.TXT,"&
+"Doc 文檔(*.DOC),*.DOC")
IF value=1 THEN FileOpen(docname,LineMode!,Write!,Shared!,replace!)
ls_txt = mle_1.text
FileWrite(value,ls_txt)
第二个问题
另存为功能保存不了,代码如下:
String docname,named
Integer value,li_ret
Boolean ld_exist
value=GetFileSaveName("保存文檔",&
docname,named,"DOC",&
"文檔文件(*.TXT),*.TXT,"+&
"Doc 文檔(*.DOC),*.DOC")
IF value=1 THEN FileOpen(docname)
ld_exist=FileExists(docname)
IF ld_exist THEN li_ret = MessageBox("保存",&
"按OK按鈕覆蓋所選文件"+docname,&
Question!,YesNo!)
第三个问题:
多行编辑框不知道怎么设置跟随窗口缩小放大。
第四个问题:
怎么在新建跟退出有内容的文本的时候提示用户保存与否?
我是一位刚学PB的超级菜鸟。网上又找不到其他资料了。PB不知道为什么很难在网上找资料学习。现在就感谢这个论坛能让我多学点。希望能看见5个功能完整的代码,让我弄清楚点。先谢谢大神们了。求打救!
------解决方案--------------------
我的记事本一共有新建,打开,保存,另存为,退出 5个功能全部都做不完整和做不出来。
第一个问题
打开文件显示不了在多行编辑框上,代码如下:
String docname,named
String ls_txt
Integer value
value=GetFileOpenName("開啟文檔",docname,named,"DOC",&
"文檔文件(*.TXT),*.TXT,"&
+"Doc 文檔(*.DOC),*.DOC")
IF value=1 THEN FileOpen(docname,LineMode!,Write!,Shared!,replace!)
ls_txt = mle_1.text
FileWrite(value,ls_txt)
第二个问题
另存为功能保存不了,代码如下:
String docname,named
Integer value,li_ret
Boolean ld_exist
value=GetFileSaveName("保存文檔",&
docname,named,"DOC",&
"文檔文件(*.TXT),*.TXT,"+&
"Doc 文檔(*.DOC),*.DOC")
IF value=1 THEN FileOpen(docname)
ld_exist=FileExists(docname)
IF ld_exist THEN li_ret = MessageBox("保存",&
"按OK按鈕覆蓋所選文件"+docname,&
Question!,YesNo!)
第三个问题:
多行编辑框不知道怎么设置跟随窗口缩小放大。
第四个问题:
怎么在新建跟退出有内容的文本的时候提示用户保存与否?
我是一位刚学PB的超级菜鸟。网上又找不到其他资料了。PB不知道为什么很难在网上找资料学习。现在就感谢这个论坛能让我多学点。希望能看见5个功能完整的代码,让我弄清楚点。先谢谢大神们了。求打救!
pb
power builder
------解决方案--------------------
forward
global type w_main from window
end type
type cb_5 from commandbutton within w_main
end type
type cb_saveas from commandbutton within w_main
end type
type cb_save from commandbutton within w_main
end type
type cb_open from commandbutton within w_main
end type
type cb_new from commandbutton within w_main
end type
type mle_1 from multilineedit within w_main
end type
end forward
global type w_main from window
integer width = 3200
integer height = 1828
boolean titlebar = true
string title = "Untitled"
boolean controlmenu = true