|
|
シンプルぱっと2APIを利用する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 シンプルぱっと2の終了 †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 |
|
COPYRIGHT By.Syotaro
Yoshida,2002-2008 All Right Reserved.
|