Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VBscript Button

Frage Entwicklung HTML

Mitglied: affe2012

affe2012 (Level 1) - Jetzt verbinden

12.02.2013 um 12:56 Uhr, 2635 Aufrufe

VBscript nach button klick hintergrund entfernen

Hallo,

ich habe eine hta-datei welches nach dem auf das Benutzerverwaltungssymbol ein Formular öffnet. Der Starthintergrund soll aber entfernt werden.
Kann mir da jemand weiterhelfen?

Vielen Dank im voraus.


<html>
<head>
<title>Applikation</title>
<HTA:APPLICATION
APPLICATIONNAME="Applikation"
ID="Applikation"
INNERBORDER="no"
SCROLL="no"
MaximizeButton="No"
NAVIGABLE="no"
VERSION="1.00"/>

<style type="text/css">
body {
font:12 pt arial;
font-weight: bold;
color:#000000;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=1,
StartColorStr='#d3d3d3',
EndColorStr='#f4a460')" }
</style>
</head>

<script language="VBScript">

Sub Window_OnLoad
' Fensterbreite und -höhe bestimmen (Breite, Höhe)
CenterWindow 850, 650
End Sub

Sub CenterWindow(widthX, heightY)
' Zentriert das komplette Fenster
Self.ResizeTo widthX, heightY
Self.MoveTo (screen.Width - widthX)/2, (screen.Height - heightY)/2
End Sub

Sub benutzerverwaltung
ausgabe.InnerHTML = strHTML
ausgabe_strHTML = strHTML
strHTML = strHTML & "<div style=position:absolute;top:135px>________________________________________________________________</div>" & vbNewLine & _
"<div style=position:absolute;top:170px>Vorname:</div>" & vbNewLine & _
"<input style=position:absolute;top:170px;left:100px name=""vorname"">" & vbNewLine & _
"<div style=position:absolute;top:170px;left:300px>Nachname:</div>" & vbNewLine & _
"<input style=position:absolute;top:170px;left:400px name=""nachname"">" & vbNewLine & _
"<div style=position:absolute;top:220px>UserID:</div>" & vbNewLine & _
"<input style=position:absolute;top:220px;left:100px name=""userid"">" & vbNewLine & _
"<div style=position:absolute;top:220px;left:300px>Abteilung:</div>" & vbNewLine & _
"<input style=position:absolute;top:220px;left:400px name=""abteilung"">" & vbNewLine & _
"<div style=position:absolute;top:270px>E-Mail:</div>" & vbNewLine & _
"<input style=position:absolute;top:270px;left:100px name=""email"">" & vbNewLine & _
"<input style=position:absolute;top:355px;left:430px;width:100px type=button value=""User anlegen"" name=""cad_user_anlegen"" onClick=""cad_user_anlegen"">" & vbNewLine & _
"<input style=position:absolute;top:355px;left:300px;width:100px type=button value=""Felder löschen"" name=""clear"" onClick=""clear"">"
ausgabe.InnerHTML = strHTML
End Sub

Sub computerverwaltung
MsgBox "Computer"
End Sub
</script>

<body>

<div align="center">
<h1>Applikation</h1></div><br><br><br><br><br>

<table align="center" style:align=center; cellspacing=1 cellpadding=3 border=0>
<tr>
<td align="center"><font size=5px>Benutzer-<br>konfiguration</font></b</td>
<td align="center"><b><font size=5px>Computer-<br>konfiguration</font>
</td>
</tr>
<tr>
<td>
<form action="user">
<div>
<button style="background:transparent;border:0" name="user" type="button" id="user" value="user" onclick="benutzerverwaltung">
<p>
<img src="bilder\user.png" width="250" height="250">
</p>
</button>
</div>
</form>
</td>
<td>
<form action="computer">
<div>
<button style="background:transparent;border:0" name="computer" type="button" id="computer" value="computer" onclick="computerverwaltung">
<p>
<img src="bilder\computer.png" width="250" height="250">
</p>
</button>
</div>
</form>
</td>
</tr>
</table>

<span id="ausgabe"></span>

</body>
</html>
Ähnliche Inhalte
VB for Applications
gelöst HTML, VBScript: Bei Drop-Down-Auswahl bestimmte Radio-Buttons einblenden (3)

Frage von Yauhun zum Thema VB for Applications ...

VB for Applications
gelöst VBScript und OR (5)

Frage von Invisan zum Thema VB for Applications ...

Microsoft Office
gelöst Outlook VBScript (5)

Frage von Nebellicht zum Thema Microsoft Office ...

Microsoft Office
Button für Wechseln zwischen den Tabellenblättern (6)

Frage von lupi1989 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Server
Bilder aus dem Web mit CSV runterladen (30)

Frage von Yannosch zum Thema Server ...

LAN, WAN, Wireless
Gebäudeverkabelung 10Gigabit LWL (28)

Frage von raffzwo zum Thema LAN, WAN, Wireless ...

Windows Update
Novemberpatches und Nadeldrucker bereiten Kopfschmerzen (14)

Tipp von MettGurke zum Thema Windows Update ...