C# mesa se VB 6.0

[wazomania]

Paidia exw kanei diafora programma stin C kai 8elw na kanw ena GUI stin vb 6.0 ta exw kanei ta arxeia dll alla den 3erw pws na ta kalw p.x. patwntas ena koumpi na trexei ayto to programma poy 8elw!

Euxaristw gia ton xrono sas

[firewalker]

Καταρχήν καλώς όρισες. Τα dll τι "έχουν μέσα"; Απλές συναρτήσεις; Είναι activeX dlls; Είναι gui, console προγράμματα; Πως τα έκανες dll, με recompile σε μορφή dll;

 

p.x. patwntas ena koumpi na trexei ayto to programma poy 8elw!

 

Να φορτώνει το πρόγραμμα εντελώς αυτόνομα, ή να επιστρέφει τιμή στην εφαρμογή της vb;

[wazomania]

File exw kanei diafora programmata stin C++ ta opoia epoita ta ekana save me morfi dll twra apla 8elw na kane ena interface to opoio ama patisw p.x. to prwto koumpi na trexei to prwto programma to opoio exw orisei mesa apo tin C pou 8a kanei print ta data (se ena text).diladi me alla logia ka8e fora pou pataw ena koumpi ta diavasei tis epiloges pou exw kaneis stin vd kai na trexei to katalilo programma stin C.

Pantos se euxaristw gia to xrono sou.Elpizw na me voi8iseis

perimenw nea sou

[firewalker]

Τι εννοείς τα έκανες save σαν dll; Αν τα προγράμματα σου δέχονται παράμετρο (π.χ. format -help που δίνει βοήθεια για το πρόγραμμα που εκτελεί την διαμόρφωση) τότε μπορεί να γίνει εύκολα καλώντας κάθε φορά το εκτελέσιμο και δίνοντας την κατάλληλη παράμετρο να κάνει αυτό που του λες από το gui της vb.

[wazomania]

Apla file den exw xiristei pote dll arxeia kai den 3erw ti na kanw!

Genika gia na katalaveis kai esy kalitera 8elw na kanw ena koumpi to opoio 8a trexei ena programma grammeno stin C#.

[firewalker]

Αν έχεις τα εκτελέσιμα που έχεις φτιάξει σε C στο ίδιο directory με την εφαρμογή της vb τότε με τον παρακάτω κώδικα μπορείς να τα καλείς.

 

>
Option Explicit
Private Const DEF_SHOWTOOLTIP = False
Private Const SW_NORMAL = 1
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Dim Location As String
Location = CurDir & "\" & "όνομαπρογραμματος.exe"

Print Location
ShellExecute hwnd, "open", Location, vbNullString, vbNullString, SW_NORMAL
End Sub

[wazomania]

file ekana ayto poy moy eipes kai to apotelesma itan oti otan patousa to koumpi to mono pou ekane itan na mou ektypwnei panw stin forma to path kai tipota allo!

[firewalker]

file ekana ayto poy moy eipes kai to apotelesma itan oti otan patousa to koumpi to mono pou ekane itan na mou ektypwnei panw stin forma to path kai tipota allo!

 

Το Print Location δεν είναι απαραίτητο το έβαλα για να βλέπεις αν το path είναι σωστό. Πρέπει να σώσεις το πρόγραμμα πρώτα και μετά να τοποθετήσεις τα προγράμματα που έχεις σε C στον ίδιο φάκελο.

Έστω ότι ένα πρόγραμμα σε C είναι το test.exe και με το πρόγραμμα σε vb είναι στον ίδιο φάκελο. Τότε πρέπει να γράψεις στον κώδικα Location = CurDir & "\" & "test.exe" και το πρόγραμμα τησ C πρέπει να τρέξει. Όπως π.χ. αν βάλεις Location="c:\windows\notepad.exe" ανοίγει η εφαρμογή Notepad.