|
|
|
| |
>''判断鼠标位置,显示不同图像
if button = 1 and (x > 0 and x < imgnew.width and y > 0 and y < imgnew.height) then
imgcopy.picture = imagedown.listimages("copy").picture
elseif button = 1 then
imgcopy.picture = imageup.listimages("copy").picture
end if
end sub
private sub imgcopy_mouseup(button as integer, shift as integer, x as single, y as single)
if button = 1 then
''“抬起”按钮
imgcopy.picture = imageup.listimages("copy").picture
end if
end sub
private sub imgcut_click()
''if text1.sellength > 0 then
cut_click ''剪切
check_imgpaste
check_imgcutcopy
''end if
end sub
private sub imgcut_mousedown(button as integer, shift as integer, x as single, y as single)
if button = 1 then
''“按下”按钮
imgcut.picture = imagedown.listimages("cut").picture
end if
end sub
private sub imgcut_mousemove(button as integer, shift as integer, x as single, y as single)
label1 = "剪切选择的文字到剪裁板"
''判断鼠标位置,显示不同图像
if button = 1 and (x > 0 and x < imgnew.width and y > 0 and y < imgnew.height) then
imgcut.picture = imagedown.listimages("cut").picture
elseif button = 1 then
imgcut.picture = imageup.listimages("cut").picture
end if
end sub
private sub imgcut_mouseup(button as integer, shift as integer, x as single, y as single)
if button = 1 then
''“抬起”按钮
imgcut.picture = imageup.listimages("cut").picture
end if
end sub
private sub imgnew_click()
new_click
end sub
private sub imgnew_mousedown(button as integer, shift as integer, x as single, y as single)
if button = 1 then
''“按下”按钮
imgnew.picture = imagedown.listimages("new").picture
end if
end sub
private sub imgnew_mousemove(button as integer, shift as integer, x as single, y as single)
label1 = "创建新文件" ''修改提示信息
''判断鼠标位置,显示不同图像
if button = 1 and (x > 0 and x < imgnew.width and y > 0 and y < imgnew.height) then
imgnew.picture = imagedown.listimages("new").picture
elseif button = 1 then
imgnew.picture = imageup.listimages("new").picture
end if
end sub
private sub imgnew_mouseup(button as integer, shift as integer, x as single, y as single)
if button = 1 then
''“抬起”按钮
imgnew.picture = imageup.listimages("new").picture
end if
end sub
private sub imgopen_click()
open_click
end sub
p上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页 |
|
|
|
|
|