注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

画一个矩形框  

2014-04-30 16:16:21|  分类: B.图形 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
画一个矩形框 - 沉默蜂QQ793136625 - Basic4android安卓编程
 例程运行效果图


http://www.basic4ppc.com/android/forum/threads/drawing-a-selection-window.7023/


代码如下:
Sub Globals
    
Dim Canvas1 As Canvas
    
Dim Rect1 As Rect
    
Dim sx, sy As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Canvas1.Initialize(Activity)
    Rect1.Initialize(
0000)
End Sub

Sub Activity_Touch (Action As Int, X As Float, Y As Float)
    
If Action = Activity.ACTION_DOWN Then
        sx = X
        sy = Y
    
Else
        
'Erase previous rectangle
        Canvas1.DrawRect(Rect1, Colors.Black, False5dip)
        
If Action = Activity.ACTION_MOVE Then
            
'Draw the new rectangle
            Rect1.Left = Min(sx, X)
            Rect1.Right = 
Max(sx, X)
            Rect1.Top = 
Min(sy, Y)
            Rect1.Bottom = 
Max(sy, Y)
            Canvas1.DrawRect(Rect1, 
Colors.White, False5dip)
        
End If
        Activity.Invalidate
    
End If
End Sub

  评论这张
 
阅读(131)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017