àÃÕ¹ÃÙé 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