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程序的自显注册码。我也不知道该怎么叫，就是找到出现注册码的地方，然后用对话框弹出来。说白了就是用MessageBox把一个字符串给弹出来（没追求阿。。。）
为了有点追求，今天不导入user32里面的API，而是把VB里面自带的Msgbox函数给挖出来调用，就是引用MSVBVM60.rtcMsgBox函数。我� ......
长久以来，由于不能直接获得VB类成员函数指针，因为无法在VB的类模块中直接使用定时器控件或定时器API，基于俺编写的获得类成员函数指针的函数，俺编写了这个带定时器功能的类，希望给朋友们一些启发。
一、新建一个类，类名称为clsTimer，类代码如下：
Option Explicit
'* ** ......
有时，为了实现动态更新，我们需要对正处于运行状态的应用程序进行自删除，就像360安全卫士在线升级那样。但是，Windows是不允许删除正处于运行状态的应用程序的，怎么办？一般来说，我们可以使用两个程序来实现，一个专门负责版本检测和删除，一个才是业务需要的主应用程序。能不能将二者合二为一呢？� ......
报告书
名称
实验10-1 实现计算器的功能
姓名
指导教师
学号
日期
任务清单
在本练习中，你将使绘制的计算器完成简单的四则运算。
1) 启动Visual Studio 2005。
2) 新建一个VB Windows� ......
调用方法很简单，在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 ......
