mirror of
https://github.com/boxgaming/qbjs.git
synced 2024-09-20 04:24:45 +00:00
131 lines
2.8 KiB
QBasic
131 lines
2.8 KiB
QBasic
|
Export Add, Alert, Confirm, Create, Event, Container, Get, GetImage, Remove, Prompt
|
||
|
|
||
|
$If Javascript Then
|
||
|
if (QB._domElements) {
|
||
|
var e = null;
|
||
|
while (e = QB._domElements.pop()) {
|
||
|
e.remove();
|
||
|
}
|
||
|
}
|
||
|
else {
|
||
|
QB._domElements = [];
|
||
|
}
|
||
|
|
||
|
if (QB._domEvents) {
|
||
|
while (e = QB._domEvents.pop()) {
|
||
|
e.target.removeEventListener(e.eventType, e.callbackFn);
|
||
|
}
|
||
|
}
|
||
|
else {
|
||
|
QB._domEvents = [];
|
||
|
}
|
||
|
$End If
|
||
|
|
||
|
Sub Alert (text)
|
||
|
$If Javascript Then
|
||
|
alert(text);
|
||
|
$End If
|
||
|
End Sub
|
||
|
|
||
|
Sub Confirm (text)
|
||
|
$If Javascript Then
|
||
|
Confirm = confirm(text) ? -1 : 0;
|
||
|
$End If
|
||
|
End Sub
|
||
|
|
||
|
Sub Add (e, parent, beforeElement)
|
||
|
$If Javascript Then
|
||
|
if (typeof e == "string") {
|
||
|
e = document.getElementById(e);
|
||
|
}
|
||
|
|
||
|
if (parent == undefined || parent == "") {
|
||
|
parent = await func_Container();
|
||
|
}
|
||
|
else if (typeof parent == "string") {
|
||
|
parent = document.getElementById(parent);
|
||
|
}
|
||
|
|
||
|
if (beforeElement == undefined || beforeElement == "") {
|
||
|
beforeElement = null;
|
||
|
}
|
||
|
else if (typeof beforeElement == "string") {
|
||
|
beforeElement = document.getElementById(beforeElement);
|
||
|
}
|
||
|
|
||
|
parent.insertBefore(e, beforeElement);
|
||
|
$End If
|
||
|
End Sub
|
||
|
|
||
|
Function Create (etype, parent, content, eid, beforeElement)
|
||
|
$If Javascript Then
|
||
|
var e = document.createElement(etype);
|
||
|
if (eid != undefined && eid != "") {
|
||
|
e.id = eid;
|
||
|
}
|
||
|
e.className = "qbjs";
|
||
|
|
||
|
if (content != undefined) {
|
||
|
if (e.value != undefined) {
|
||
|
e.value = content;
|
||
|
}
|
||
|
if (e.innerHTML != undefined) {
|
||
|
e.innerHTML = content;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
QB._domElements.push(e);
|
||
|
await sub_Add(e, parent, beforeElement);
|
||
|
Create = e;
|
||
|
$End If
|
||
|
End Function
|
||
|
|
||
|
Sub Create (etype, parent, content, eid, beforeElement)
|
||
|
Dim e
|
||
|
e = Create(etype, parent, content, eid, beforeElement)
|
||
|
End Sub
|
||
|
|
||
|
Sub Event (target, eventType, callbackFn)
|
||
|
$If Javascript Then
|
||
|
if (typeof target == "string") {
|
||
|
target = document.getElementById(target);
|
||
|
}
|
||
|
target.addEventListener(eventType, callbackFn);
|
||
|
QB._domEvents.push({ target: target, eventType: eventType, callbackFn: callbackFn});
|
||
|
$End If
|
||
|
End Sub
|
||
|
|
||
|
Function Container
|
||
|
$If Javascript Then
|
||
|
Container = document.getElementById("gx-container");
|
||
|
$End If
|
||
|
End Function
|
||
|
|
||
|
Function Get (eid)
|
||
|
$If Javascript Then
|
||
|
Get = document.getElementById(eid);
|
||
|
$End If
|
||
|
End Function
|
||
|
|
||
|
Function GetImage (imageId)
|
||
|
$If Javascript Then
|
||
|
GetImage = QB.getImage(imageId);
|
||
|
$End If
|
||
|
End Function
|
||
|
|
||
|
Sub Remove (e)
|
||
|
$If Javascript Then
|
||
|
if (typeof e == "string") {
|
||
|
e = document.getElementById(e);
|
||
|
}
|
||
|
if (e != undefined && e != null) {
|
||
|
e.remove();
|
||
|
}
|
||
|
$End If
|
||
|
End Sub
|
||
|
|
||
|
Function Prompt (text, defaultValue)
|
||
|
$If Javascript Then
|
||
|
Prompt = prompt(text, defaultValue);
|
||
|
$End If
|
||
|
End Function
|