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
相关文档：
'**************************读图片文件**************************************
Sub GetPicfromDB(cn As ADODB.Connection)
On Error Resume Next
Dim ......
“自动点击按钮”小工具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 ......
可以筛选数据，但不能是标准的SQL语句：
Me.DsUserManager1.Tables(0).Select("id > 5 and id <20")
---------------------------------------------------------------
1.筛选：
dataset.tables("tabname").select("id=1")'相当于SQL中WHERE后的条件内容
2.保存到哪？这倒是不知 ......
'* ************************************************************** *
'* 程序名称：modNtSrv
'* 程序功能：实现NT服务
'* 作者：lyserver
'* 联系方式：http://blog.csdn.net/lyserver
'* ************************************************************** *
Option Explicit
' ......
'*************************************************************************
''----------------------------------------------------------------------
'**系统名称：子类化重绘仿QQ2009渐变按钮
'**模块描述：
'**模 块 名：Form1
'**创 建 人：gvu
'**作者网站：http://hi.baidu.com/googlevipuser
'**E-Mai ......
