易截截图软件、单文件、免安装、纯绿色、仅160KB

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中Winsock控制的UDP协议的使用

  UDP协议基础:
  UDP(User Datagram
Protocol)是一种无连接协议,与TCP操作不同,计算机间并不需要建立一个连接,同时,一个UDP应用可同时作为应用的客户或服务器方。
  由于UDP协议并不需要建立一个明确的连接,因此建立UDP应用要比建立TCP应用简单得多。在TCP应用中,一个Winsock控制必须明确地设置成&ldqu ......

VB命名规则及代码规范

VBA
命名规则及代码规范
 
马维峰
(maweifeng@263.net
)
 
1.      
VBA
命名规则
一个好的命名规则可以提高程序的可读性,减少错误发生的概率,命名规则不是一定的,不同的人有不同的规则和习惯,但在编程过程中,对于个人或工作组,一定要遵守相同的命名规则。
1.1. ......

VB版 植物大战僵尸修改器

植物大战僵尸这个小游戏做的还真不错,我看到了几个版本的植物大战僵尸修改器,如C++版,C#版,所以就改写了一个VB版本的,以下是源码
'界面中有两个按钮,分别是cmdSunUnlimited(caption为启用阳光无限),cmdMoneyUnlimited(caption为启用金钱无限),并且需要放两个Timer控件,名称为默认值timer1和timer2
'基地址直 ......

vb制作可输出函数的通用DLL VB_DLL_Link用法

vb制作可输出函数的通用DLL---VB_DLL_Link用法
论坛越来越多人关注dll,特分享一下vb制作可输出函数的通用DLL---VB_DLL_Link用法
    大家知道,VB6只能制作ActiveX DLL文件,制作能输出函数的通用DLL文件通常要用到VC等工具。实际上,VB在编译的时候加以控制,经过适当处理也是可以制作通用DLL的。使用VB_DLL_ ......

VB sytem32\ieframe.dll找不到的解决方案

c:\windows\sytem32\ieframe.dll\1找不到,错误解决方案.
这个ieframe.dll是vb中WebBrowser 调用的控件,当你用vb再次打开你的工程之后,就可以发现以前的WebBrowser 控件没有了。而且再次加载也是不能的了,这时就需要用到下面的方法来处理:
把以下内容做成一个注册表文件fixieframe.reg,导入注册表即可:
Windows Re ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号