เรียนรู้ SwishMax (หรือ Flash) เพื่อรับส่งข้อมูลไปมากับ MS Visual Basic 6.0 ภาค 2

Option Explicit

Private Sub Form_Load()
    Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
    ' ปรับหน่วยวัดให้เป็น Pixel เพื่อสะดวกในการกำหนดระยะพิกัดให้กับ Flash
    Me.ScaleMode = 3
    ' Flash Movie มีขนาด 200 x 200 Pixel ... ตามการตั้งค่าหน่วยวัด (3)
    ShockwaveFlash1.Move 0, 0, 200, 200
    txtSend.Text = ""
    txtReceive.Text = ""

    ' โหลดไฟล์ Flash เข้ามา
    Call ShockwaveFlash1.LoadMovie(0, App.Path & "\SwishVB.swf")
End Sub

' โปรแกรมย่อยในการส่งข้อความไปยัง Flash Movie
Private Sub cmdSend_Click()
    If Trim(txtSend.Text) = "" Or Len(Trim$(txtSend.Text)) = 0 Then
        MsgBox "ไม่มีข้อมูลส่งไปหา Flash ครับพี่น้อง ...", vbOKOnly + vbInformation, "รายงานสถานะ"
    Else
        ' ส่งค่าไปให้กับตัวแปร (Variable) ชื่อ DataReceive ที่อยู่ใน Flash
        Call ShockwaveFlash1.SetVariable("DataReceive", txtSend.Text)
    End If
End Sub

' โปรแกรมย่อยในการรับข้อความที่ถูกส่งมาจาก Flash Movie
Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
    If Trim(args) = "" Or Len(Trim(args)) = 0 Then
        MsgBox "ไม่มีข้อมูลส่งมาจาก Flash ครับพี่น้อง ...", vbOKOnly + vbInformation, "รายงานสถานะ"
    Else
        ' command เอาไว้ตรวจสอบในกรณีที่มีหลายๆคำสั่ง (หรือปุ่มกดนั่นแหละ) ที่ส่งออกมาจาก Flash
        ' args ก็คือ Argument หรือ ค่าใดๆที่ถูกส่งมาจาก Flash
        txtReceive.Text = args
    End If
End Sub

Private Sub txtSend_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        Call cmdSend_Click
    End If
End Sub