.Exe uit een .Exe ??

Status
Niet open voor verdere reacties.

RubenK

Gebruiker
Lid geworden
23 sep 2008
Berichten
23
Hallo,

Ik heb twee progjes (2 x *.exe bestanden)
En ik wil graag dat wanneer ik op een Button klik in het ene programma, dat het andere .exe bestand ernaast wordt geladen. Alsof het lijkt dat hij eraan geplakt zit, dus als ik hem verplaats dat hij ook mee beweegt.

(ik heb het wel geprobeerd met de "Shell" optie, maar dan opent hij alleen maar het bestand van een bepaald pad. Ik heb liever dat hij als het ware bij het programma hoort en dat hij gewoon opent)

Ik hoop dat ik geholpen kan worden.
Alvast bedankt!
 
Laatst bewerkt:
Wat je kan doen is dezelfde code gebruiken uit de vorige post en die van de andere form ook mee laten bewegen. Dan zou de code er zo uit moeten zien.

Code:
     Private IsFormBeingDragged As Boolean = False  
     Private MouseDownX As Integer  
     Private MouseDownY As Integer  
   
     Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown  
   
         If e.Button = MouseButtons.Left Then  
             IsFormBeingDragged = True  
             MouseDownX = e.X  
             MouseDownY = e.Y  
         End If  
     End Sub  
   
     Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp  
   
         If e.Button = MouseButtons.Left Then  
             IsFormBeingDragged = False  
         End If  
     End Sub  
   
     Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove  
   
         If IsFormBeingDragged Then  
             Dim temp As Point = New Point()  
   
             temp.X = Me.Location.X + (e.X - MouseDownX)  
             temp.Y = Me.Location.Y + (e.Y - MouseDownY)  

[B]             temp.X = Form2.Location.X + (e.X - MouseDownX)  
             temp.Y = Form2.Location.Y + (e.Y - MouseDownY)  [/B]
             Me.Location = temp  
             temp = Nothing  
         End If  
     End Sub

En om het formulier naast het Form1 te laten zien moet je naar de eigenschappen gaan van de form en StartPosition op Manual zetten. Als je dat hebt gedaan, dubbel klik je op de form en typ:
Code:
Me.Left = Form1.Left + Form1.Width
Me.Top = Form1.Top
 
Laatst bewerkt:
Heel erg bedankt (alweer :D)
Ik krijg nu natuurlijk Form2 is not Declared.
Dus voegde ik dit toe:

Public Class Form1

Private Form2 = "C:\Users\Ruben_2\Documents\Test.exe"

En ik heb dit: "temp.X = Form2.Location.X + (e.X - MouseDownX)
temp.Y = Form2.Location.Y + (e.Y - MouseDownY)"
Ook toegevoegd aan de code.

Maar dan krijg ik een gele balk om de tekste heen met deze Error:
Public member 'Location' on type 'String' not found.

(en ik weet zeker dat het pad klopt) :S

Hoop dat je me weer kunt helpen,

alvast bedankt
 
Laatst bewerkt:
-_-'

Wat ninja bedoelt is dat je in je project een 2e form toevoegd, je kan niet een .exe als form declareren (tenminste, zover ik weet niet)

:thumb:
 
Heel erg bedankt voor de reacties. (sorry dat ik wat laat reageer)

Oke, ik dacht dat je een .Exe bestand er gewoon tegenaan kon plakken. Maar dat kan natuurlijk niet als dat bestand die eigenschappen niet heeft.

Ik Geloof dat ik dan het volgende moet doen:

Klik Project
Klik Add Form
Klik New
Dan moet ik Form2 maken zoals ik hem wil.

Dan ga ik terug naar Form1 en dan maak ik bijvoorbeeld een Button.
En dan voeg ik deze Code toe:

Form2.Show

Ik zal het ook wel even proberen.
En ik laat nog wel van me horen. Heel erg bedankt.


Sorry voor alle vragen*
 
Laatst bewerkt:
Kan je niet een tweede form maken (form2)? Dan gaat het een stuk makkelijker.
 
Oke het is me allemaal gelukt.
Gewoon een 2e Form toevoegen.
(stond ook in mijn laatste reactie)

Bedankt!
:thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan