计算机vb大小写字母转换,vb做的大小写字母转换器

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

相关文档：

UDP协议基础：

UDP(User Datagram

Protocol)是一种无连接协议，与TCP操作不同，计算机间并不需要建立一个连接，同时，一个UDP应用可同时作为应用的客户或服务器方。

由于UDP协议并不需要建立一个明确的连接，因此建立UDP应用要比建立TCP应用简单得多。在TCP应用中，一个Winsock控制必须明确地设置成&ldqu ......

由底至上是：

• 托管资源

• WMI 基础结构

• 使用者

托管资源

托管资源是任意逻辑或物理组件，通过使用 WMI 进行公开和管理。可以使用 WMI 管理� ......

植物大战僵尸这个小游戏做的还真不错，我看到了几个版本的植物大战僵尸修改器，如C++版，C#版，所以就改写了一个VB版本的，以下是源码

'界面中有两个按钮，分别是cmdSunUnlimited(caption为启用阳光无限)，cmdMoneyUnlimited(caption为启用金钱无限)，并且需要放两个Timer控件，名称为默认值timer1和timer2

'基地址直 ......

VC实现类似VB中的LinkLabel功能

//VB里面有个LinkLabel，VB中的Label在VC中式CStatic，但是VC中CStatic没有类似LinkLabel的功能。可以自己

//添加一点代码来实现：

//不知道为什么IDC_HANDD一定要自己定义一下

#define IDC_HAND MAKEINTRESOURCE(32649)

//处理鼠标移动

void CAppNonameDlg::OnMouseMov ......

摘自VB吧高手鲸无敌兄的一段管首示例代码：

'******* 读取DOS程序ipconfig.exe的返回结果： ********

'作者： 鲸无敌 2006-10-19 21:57

'**************************************************

'窗体代码：Form1

'**************************************************

Option Explicit

Private Const NOR ......