高手,
如何使FORM窗体标题由右向左流动????
如何使FORM窗体标题由右向左流动????
解决方案 »
- 在线等,请问Print #1是什么意思啊
- 請問:access數據怎樣正確導入sql 中
- 关于VB开发CAD的问题。分不多了,不够再加!
- 关于VB打印报表
- 如何利用IWebBrowser2去获取网页上文本框的值??????????
- 我在控件中调用WORD打开一篇文档,当在WORD中插入图片时,DOC对象好像变了。
- 怎样让在运行时加载的控件总在最前面??
- 为什么ADO中的Recordset对象的Recordcount属性值为-1,怎么办?
- 初学VB,望大虾们携手帮助,小弟感激不尽!!!!!!!!!
- run-time error '91' ???
- VB编程把PHP&mysql的网站发布成光盘怎么弄呀
- 如何将文字形式转化成图片形式?急!
是caption改变吗?
Private Sub Command1_Click()
If Timer1.Enabled = False Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End SubPrivate Sub Form_Load()
Timer1.Interval = 500
Form1.Caption = Space(90) & "欢迎使用本系统"
Form1.WindowState = 2
End SubPrivate Sub Timer1_Timer()
Form1.Caption = Mid(Form1.Caption, 5, Len(Form1.Caption))
If Len(Form1.Caption) = 0 Then
Form1.Caption = Space(90) & "欢迎使用本系统"
End If
End Sub
Dim i As Integer
Dim strCaption As String
Private Sub Command1_Click()
Timer1.Enabled = True
End SubPrivate Sub Form_Load()
i = 0
Timer1.Enabled = False
Timer1.Interval = 100
strCaption = Form1.Caption
End SubPrivate Sub Timer1_Timer()
i = i + 1
Dim j As Integer
strspace = Space(i)
Form1.Caption = strspace & Form1.Caption
If i > 20 Then
i = 0
Form1.Caption = strCaption
End If
End Sub
Const x = "滚动的标题"
Dim i As Long
Private Sub Form_Load()
Timer1.Interval = 100
num = (Me.Width - Me.TextWidth(x)) / Me.TextWidth(" ")
i = num
End SubPrivate Sub Timer1_Timer()
i = i - 1
Me.Caption = String(i, " ") & x
If i = 0 Then i = num
End Sub