FrontPage > simplepat2/api

シンプルぱっと２APIを利用するVB6サンプルコード †

プロパティの利用とオブジェクトの生成 †

Dim spat As Object

Private Sub Form_Load()
Dim txt As String

    Set spat = CreateObject("SimplePat2.API")
    txt = "ID:" + CStr(spat.UserAccount()) + vbCrLf
    txt = txt + "Bank:" + CStr(spat.BankAccount) + vbCrLf
    txt = txt + "購入:" + CStr(spat.TodayPurchase) + vbCrLf
    txt = txt + "払い戻し：" + CStr(spat.TodayPayment) + vbCrLf
    
    Text1.Text = txt

End Sub

シンプルぱっと２の終了 †

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    spat.Quit
    Set spat = Nothing

End Sub

開催情報の取得 †

Private Sub Command1_Click()

    spat.GetKaisaiInfo

End Sub