form1.frm

来自「150个经典VB API应用实例.全部是运用API写的小程序」· FRM 代码 · 共 55 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'函数 (Replace, Split, Join, StrReverse, InStrRev) 的使用
Private Sub Form_Load()
    Me.AutoRedraw = True
    
    ' Replace Sample
    S = "VB4, VB5, VB6"
    S = Replace(S, "VB", "Visual Basic ")
    Print S '結果等于"Visual Basic 4, Visual Basic 5, Visual Basic 6"

    ' Split Sample
    S = "VB4, VB5, VB6"
    X = Split(S, ", ")
    For i = 0 To UBound(X)
    Print X(i)
    Next ' 結果 VB4、VB5、VB6 各輸出成一行
    
    ' Join Sample
    X(0) = "VB4"
    X(1) = "VB5"
    X(2) = "VB6"
    S = Join(X, ", ")
    Print S ' 結果等於"VB4, VB5, VB6"
    
    ' StrReverse Sample
    V = StrReverse("Wangxingjing")
    Print V
    
    ' InStrRev Sample
    X = "Hi Hi Hi Hi Hi Hi"
    V = InStrRev(X, "Hi")
    ' 結果 V = 16
    Print V
    
    V = InStrRev(X, "Hi", 12)
    ' 結果 V = 10
    Print V
End Sub