vb子程序未定义怎么改怎么办_提示子程序或函数未定义怎么修改。。。
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
在lable1
里
Private Sub Form_Load()
Dim i&, k&
Dim m() As Byte
Dim prew As Long, preh As Long, pret As Long
Dim h As Long, w As Long
ScreenDC = GetWindowDC(0)
ScreenW = Screen.Width / Screen.TwipsPerPixelX
ScreenH = Screen.Height / Screen.TwipsPerPixelY
ReDim m(ScreenW / 3, ScreenH / 3)
Label1.Visible = False
Me.ScaleMode = 3
Me.Show
pret = Me.Top: prew = Me.Width: preh = Me.Height
Me.Move Me.Left, Screen.Height * 2, Screen.Width / 3, Screen.Height / 3
DoEvents
Me.AutoRedraw = True
Label1.AutoSize = True
Label1 = YourWord
Label1.Font.Size = 100
Label1.Font.Size = Label1.Font.Size * (Me.ScaleWidth / Label1.Width) * BorderScale
Label1.Font.Size = Label1.Font.Size * (Me.ScaleWidth / Label1.Width) * BorderScaleMe.FontName = Label1.FontName
Me.FontSize = Label1.FontSize
Me.ForeColor = 0
CurrentX = (Me.ScaleWidth - Label1.Width) / 2
CurrentY = (Me.ScaleHeight - Label1.Height) / 2
Print Label1
For h = 1 To ScreenH / 3
For w = 1 To ScreenW / 3
If Point(w, h) = 0 Then
m(w, h) = 1
End If
Next w
Next h
Cls
SNOW_MAX = ScreenW * ScreenH \ SnowScale
ReDim Snow&(SNOW_MAX, 1), Last&(SNOW_MAX)
Randomize
For i = 0 To SNOW_MAX
NewSnow i
Snow(i, 1) = -Rnd * ScreenH
Next
Me.Move Me.Left, pret, prew, preh
Me.WindowState = 1
On Error Resume Next
Do
For i = 0 To SNOW_MAX
SetPixel ScreenDC, Snow(i, 0), Snow(i, 1), Last(i)
Snow(i, 0) = Snow(i, 0) + Rnd * FALL_SPEED - FALL_SPEED / 2
Snow(i, 1) = Snow(i, 1) + Rnd * FALL_SPEED
If Snow(i, 0) < 0 Or Snow(i, 0) > ScreenW Or Snow(i, 1) > ScreenH Then
NewSnow i
Else
k = Last(i)
Last(i) = GetPixel(ScreenDC, Snow(i, 0), Snow(i, 1))
SetPixel ScreenDC, Snow(i, 0), Snow(i, 1), SnowColor
If m(Snow(i, 0) / 3, Snow(i, 1) / 3) Then
If Rnd < SpotSpeed Then
If Rnd < 0.5 Then Last(i) = WordColor1 Else Last(i) = WordColor2
End If
End If
End If
Next
Sleep FALL_Interval&
DoEvents
If myend Then Exit Sub
Loop
End Sub
Private Sub NewSnow(i&)
Snow(i, 0) = Rnd * ScreenW
Snow(i, 1) = 0
Last(i) = GetPixel(ScreenDC, Snow(i, 0), 0)
End Sub
Private Function ColorDec(ByVal Color1&, ByVal Color2&) As Long
Dim R1%, G1%, B1%
Dim R2%, G2%, B2%
GetRGB Color1, R1, G1, B1
GetRGB Color2, R2, G2, B2
ColorDec = Abs(R1 - R2) + Abs(G1 - G2) + Abs(B1 - B2)
End Function
Private Sub GetRGB(ByVal Color&, ByRef r%, ByRef g%, ByRef b%)
r = (Color Mod 256)
b = (Int(Color \ 65536))
g = ((Color - (b * 65536) - r) \ 256)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
myend = True
DoEvents
DoEvents
End
End Sub
Private Sub Label1_Click()
End Sub
vb子程序未定义怎么改怎么办_提示子程序或函数未定义怎么修改。。。相关推荐
- vb子程序未定义怎么改怎么办_vb中子程序或者函数未定义!求教解决方案,
PrivateSubCommand1_Click()Caption="b样条曲面"CommonDialog1.Filter="数据文件*.txt|*.txt|(*.*)| ...
- vb子程序未定义怎么改怎么办_煤粉输送不畅、秤不稳怎么办?多家企业这样改!...
摘要: CWF型煤粉转子喂料系统优点在于运行稳定.精度高,一致以来受到用户的青睐,但其对煤粉要求也高,尤其是水分含量,直接影响给料的稳定性和受控性. 各种非正常因素对测控的影响较大,容易造成下料不畅. ...
- python刷步数程序设计_利用python+云函数搭建自己的修改步数api接口
[Asm] 纯文本查看 复制代码[{"summary":"{\"slp\":{\"ss\":73,\"lt\" ...
- python未定义_未定义Python函数
当我运行服务器(FLASK app)时,遇到一个函数未定义的错误: 名称错误:未定义名称"format_date" 这是我目前为止的所有代码:from flask import F ...
- 代码操作 ACCESS时为什么老出现XXX函数未定义错误?
为什么老出现XXX函数未定义错误? 问题: 1.为什么以前运行正常的Access数据库,搬到另一台电脑上老出现XXXX函数未定义错误? 2.为什么我在Access中调试通过的sql语句,在VB/ASP ...
- MDK:assert_param函数未定义的错误:Error: L6218E
今天使用奋斗stm32开发板,编译程序时 出现了一下错误,网上有很多解决方案,可是一直没解决, 在链接过程中出现assert_param函数未定义的错误:Error: L6218E: Undefine ...
- 主程序与子程序不在同一程序模块中_分享:宏程序和子程序的应用
其实说起来宏就是用公式来加工零件的. 比如说椭圆,如果没有宏的话,我们要逐点算出曲线上的点,然后慢慢来用直线逼近,如果是个光洁度要求很高的工件的话,那么需要计算很多的点,可是应用了宏后,我们把椭圆公式 ...
- mysql不能改编码_(转)MySQL设置和修改编码问题
mysql版本:5.7.18 一.常用查看字符集设定命令 1.查看数据库支持的所有字符集. show character set; (或 show char set;) 2.查看当前状态命令(显示结果 ...
- 主程序与子程序不在同一程序模块中_数控车床子程序M98、M99编程实例!
把程序中某些固定顺序和重复出现的程序单独抽出来,按一定格式编成一个程序供调用,这个程序就是常说的子程序,这样可以简化主程序的编制.子程序可以被主程序调用,同时子程序也可以调用另一个子程序.这样可以简化 ...
最新文章
- linux 信号软中断的方式
- Scala里List(1,2,3)和(1,2,3)的区别
- mysql的主从分离_Mysql的主从分离配置
- c#养老院老人信息管理系统源码 论文_包河区【失智老人养老院】
- 常见的软件测试方法有,常见的几种软件测试方法都有哪些
- UML视图---构件图和部署图
- x64位xp连接位于32位xp系统上的打印机
- 布谷鸟哈希函数的参数_CuckooHash(布谷鸟散列)
- PSM价格敏感度模型
- U盘文件变成一个快捷方式或者变成一个文件夹的解决办法
- 爱奇艺SOAR探索与实践
- 能力值的计算:一年 365 天,以第 1 天的能力值为基数,记为 1.0,当每天好好学习时能力值相比前一天提高 1‰,当没有学习时由于遗忘等原因能力值相比前一天下降 1‰
- H5 百度高德地图导航
- 复合赋值运算符“+=、-=、*=、/=、%=”详解
- 查看HP小型机的信息的命令集
- 【java初学】面向对象了解
- 如何生成火焰图以及火焰图基本介绍
- 链栈的创建,入栈,出栈!
- autojs微信红包助手代码,供大家参考
- 流量依赖症患者国际漫游指南
热门文章
- goland 远程调试 golang
- python3 pip 报错 pip is configured with locations that require TLS/SSL
- 内核模式下的文件操作
- linux 将文件分成两部分,linux 将大文件分成小文件
- matlab mobile中文版,MATLAB Mobile
- nginx 正则匹配优化(一)
- 保存和恢复应用程序状态
- c语言编译器bug,关于c语言的一个小bug详解
- 2003服务器系统屏蔽广告,电脑总是乱弹广告弹窗?教你彻底关闭
- php复制mysql文件路径_与php 有关的问题 如何将上传的文件路径 保存到数据库中...