| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3072 人关注过本帖
标题:请问以下程序怎么违法?
只看楼主 加入收藏
回头一笑
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2017-10-3
收藏
得分:0 
Private Sub Command1_Click()
Dim X As Single
Dim Y As Single
Dim x0 As Integer
Dim x1 As Integer
Dim y0 As Integer
Dim y1 As Integer

Picture1.Scale (1, 1)-(1120, 780)
For Y = 1 To 780 Step 100
For X = 1 To 1120
 Picture1.Line (X, Y)-(1120, Y), vbRed
Next X
Next Y
For X = 1 To 1120 Step 100
For Y = 1 To 780
 Picture1.Line (X, Y)-(X, 780), vbRed
Next Y
Next X

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cls
Me.Print X, Y, Shift '鼠标位置
If Shift = 1 Then '
'
   x0 = (Fix(X / 100)) * 100 + 1
   x1 = x0 + 99                               ' 鼠标所在区域
   y0 = (Fix(Y / 100)) * 100 + 1
   y1 = y0 + 99
   Picture2.Scale (x0 * 2, y0 * 2)-(x1 * 2, y1 * 2) '在picture2里放大
End If
End Sub

Private Sub End_Click()
End
End Sub
改成如上,我以为能如愿放大,实际不成,错字那,不知道。请高手及版主帮忙解惑。谢谢!
2017-11-25 15:13
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
收藏
得分:0 
BorderStyled的值支持0-5

一般窗体的属性含义如下:
vbBSNone        0   无(没有边框或与边框相关的元素)。     
vbFixedSingle     1   固定单边框。可以包含控制菜单框,标题栏,“最大化”按钮,和“最小化”按钮。只有使用最大化和最小化按钮才能改变大小。     
vbSizable      2   (缺省值)可调整的边框。可以使用设置值1列出的任何可选边框元素重新改变尺寸。     
vbFixedDouble     3   固定对话框。可以包含控制菜单框和标题栏,不能包含最大化和最小化按钮,不能改变尺寸。     
vbFixedToolWindow  4   固定工具窗口。不能改变尺寸。显示关闭按钮并用缩小的字体显示标题栏。窗体在   Windows   95   的任务条中不显示。      
vbSizableToolWindow 5   可变尺寸工具窗口。可变大小。显示关闭按钮并用缩小的字体显示标题栏。窗体在   Windows   95   的任务条中不显示。
2017-11-25 15:48
回头一笑
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2017-10-3
收藏
得分:0 
感谢wgs1991老师,一直没上论坛,今日得见您的回复十分感谢。我把原进程删除重写。问题解决了。但仍谢谢。希望放大问题能给帮忙。再至谢意!
2017-11-25 15:49
快速回复:请问以下程序怎么违法?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019264 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved