如何用VB.NET写一个简单的屏幕保护程序?

最好多给出几个代码
2024-12-30 22:47:35
推荐回答(2个)
回答1:

在窗体上建立2个文本框text1和text2,一个按钮command1,text1里面输入你要转换的字符串,text2里面显示结果,代码如下:
Dim MyString As String
Dim EveryStr(50) As String
Dim TargetStr As String
Private Sub Command1_Click()
MyString = Text1
For i = 1 To Len(MyString)
EveryStr(i) = Right(Left(MyString, i), 1)
If Asc(EveryStr(i)) < 123 And Asc(EveryStr(i)) > 96 Then EveryStr(i) = \"_\"
If Asc(EveryStr(i)) < 91 And Asc(EveryStr(i)) > 64 Then EveryStr(i) = \"_\"
TargetStr = TargetStr & EveryStr(i)
Next i
Text2 = TargetStr
TargetStr = \"\"
End Sub

引号前面怎么自动给加了个“\”?用的时候请手动把那几个“\”去掉

回答2:

屏幕保护程序用VB做过,VB.NET没有做过,但是我认为基本相仿,关键问题是你必须做好屏保的原文件(例如动画文件)然后生成exe文件,在exe文件中将动画文件转换成屏保文件并且安装在系统盘的system32目录中即可。
没有原文件(如动画文件),无法写代码。