在信息技术教学过程中,教师经常需要使用学生机进行演示,而学生往往不能及时说出自己的机号,导致教师要花费一些时间去确认机号,再从教学广播软件中找到该生,进行演示。在学校的机房管理中,通常是用贴纸将机号贴在每台显示器上,然而贴纸时间长了容易掉下来,或者被学生涂改、损坏,导致学校每学期都要更换标签,耗费了一定的人力,造成了一定的浪费。如果学生的机号能够自动、醒目地显示在学生机的桌面上,就能省时省力、更方便地教学。
我们可利用VB设计一个小程序,在桌面右上角显示当前计算机名,且开机自动启动。以下是具体的操作过程。
1.新建一个工程,设置窗体的高度为3000、宽度为9000。(如图1、图2)
图1
图2
2.添加一个标签控件,用来显示计算机名,标签高度设置为3000、宽度为9000。(如图3、图4)
图3
图4
3.标签文本内容设置为计算机名,标签字体设置为100磅、红色,居中显示。(如图5)在窗口的加载事件里添加如下代码:
Private Sub Form_Load()
Label1.Caption = VBA.Environ("computername") '标签文本显示计算机名
Label1.Font.Size = 100 '标签文本字号设置为100
Label1.ForeColor = RGB(255, 0, 0) '标签文本颜色设置为红色
Label1.Alignment = 2 '标签文本居中对齐
End Sub
图5
4.在窗口的加载事件里添加如下代码,使窗体位于桌面右上角。(如图6)
图6
Form1.Top = 0'使窗体位于桌面顶部
Form1.Left = Screen.Width - Form1.Width'使窗体位于桌面右边
5.使窗体透明。
(1)使窗体透明要用到API函数。现定义引用API函数,分别是:
'窗口透明API
Private Declare Function SetLayeredWindow Attributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'窗口透明常数
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2
'使用此参数,透明度有效,透明颜色无效
Const LWA_COLORKEY = &H1 '使用此参数,透明度无效,透明颜色有效
(2)在窗口的加载事件里添加以下代码:
'窗体透明
Dim rtn As Long
Me.BackColor = RGB(0, 0, 0)
'设置一下窗口的颜色,RGB(0, 0, 0)参数就是要透明掉的颜色
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, RGB(0, 0, 0), 150, LWA_ALPHA
'在调用函数的语句中,如果使用LWA_ALPHA 参数,即
SetLayeredWindowAttributes hwnd, RGB(0, 0, 0), 150, LWA_ALPHA
则窗口中的控件也会透明,透明颜色会失效
6.现在,把窗体的标题栏隐藏起来。在窗体的属性窗口中,把窗体的BorderStyle设置为none。(如图7)
图7
7.单击“文件”菜单,生成工程exe文件。
8.为了方便师生随时查看机号,可以把生成的可执行文件添加在程序启动菜单中,让此程序一开机就自动启动。方法如下:
(1)打开开始菜单,找到“所有程序”中的“启动”,右击属性后,查看启动菜单所在位置(通常是C:\Users\Administrator\AppData\
Roaming\Microsoft\Windows\Start Menu\Programs),复制该路径。
(2)打开“我的电脑”或“资源管理器”,在地址栏中粘贴该路径。
(3)把生成的可执行文件复制到“启动”文件夹中。
计算机重启后,桌面右上角会自动显示学生电脑的计算机名。