FLASH + VB question...

How can i send a command from VB to flash. I want to let vb tell flash that when m cursor is over my button my flash button will glow. I've already created my flash and exported it to swf format.

This highlights the command button it is over. You may want it to highlight something else. Just change it from Command1.BackColor = vbCyan
to whatever you want.

VB Code:

Option Explicit
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function GetCapture Lib "user32" () As Long
' Button must be set to Graphical!
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (X < 0) Or (Y < 0) Or (X > Command1.Width) Or (Y > Command1.Height) Then
     ReleaseCapture ' the mouse is no longer over the button, change backcolor to gray
     Command1.BackColor = &H8000000F
ElseIf GetCapture() <> Command1.hwnd Then
    SetCapture Command1.hwnd ' the mouse is over the button, change backcolor to cyan
    Command1.BackColor = vbCyan
End If
End Sub

Quote:

---

Originally Posted by dglienna

This highlights the command button it is over. You may want it to highlight something else. Just change it from Command1.BackColor = vbCyan
to whatever you want.

VB Code:

Option Explicit
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function GetCapture Lib "user32" () As Long
' Button must be set to Graphical!
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (X < 0) Or (Y < 0) Or (X > Command1.Width) Or (Y > Command1.Height) Then
     ReleaseCapture ' the mouse is no longer over the button, change backcolor to gray
     Command1.BackColor = &H8000000F
ElseIf GetCapture() <> Command1.hwnd Then
    SetCapture Command1.hwnd ' the mouse is over the button, change backcolor to cyan
    Command1.BackColor = vbCyan
End If
End Sub

---

dG, that looks like it has nothing to do with the question, or is it just me :ehh:

hehehe you are right manavo11.. but thanks anyway for the effort dglienna...

Does this help?

Check out my sample app http://www.planet-source-code.com/vb...14739&lngWId=1

You can look in the code on how to send data to the flash movie and read it with Actionscript in Flash.