|
|
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>
|
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)
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>
|