Small Basic中文站-快乐编程

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 12300|回复: 5

模拟黑板上写字的源代码

  [复制链接]
发表于 2010-6-16 17:25:06 | 显示全部楼层 |阅读模式
模拟在黑板上写字    黑板底色为黑色  粉笔是黄色的  
效果图:
1.png
源代码:
  1. GraphicsWindow.BackgroundColor = "Black"     '定义黑板颜色
  2. GraphicsWindow.PenColor = "Yellow"     '定义粉笔颜色
  3. GraphicsWindow.MouseDown = OnMouseDown
  4. GraphicsWindow.MouseMove = OnMouseMove

  5. Sub OnMouseDown
  6. prevX = GraphicsWindow.MouseX
  7. prevY = GraphicsWindow.MouseY
  8. EndSub

  9. Sub OnMouseMove
  10. x = GraphicsWindow.MouseX
  11. y = GraphicsWindow.MouseY
  12. If (Mouse.IsLeftButtonDown) then
  13. GraphicsWindow.DrawLine(prevX, prevY, x, y)
  14. endif
  15. prevX = x
  16. prevY = y
  17. EndSub
复制代码

回复

使用道具 举报

发表于 2011-2-15 12:39:56 | 显示全部楼层
再加上一段
  1. If (Mouse.IsRightButtonDown) Then
  2.     GraphicsWindow.Clear()
  3.   EndIf
复制代码
是不是就可以实现右键擦除的效果了》!
回复 支持 反对

使用道具 举报

发表于 2011-7-21 13:16:52 | 显示全部楼层
回复上楼:
         经过调试,确实实现了右键擦除的效果,能不能实现右键选择性擦除的功能了。期待中。
回复 支持 反对

使用道具 举报

发表于 2011-8-8 20:50:13 | 显示全部楼层
回复 124603998 的帖子

可以的  很简单的  
    GraphicsWindow.BackgroundColor = "Black"     '定义黑板颜色
    GraphicsWindow.PenColor = "Yellow"     '定义粉笔颜色
    GraphicsWindow.MouseDown = OnMouseDown
    GraphicsWindow.MouseMove = OnMouseMove

    Sub OnMouseDown
    prevX = GraphicsWindow.MouseX
    prevY = GraphicsWindow.MouseY
    EndSub

    Sub OnMouseMove
    x = GraphicsWindow.MouseX
    y = GraphicsWindow.MouseY
    If (Mouse.IsLeftButtonDown) then
    GraphicsWindow.DrawLine(prevX, prevY, x, y)
    endif
    If (Mouse.IsRightButtonDown) Then
      GraphicsWindow.PenColor  = "Black"
      GraphicsWindow.PenWidth=30
      GraphicsWindow.DrawLine(prevX, prevY, x, y)   
    EndIf
    prevX = x
    prevY = y
    EndSub

我用的是投机取巧的方法 可以在画一条很粗的黑线来掩盖
回复 支持 反对

使用道具 举报

发表于 2012-9-16 16:49:24 | 显示全部楼层
  If (Mouse.IsLeftButtonDown) then
    GraphicsWindow.DrawLine(prevX, prevY, x, y)
    endif
需要改为
  If (Mouse.IsLeftButtonDown) then
     GraphicsWindow.PenColor  = "yellow"
      GraphicsWindow.PenWidth=1

    GraphicsWindow.DrawLine(prevX, prevY, x, y)
    endif
回复 支持 反对

使用道具 举报

发表于 2016-3-14 17:36:14 | 显示全部楼层
檫完就不可以改了
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|手机版|小黑屋|Small Basic中文站-快乐编程 ( 闽ICP备09051788号 |

GMT+8, 2017-6-28 01:25 , Processed in 0.279701 second(s), 11 queries , File On.

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表