Necesito que desde una aplicación echa en Vb6 le pase 2 parámetros a una app .jar echa con V4J. Será de la siguiente forma:
Code VB6:
B4X:
Private Sub Command1_Click()
Dim LINK As String
Dim PARAM1 As String
Dim PARAM2 As String
PARAM1 = "TEXTO1"
PARAM2 = "TEXTO2"
LINK = App.Path & "\TESTbd.jar"
ShellExecute Me.hwnd, vbNullString, LINK, PARAM1 & "/" & PARAM2, "", vbNormalFocus
End Sub
y para recibir desde la app .jar Code B4J :
B4X:
Sub AppStart (Form1 As Form, Args() As String)
Dim mat() As String
Dim miArg As String
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
miArg=Args
mat=Split(miArg,"/")
param1.Text =mat(0)
param2.text=mat(1)
End Sub
Sub Split(Text As String, Delimiter As String) As String()
Return Regex.Split(Delimiter,Text)
End Sub
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.