Source code |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
import java.applet.*; import java.net.*; public class InJava4 extends Applet{ public void init(){ String msg = "Hello from Java (using javascript alert)"; try { getAppletContext().showDocument (new URL("javascript:doAlert("" + msg +"")")); } catch (MalformedURLException me) { } } } |
Source code |
|
1 |
Applet1.Parent.getAppletContext().showDocument(New java#net#URL("javascript:DOalert("" + msg +"")") ) |
Source code |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <title> Jabaco-Applet </title> <SCRIPT> function DOalert(s) { alert(s); } </SCRIPT> </head> <body> <APPLET ARCHIVE="test5.jar" CODE="Applet1.class" MAYSCRIPT WIDTH="400" HEIGHT="300"> <PARAM NAME="Compiler" VALUE="Jabaco"> </APPLET> </body> </html> |
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Option Explicit Public Sub Command1_Click() Dim s As String Dim msg As String = "Hello!" Dim url As java#net#URL ' Chr(34) is a trick to state quote characters in strings s = "javascript:DOalert(" & Chr(34) + msg + Chr(34) & ")" Debug.Print s url = New java#net#URL(s) Debug.Print url.toString End Sub |
This post has been edited 3 times, last edit by "A1880" (Feb 18th 2011, 3:44pm)
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
Option Explicit ' the applet has a Button "cmdSetLocal" Public Sub cmdSetLocal_Click() ' copy text of textbox "tbLocalInput" SetText Me.tbLocalInput.Text End Sub ' the applet has a button "cmdSetRemote" Public Sub cmdSetRemote_Click() Dim s As String Dim msg As String Dim url As java#net#URL On Error Goto ErrHandler ' take text of "tbLocalInput" msg = Me.tbLocalInput.Text ' Chr(34) is a trick to state quote characters in strings s = "javascript:SetText(" & Chr(34) + msg + Chr(34) & ")" url = New java#net#URL(s) Me.Parent.getAppletContext().showDocument(url) Exit Sub ErrHandler: trace "Error: " & Err.getMessage() End Sub ' sub called from javscript Public Sub SetText(txt As String) Me.lblText.Caption = txt End Sub Private Sub trace(s As String) Me.lblText.Caption = Me.lblText.Caption & vbCrLf & s End Sub |
Source code |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <title> Jabaco-Applet </title> <SCRIPT LANGUAGE="JavaScript"> function button_clicked (form) { var TestVar = document.myform.inputbox.value; document.jsalert.SetText(TestVar); } function SetText(s) { document.myform.inputbox.value = s; } </SCRIPT> </head> <body> <APPLET NAME="jsalert" ARCHIVE="jsalert.jar" CODE="Applet1.class" MAYSCRIPT WIDTH="400" HEIGHT="300"> <PARAM NAME="Compiler" VALUE="Jabaco"> </APPLET> <FORM NAME="myform" ACTION="" METHOD="GET">Enter something in the box: <BR> <INPUT TYPE="text" NAME="inputbox" VALUE=""><P> <INPUT TYPE="button" NAME="button" Value="Click" onClick="button_clicked(this.form)"> </FORM> </body> </html> |