VB过滤中文字符串源码
添加
两个TEXT(multiline=true)
一个按钮
Private Function isChinese(ByVal asciiv) As Boolean
a = AscW(asciiv)
If Len(Hex$(a)) > 2 Then
isChinese = True
Else
isChinese = False
End If
End Function
Private Sub Command1_Click()
text2.text="" '先清空text2
For i = 1 To Len(Text1.Text)
DoEvents
If isChinese(Mid(Text1.Text, i, 1)) = True Then
Text2.Text = Text2.Text & ""
Else
Text2.Text = Text2.Text & Mid(Text1.Text, i, 1)
End If
Next
MsgBox "替换完毕"
End Sub
http://d.download.csdn.net/down/1160480/woldy
相关文档：
“自动点击按钮”小工具VB源码
Option Explicit
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
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Pri ......
郁闷，我使用的这个空间的IDC商竟然每隔一段时间就要检测绑定的域名是否再未提交备案列表中，如果是就删除，但是却不检测我是否提交了备案，按照他们说法删除域名一天后才能再次绑定，否则这一天内绑定了到下次检测就会再删除。这样我就不停的在后台看，看是否被删除，如果被删除，就再把域名绑定上去，;(很受伤！
于是用V ......
调用方法很简单，在Form中如下书写代码：
Private Sub Form_Load()
SetHotkey 1, "Ctrl,112", "Add" '按 Ctrl+F1 激活指定程序，F1的Ascii码为112
SetHotkey 2, 113, "Add" '按 F2 激活指定程序，F2的Ascii码为113
SetHotkey 3, "Ctrl+Alt,113", "Add" '按 Ctrl+Alt+F2 激活指定程序，F2的Ascii码为113
End Sub
Priva ......
http://blog.csdn.net/cw198624/archive/2009/02/19/3911759.aspx
添加一个ListBox和一个按钮
Option Explicit
Private Declare Function CloseHandle Lib "kernel32" (ByVal Handle As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As L ......
