Many Questions

[progeix]

If You Have an EXAMPLE form of these so i can see send it to [email protected]

First question is:
Using *VB5*
how do u make an image turn to a different one when your mouse moves over it and turn back when the mouse leaves??

Second one:
Using a Command button, how do u make it do an action when you RIGHT click it with your mouse?

Third Question:
i've heard of the GET & PUT commands to save and open documents.. can someone give me an example of doing this using 2 Text Fields
Text1.text and Text2.text saving to the SAME file "Text Box.txt"

[netSurfer]

I would assume that you would simply change the image on a mouse_enter or equivalant.

I think there's an option on the click for index? that is the index of hte mouse button that clicked it.. if index = right mouse, I think. I'm at work and don't have VB at this computer. Hope it helps.. if I'm right. :-)

[Aaron Young]

1. Make an Image Appear in a Picturebox when the Mouse is Over it, (Can Easily be adapted to show a Different Picture(s))..

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Picture1.Picture.Handle Then Picture1 = LoadPicture("")
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Picture1.Picture.Handle = 0 Then
        Picture1 = LoadPicture("..\Common\Graphics\Bitmaps\Assorted\Happy.bmp")
    End If
End Sub

2. Use the Mouse_Down/Mouse_UP Events, eg.

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then MsgBox "Command Button Right Click"
End Sub

3. PUT/GET are used when Opening a File for Binary/Random Access, they allow you to transfer Data in User-Defined Portions, this is especially useful when you create your own Type Structure of a Fixed Length, as you can then use the File as a Random Access File, eg.

Private Type MyType
    sString As String * 10
    iInteger As Integer
    lLong As Long
End Type
  
Private Sub Command1_Click()
    Dim tMyRecord(2) As MyType
    Dim tSelected As MyType
    
    tMyRecord(0).sString = "Aaron"
    tMyRecord(0).iInteger = 10
    tMyRecord(0).lLong = 128000
    tMyRecord(1).sString = "Young"
    tMyRecord(1).iInteger = 1234
    tMyRecord(1).lLong = 64000
    tMyRecord(2).sString = "VB6.0"
    tMyRecord(2).iInteger = 78
    tMyRecord(2).lLong = 256000

    Open "C:\Test.txt" For Random Access Write As 1
        Put #1, , tMyRecord(0)
        Put #1, , tMyRecord(1)
        Put #1, , tMyRecord(2)
    Close 1
        
    Open "C:\Test.txt" For Random Access Read As 1
        'Ge the 2nd Record
        Get #1, 2, tSelected
    Close 1
    
    Debug.Print tSelected.sString, tSelected.iInteger, tSelected.lLong
    
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]

[spandex44]

For the PUT and GET commands, an easier way would be the following:

Open "C:\Text Box.txt" for output as #1
write #1, text1.text, text2.text
close # 1

That's it.
Regards,
Alexander McANdrew
VB Zone http://gsenterprise.server101.com