锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net滚动屏保 vb滚动条控件怎么设置

IT技术滚动

vb.net屏幕保护程序系统就有这个屏保啊!~!
Option EXPlicit
Dim quitflag As Boolean '声明终止程序标志变量
Dim lleft
'声明隐藏或显示鼠标vb.net滚动屏保的API函数
Private Declare Function ShowCursor Lib "user32"
(ByVal bShow As Long) As Long
'检测鼠标单击或移动
Private Sub Form_Click()
quitflag = True
End Sub
Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single)
Static xlast, ylast
Dim xnow As Single
Dim ynow As Single
xnow = X
ynow = Y
If xlast = 0 And ylast = 0 Then
xlast = xnow
ylast = ynow
Exit Sub
End If
If xnowxlast Or ynowylast Then
quitflag = True
End If
End Sub
'检测按键
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
quitflag = True
End Sub
Private Sub Form_Load()
Dim X As Long
lleft = 0
'横向滚动文字的起始X坐标
If App.PrevInstance = True Then
'用APP对象的PrevInstance属性
Unload Me
'防止同时运行屏幕保护程序的两个实例
Exit Sub
End If
Select Case Ucase$(Left$(Command$, 2))
'装载命令行参数
Case "/S" '在显示器属性对话框中单击vb.net滚动屏保了
预览按钮或屏幕保护程序被系统正常调用 。
Show
'全屏显示Form1窗体
Randomize
'初始化随机数生成器
X = ShowCursor(False)
'隐藏鼠标
BackColor = VBBlack
Do
Timer2.Enabled = True
'启动Timer2 ,显示屏幕保护滚动文字
DoEvents
'转让控制权,以便检测鼠标和按键行为
Loop Until quitflag = True
'运行屏幕保护滚动文字直至有鼠标和按键行为
Timer2.Enabled = False
'终止滚动文字
Timer1.Enabled = True
'启动Timer1,退出屏幕保护程序
Case Else
Unload Me
Exit Sub
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim X
X = ShowCursor(True)
'显示鼠标
End Sub
Private Sub Timer1_Timer()
Unload Me
'退出屏幕保护程序
End Sub
Private Sub Timer2_Timer()
显示横向滚动文字
lleft = lleft100
If lleft = 11810 Then
lleft = 0
Lab1.Top = Int(Rnd * 7000)
End If
Lab1.Left = lleft
Timer2.Enabled = False
End Sub
如何用VB.NET写一个简单的屏幕保护程序？在窗体上建立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 = TargetStrEveryStr(i)
Next i
Text2 = TargetStr
TargetStr = \"\"
End Sub
引号前面怎么自动给加了个“\”？用的时候请手动把那几个“\”去掉
vb.net中如何添加滚动条 ， 像在VB6中那样的 。不是窗体本身的滚动条建立滚动条的方法如下：
（1）将鼠标移到ToolBox内的WinForm标签页的HscrollBar控件上 ， 单击鼠标左键 。
（2）将指针移至窗体中适当的位置 ， 按住鼠标左键并拖动鼠标将HscrollBar控件调整到合适的大小放开左键 。
（3）同样，再在Form上设置一个VscrollBar控件 。
【vb.net滚动屏保 vb滚动条控件怎么设置】vb.net滚动屏保的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于vb滚动条控件怎么设置、vb.net滚动屏保的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：显卡驱动没有也能用怎么办，显卡驱动没有也能用怎么办啊

    下一篇：域名绑定到服务器，域名绑定服务器查询