实现动态改变记事标题
来源:百度文库 编辑:神马文学网 时间:2024/04/29 08:29:19
'以下实现动态改变记事标题:
Private Declare Function fwin Lib "user32" Alias "FindWindowA" (ByVal lpClsName As String, ByVal lpWinName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Dim hwnd1&, tmpSTR$, i%
Dim T1 As Boolean
'添加一个TIMER定时器
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = 1
Shell "notepad.exe", vbNormalFocus
hwnd1 = fwin("Notepad", vbNullString)
End Sub
Private Sub Timer1_Timer()
If T1 = 0 Then
i = i + 1
If i >= 100 Then T1 = Not T1
Else
i = i - 1
If i <= 1 Then T1 = Not T1
End If
tmpSTR = Space(i) + "如何制滚动字幕?"
SendMessage hwnd1, &HC, 0, ByVal tmpSTR
End Sub
Private Declare Function fwin Lib "user32" Alias "FindWindowA" (ByVal lpClsName As String, ByVal lpWinName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Dim hwnd1&, tmpSTR$, i%
Dim T1 As Boolean
'添加一个TIMER定时器
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = 1
Shell "notepad.exe", vbNormalFocus
hwnd1 = fwin("Notepad", vbNullString)
End Sub
Private Sub Timer1_Timer()
If T1 = 0 Then
i = i + 1
If i >= 100 Then T1 = Not T1
Else
i = i - 1
If i <= 1 Then T1 = Not T1
End If
tmpSTR = Space(i) + "如何制滚动字幕?"
SendMessage hwnd1, &HC, 0, ByVal tmpSTR
End Sub
实现动态改变记事标题
实现Web页面内容动态改变的dhtml操作
用VC实现动态改变Windows的显示特性
改变SecureCrt的Session标题
用VC实现动态改变Windows的显示特性 - 农民的萝卜地 - CSDNBlog
Aspectwerkz动态实现AOP
用DHTML实现动态表单
王志东论道:动态团队实现敏捷组织
Java RMI 实现代码动态下载
变通实现任意动态调用万能标签
新年快乐!vsflexgrid中怎样改变列标题,有没有行头标题,有没有像datagrid中...
动态改变网页内容(CHtmlView/CWebBrowser2/IE
VC实现串行通信的动态链接库(DLL)
Apache下用rewrite实现动态二级域名解析
实现真正意义上的二维动态数组模板
实现真正意义上的二维动态数组模板1
VC实现串行通信的动态链接库(DLL)A
流程驱动实现IT的动态有效规划(转载)
华国锋记事
记事正文
记事正文
记事正文
中国历史记事
开篇记事