3 problems ...

[XtraCt]

Hello all !

I have 3 problems ...

1. I trying to change the images in my program i run time
I want that every time that I will hold mouse click down the image change
and when I leave the button the image will come back to what it was ...

I tried this code:

Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Picture = "D:\2.gif"
End Sub

Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Picture = "D:\1.gif"
End Sub

this code return error ...

How should I do it ?


2. I designed GUI without borderstyle (borderstyle = 0) ...
because of that the program is NOT in the taskbar how I can fix it ?


3. I created move button but i don't know how to make it work ...
I want that on click on this button the move will start to move the window
How to do it ?

thanks to helpers !

[dglienna]

I'll take the first one.

Option Explicit

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image1.Picture = LoadPicture("c:\2.gif")
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image1.Picture = LoadPicture("c:\1.gif")
End Sub

[XtraCt]

what the option explicit doing ?

[dglienna]

Change one line to this:

Imaze1.Picture = LoadPicture("c:\1.gif")

and then press F5 to run it. It's priceless for finding typing mistakes that could crash later.

If you go to Tools->Options and Tick REQUIRE VARIABLE DECLARATION, it'll get added automatically to each form/module/class for you. You'd have to add it to old forms.

Require Variable Declaration — Determines whether explicit variable declarations are required in modules. Selecting this adds the Option Explicit statement to general declarations in any new module.

[XtraCt]

someone can help me with the other problems ?

and thanks dglienna !

[XtraCt]

I just succeed to solve the second problem ...

Now I have to solve only the third one !

[WoF]

To add to the first one first:
I made similar buttons with pictures, but I don't load them every time you click on it from harddisk.
A faster thing is: you keep the images in an ImagList control (add Microsoft Common Controls 6.0 to your toolbox).
You can load the images into this list and have them in memory already when assigning them to the image controls. Just add an ImageList to your control, load the images into it, give them meaningful keys.
As I have a large amount of these buttons, I took individual ImageLists, one for button-up-images, one for button-down-images, one for button-disabled. The code looks then:

' imlUp is the ImageList for up-images, imlDn for down.
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image1.Picture = imlDn.ListImages("Button1").Picture
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image1.Picture = imlUp.ListImages("Button1").Picture
End Sub

No loading from disk takes place, then.

As for number 3:
I'd put a Timer on the form, (named timMove). Set interval to 100, as an example
In the move-button click event: timMove.Enabled = True
In the timMove_Timer() event you will put the code for moving. As you have not specified how the movement has to go, I cannot be more concrete here.
You could
Form1.Move Form1.Left+30, Form1.Top+30 or incrementing/decrementing Form1.Left = Form1.Left + 30
With the above code the form will move 10 times per second for 2 pixels.
I took 30 because this is 2 pixels on most screens.
To be more independant, the number of twips per pixel can be taken from the Scren object
Screen.TwipsPerPixelX
Screen.TwipsPerPixelY
The amount

[XtraCt]

you can explain a little bit about the image list please ?

1. I can use imagelist in VB6 ?
2. Is it possible to store the images in the imagelist (in the EXE file) ?

[WoF]

Yes and yes.

You have to add 'Microsoft Windows Common Controls 6.0' to your toolbox. This brings a set of new controls onto your toolbox. One of them being the ImageList.
To use it, click and drag it to a form. Give it a meaningful name.
Right click and select properties. In section 'Images' you can add files of .bmp, .gif or .jpg images to the list. They might be shown in a slightly distorted way, but that's normal. The images are stored in the exe then. You need not supply the bitmap files with the program.

Each image in the list is then referred to by its index, or - and I prefer this method - by a key word you specify.
I rather use the key because often the list may change during developement and deleting one image requires all indexed references above to be changed throughout your program.

To assign an image from the ImageList to an Image control you go
Image1.Picture = ImageList.ListImages("key").Picture or
Image1.Picture = ImageList.ListImages(i).Picture
depending on use of index or key.

[XtraCt]

thanks about the image list !

now i trying to make the move button
so I want to create a button that when I click on him the form will move with the mouse movement ... got it ?
just like I hold the left button of the mouse on the border of the window and drag him ...

thanks again

[dglienna]

Use the TOP and LEFT form and set them to TOP and LEFT for Mouse in the mouse move section, but you have to set a drag/drop flag

[XtraCt]

I pretty new in VB6

you can explain how to do it please ?

[vb_lover]

problem 3:

in the movemove event for the picture control:

include a case for 'Button' to determine if you want te left or right mouse button to perform tricks.

then use API GetCursorPos in the case statement

the results of the API jam into > form.move

[vb_lover]

DG: i think XtraCt wants to be able to move the image anywhere on the screen. There are no VB properties available that determine the screen position of the mousepointer are there?

[WoF]

Oh, there is everything you need.
Do you want the same behaviour like dragging the form at the title bar?

An example shows how to drag a form by grabbing it at a button.
Use the below code in a form and add a button named Command1. This is where you grab the form.
The relevant code for moving is in the MouseDown() and MouseMove() procedures.

Option Explicit
Private Type POINTAPI
  X As Long
  Y As Long
End Type

Private Start As POINTAPI
Private FPos As POINTAPI

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long

Private Moving As Boolean


Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  GetCursorPos Start
  FPos.X = Form1.Left / Screen.TwipsPerPixelX
  FPos.Y = Form1.Top / Screen.TwipsPerPixelY
  Moving = True
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Not Moving Then Exit Sub
  Dim NX&, NY&
  Dim NPos As POINTAPI
  GetCursorPos NPos
  NX = (FPos.X + NPos.X - Start.X) * Screen.TwipsPerPixelX
  NY = (FPos.Y + NPos.Y - Start.Y) * Screen.TwipsPerPixelY
  
  Form1.Move NX, NY
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Moving = False
End Sub