|
|
|
| |
odisable ''取消 undo 功能
text1.text = buffer ''显示文本
undonew = buffer ''保存文本
buffer = "" ''释放内存
buffer1 = ""
screen.mousepointer = 0 ''恢复鼠标指针
me.caption = "记事本 - " + filename ''修改标题显示
end if
end sub
private sub paste_click()
text1.seltext = clipboard.gettext
end sub
private sub picture1_mousemove(button as integer, shift as integer, x as single, y as single)
label1 = "工具栏"
end sub
private sub picture1_resize()
if picture1.width > label1.left then
label1.width = picture1.scalewidth - label1.left
end if
end sub
private sub save_click()
dim filenum as integer ''文件句柄号
commondialog1.showsave ''显示保存对话框
if len(commondialog1.filename) > 0 then
''有输入文件名
filename = commondialog1.filename ''保存文件名
filenum = freefile() ''获得可用文件号
open filename for output as filenum ''打开输出文件
''如果无指定文件，则创建新文件
print #filenum, text1.text ''输出文本
close filenum ''关闭文件
me.caption = "记事本 - " + filename ''修改标题显示
imgundodisable
end if
end sub
private sub text1_change()
if not imgundo.enabled then
''使“undo”按钮可用
imgundoenable
end if
undostring = undonew
undonew = text1
end sub
private sub text1_click()
check_imgcutcopy
end sub
private sub text1_keyup(keycode as integer, shift as integer)
check_imgcutcopy
end sub
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] |
|
|
|
|
|