vb做的大小写字母转换器
'大小写字母转换器vb
'界面包括 command、command1、command2、command3 和一个 text 文本框
'command 为“互转”按钮，command1 为“转大”按钮，command2 为“转小”按钮，command3 为“清除”按钮
Private Sub Command_Click()
Dim i As Integer, n As Integer
Dim x As String, y As Integer, z
i = Len(Text.Text)
x = Text.Text
Text.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = UCase(z)
ElseIf y > 64 And y < 91 Then
z = LCase(z)
End If
Text.Text = Text.Text & z
Next
End Sub
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim x As String, y As Integer, z
i = Len(Text.Text)
x = Text.Text
Text.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = UCase(z)
ElseIf y > 64 And y < 91 Then
z = z
End If
Text.Text = Text.Text & z
Next
End Sub
Private Sub Command2_Click()
Dim i As Integer, n As Integer
Dim x As String, y As Integer, z
i = Len(Text.Text)
x = Text.Text
Text.Text = ""
For n = 1 To i
z = Mid(x, n, 1)
y = Asc(z)
If y > 96 And y < 123 Then
z = z
ElseIf y > 64 And y < 91 Then
z = LCase(z)
End If
Text.Text = Text.Text & z
Next
End Sub
Private Sub Command3_Click()
Text.Text = ""
End Sub
相关文档：
vb制作可输出函数的通用DLL---VB_DLL_Link用法
论坛越来越多人关注dll，特分享一下vb制作可输出函数的通用DLL---VB_DLL_Link用法
大家知道，VB6只能制作ActiveX DLL文件，制作能输出函数的通用DLL文件通常要用到VC等工具。实际上，VB在编译的时候加以控制，经过适当处理也是可以制作通用DLL的。使用VB_DLL_ ......
名称 类型 说明
abort 函数 引起放弃的意外处理
abs 函数 绝对值函数
addexitproc 函数 将一过程添加到运行时库的结束过程表中
addr 函数 返回指定对象的地址
adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列
align 属性 使控件位于窗口某部分
alignment 属性 控件标签的文字位置
allocmem � ......
摘自VB吧高手鲸无敌兄的一段管首示例代码：
'******* 读取DOS程序ipconfig.exe的返回结果： ********
'作者： 鲸无敌 2006-10-19 21:57
'**************************************************
'窗体代码：Form1
'**************************************************
Option Explicit
Private Const NOR ......
重拾VB之四，日志加强篇
关劲松 PMP
一、关于日志记录功能
主要功能点有
1 在程序目录下生成log目录，用于保存日志文件。
2 自动在log目录中，生成日志文件，文件命名用年月日定义，如20100119_log.log。
3 在日志文件中，每行记录一个时间点的运行内容。时间点的精度应该达到毫秒。
4 在日志文件中，� ......
在最新的Windows Workflow Fonudation(WF4, 下文中将简称WF4)中，WF中引入了VB expression，用户可以通过vb表达式为变量赋值。有兴趣的朋友可以安装VS 2010，然后使用一下这个功能。关于这个功能的参考，请看：http://msdn.microsoft.com/en-us/library/ee342461.aspx 什么？ 不知道啥是WF，哦，幸亏你遇到我， ......
