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

Category »  จับฉ่ายคอมพิวเตอร์
โดย : Webmaster เมื่อ 8/7/2551 13:17:00
(อ่าน : 12746) 
เรียนรู้ SwishMax (หรือ Flash) เพื่อรับส่งข้อมูลไปมากับ MS Visual Basic 6.0 ภาค 1
ดาวน์โหลด Source Code สำหรับ MS Visual Basic 6.0 - Service Pack 6
 ดาวน์โหลด Visual Basic 6.0 SP5: Run-Time Redistribution Pack เครื่องคอมพิวเตอร์ที่ไม่มี MS Visual Basic 6.0 ต้อง ดาวน์โหลดไฟล์นี้ไปด้วย
 ดาวน์โหลด Microsoft Data Access Object (MDAC) และ Jet 4.0 Update
 ดาวน์โหลด Microsoft Visual Basic Service Pack 6
ออกแบบโปรแกรม
  • Project --> Components ... (Flash ที่ผมใช้งานเป็น Version 9 น่ะครับ ... พี่น้อง)
  • Design Time
  • Run Program

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
Conclusion:
ทำไมๆๆๆๆๆ ... มันง่ายจังเลย ... 55555+