资料管理，有关手机短信的编程方式和代码。
在设计一个应用程序时，visual basic许多控件的mousepointer属性允许程序员在预先定义好的若干个鼠标光标形状之中任选其一。但在应用程序中，有时候希望显示一个不同于预定义形状的光标。那么可以添加代码来改变控件的mousemove和dragover事件。下面用实例来说明当鼠标指针移动到一个控件上时，如何改变成不同的形状。
首先创建窗体form1。在form1上添加一个文本框控件text1。在text1控件的dragicon属性的设置对话框中选择一个指针形状（.ico文件）。
将如下代码添加到text1的mousemove事件中：
private sub text1_mousemove(button as integer, shift as integer, x as single, y as single)
text1.drag 1 'icon on
end sub
将如下代码添加到form1的dragover事件中：
private sub form_dragover(source as control, x as single, y as single, state as integer)
text1.drag 0 'icon off
end sub
运行此程序。
在编程领域，尤其是在开发应用程序时，经常会涉及到与用户交互的各种元素，例如控制鼠标光标的行为。Visual Basic（VB）提供了一种方式，让程序员能够自定义控件的鼠标行为，如在特定事件下改变鼠标光标形状。在描述中提到的例子中，我们看到如何在鼠标移动到文本框控件（Text1）上时，将光标更改为预定义之外的形状。
要实现这一功能，你需要在VB环境中创建一个窗体（Form1），并在其中添加一个文本框控件。然后，你可以为文本框的`DragIcon`属性设置一个自定义的光标形状（.ico文件），这使得当鼠标移动到该控件上时，可以显示自定义的光标形状。
接下来，我们需要编写代码来处理鼠标事件。在文本框控件（Text1）的`MouseMove`事件中，添加以下代码：
```vb
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Drag 1 ' 开启拖动模式，显示自定义光标
End Sub
```
这段代码使得当鼠标移动到文本框上时，启动拖动模式，并显示设定的自定义光标。
而在窗体（Form1）的`DragOver`事件中，添加以下代码：
```vb
Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Text1.Drag 0 ' 关闭拖动模式，恢复默认光标
End Sub
```
这段代码确保当鼠标离开文本框或进行其他操作时，会关闭拖动模式，光标恢复为默认形状。
此外，资料还提到了使用VB6.0编写发送手机短信的程序。发送手机短信涉及通信协议，尤其是GSM网络中的PDU（Protocol Data Unit）模式。在PDU模式下，短信内容需要被转换为Unicode编码，同时手机号码也需要转换为特定的PDU格式。
以下是一个将字符串转换为Unicode码的函数示例：
```vb
Public Function chg(rmsg As String) As String
'...
End Function
```
而另一个函数`telc`用于将手机号码转换为PDU格式：
```vb
Public Function telc(num As String) As String
'...
End Function
```
发送短信是通过VB的Mscomm控件实现，它允许与串行通信接口进行交互。在AT命令集的指导下，可以发送特定的AT指令，如`AT+CMGS`，以完成短信的发送。以下是一个简化的发送短信的函数：
```vb
Public Function Sendsms(csca As String, num As String, msg As String) As Boolean
'...
End Function
```
这个函数会结合前面的转换函数，将短信服务中心号码（csca）、接收方手机号码（num）以及短信内容（msg）转换为适当的格式，然后通过Mscomm控件发送。
这个资料涵盖了VB中控件事件处理和自定义光标的使用，以及如何利用VB编写发送手机短信的程序，包括短信内容和手机号码的PDU编码转换。这些知识对于开发具有交互性功能的应用程序，尤其是涉及通信协议的项目，是非常重要的。
wenrui5312013-05-25有关手机短信的编程方式和代码，还挺好用
