ҡդӶ ʵŧ 纺촨շ٨絴͵ ᷹ФѺ

͵Դҷҧ Inbox Ѻ

˹ѡ
-
VB 6/VB.Net
ASP/ASP.Net
Ѻ¤
¹ҹ Flash Movie
ռͺش  
 RSS Feeds
 ǹŴ RSS Reader ...   Download  RSS Reader

Forum - www.g2gnet.com
Webmaster - www.g2gnet.com
Visitors - Session views
 5 6 1 6 1 1 3

7 ѹҤ ..2549
67 Users On-Line.
Visitors - Page views
 8 9 7 3 8 5 6
1 Ҿѹ ..2551

Google   
g2gnet.com
Ҵѡ:  

¹ SwishMax ( Flash) Ѻ觢ҡѺ MS Visual Basic 6.0 Ҥ 2

Category »  Ѻ¤
: Webmaster 8/7/2551 13:17:00
(ҹ : 14373) 
¹ 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+
͵ - g2gNet Dot Com
Ţ¹ҳԪ硷͹ԡ 0407314800231
CopyLeft © 2004 - 2099 g2gNet.Com All rights reserved.
Email: [email protected] . 08-6862-6560