小玩具
来源:互联网 发布:sql显示表结构 编辑:程序博客网 时间:2024/04/27 14:21
昨天说的小玩具今天来发布了:
Jmouse LCD Toy - 点击这里下载
运行后可以检测你的 LCD (液晶显示器) 是否有坏点。
操作:ESC 键退出,任意键继续。
(*) Jmouse PCInfo Monitor 构架延迟或取消
(**)以下是该小玩具的源代码,公布此代码后,该玩具不会再更新。
Option Explicit
Dim dwStep As Integer
Private Sub Form_KeyUp()Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
On Error GoTo CheckEnd
If KeyCode = 27 Then
End
Else
Select Case dwStep
Case 2
Me.BackColor = RGB(255, 255, 255)
Label1.ForeColor = RGB(0, 0, 0)
Label1.Caption = "2.请查看屏幕范围内是否有非白色点存在"
Case 3
Me.BackColor = RGB(255, 0, 0)
Label1.Caption = "3.请查看屏幕范围内是否有非红色点存在"
Case 4
Me.BackColor = RGB(0, 255, 0)
Label1.Caption = "4.请查看屏幕范围内是否有非绿色点存在"
Case 5
Me.BackColor = RGB(0, 0, 255)
Label1.Caption = "5.请查看屏幕范围内是否有非蓝色点存在"
Case 6
End
End Select
dwStep = dwStep + 1
End If
CheckEnd:
End Sub
Private Sub Form_Load()Sub Form_Load()
On Error GoTo CheckEnd
If InStr(1, Command, "love") <> 0 Then
MsgBox "I love WYC!", vbInformation + vbSystemModal, "Love"
End If '//这个彩蛋存在于我写的每一个程序里
Label1.Left = (Screen.Width - Label1.Width) / 2
Label1.Top = 0
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.BackColor = RGB(0, 0, 0)
Label1.ForeColor = RGB(255, 255, 255)
Label1.Caption = "1.请查看屏幕范围内是否有非黑色点存在"
dwStep = 2
CheckEnd:
End Sub
Dim dwStep As Integer
Private Sub Form_KeyUp()Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
On Error GoTo CheckEnd
If KeyCode = 27 Then
End
Else
Select Case dwStep
Case 2
Me.BackColor = RGB(255, 255, 255)
Label1.ForeColor = RGB(0, 0, 0)
Label1.Caption = "2.请查看屏幕范围内是否有非白色点存在"
Case 3
Me.BackColor = RGB(255, 0, 0)
Label1.Caption = "3.请查看屏幕范围内是否有非红色点存在"
Case 4
Me.BackColor = RGB(0, 255, 0)
Label1.Caption = "4.请查看屏幕范围内是否有非绿色点存在"
Case 5
Me.BackColor = RGB(0, 0, 255)
Label1.Caption = "5.请查看屏幕范围内是否有非蓝色点存在"
Case 6
End
End Select
dwStep = dwStep + 1
End If
CheckEnd:
End Sub
Private Sub Form_Load()Sub Form_Load()
On Error GoTo CheckEnd
If InStr(1, Command, "love") <> 0 Then
MsgBox "I love WYC!", vbInformation + vbSystemModal, "Love"
End If '//这个彩蛋存在于我写的每一个程序里
Label1.Left = (Screen.Width - Label1.Width) / 2
Label1.Top = 0
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.BackColor = RGB(0, 0, 0)
Label1.ForeColor = RGB(255, 255, 255)
Label1.Caption = "1.请查看屏幕范围内是否有非黑色点存在"
dwStep = 2
CheckEnd:
End Sub
- 小玩具
- 收集一些小玩具
- 一些小玩具的网站
- 发一个Lua写的小玩具
- 小玩具——单词词频统计
- Timer——倒计时小玩具
- 开源硬件 LittleBits 融资千万:小玩具,大生意
- Python小玩具:BMP转字符画(多线程?)
- 【QT小玩具】将图片转换为字符
- BZOJ3437 小P的牧场&&BZOJ1010[HNOI2008] 玩具装箱toy
- 用Scratch实现的自动迷宫生成小玩具
- 小玩具——温度采集项目(一)
- 小玩具——温度采集项目(二)
- 小玩具——温度采集项目(三)
- 小玩具——温度采集项目(四)
- 小玩具——温度采集项目(五)
- 小玩具——温度采集项目(七)
- 小玩具——温度采集项目(八)
- 用C++.NET创建XML文档(用正则表达式和字符串类两种方法匹配)
- 新人使用JMail做邮件发送要注意的几点!
- 关于程序界面换肤的问题--解决
- 虚函数
- 曾经幸福的、痛苦的、该你的、该我的,到此一笔勾销……
- 小玩具
- 《浪漫满屋》MV--命运
- 我为什么要学习Hibernate?
- jive的分页查询
- 用JAVA创建XML文档,为java API文档添加搜索功能
- JAVA做验证码图片
- 系统服务列表chaoqianshishang_NetBar系统服务列表
- 《命运》MV
- 写给自己的话