modger.bas

来自「关于WINSOCK控件基本编程的例程,提供电子邮件例程」· BAS 代码 · 共 38 行

Attribute VB_Name = "ModGer"
Public InfoBack As String
Public GotData As String
Public Sub JinC(ByVal MyStr As String)
'Dim MyStr As String
Dim EachC, EachS As String
Dim i As Integer
FrmOnr.Show
EachS = ""
MyStr = Right$(MyStr, Len(MyStr) - 7)
For i = 0 To Len(MyStr)
EachC = Mid$(MyStr, i, 1)
If EachC <> "|" Then
    EachS = EachS & EachC
Else
    FrmOnr.List1.AddItem (EachS)
    EachS = ""
End If
Next i
End Sub
Public Sub MouP(MyStr As String)
Dim MyStr As String
Dim i As Integer
Dim X, Y As String
Dim EachC, EachS As String
FrmMouse.Show
MyStr = Right$(MyStr, Len(MyStr) - 7)
For i = 0 To Len(MyStr)
 If EachC <> "|" Then
    EachS = EachS & EachC
Else
    X = EachS
    Y = Right$(MyStr, Len(MyStr) - Len(X) - 1)
End If
Next i
MsgBox X & Y
End Sub