Mr.Brot

naja.. ich kann bisher nur html und css.. dank selfhtml. laut der beispielsite von oben gehts ja irgendwie nur mit html und css... wenn ich den Quellcode richtig gelesen habe.

soll so funktionieren wie auf dieser seite: Metrostation Über die Links: - Metro - Cielo - Grass wird nur ne andere CSS-Datei genutzt und das Design geändert. Die Seite ist die selbe. Habe mir schon den Quellcode der Site angeschaut und versucht den für meine Seite zu nutzen (nur den Teil der für die CSS-Dateien relevant ist). Aber es geht nicht. :confused: <link rel="stylesheet" type="text/css" href="css/blue.css" title="blue" media="screen" /> <link rel="alternate stylesheet" type="text/css" href="css/sand/sand.css" title="sand" media="screen" /> . . . <a id="blue" href="#" onclick="setActiveStyleSheet('blue', 1);return false;" title="Switch to Blue theme" >Blue Skin</a> <br> <a id="sand" href="#" onclick="setActiveStyleSheet('sand', 1);return false;" title="Switch to Sand theme" >Sand Skin</a>

Hallo zusammen :WD , ich will über einen link die aktuell genutzte CSS-Datei durch eine alternative CSS-Datei tauschen. So das sich das Design der aktuellen Seite durch klick auf den Link ändert. z.B: klick auf link 1.: Seite A sieht blau aus (genutzt wird dann CSS-Datei blau.css) klick auf link 2.: Seite A sieht gelb aus (genutzt wird dann CSS-Datei gelb.css) hat da jemand was?? :confused:

Gewerbliche Schule in Schwäbisch Hall.

jo.. danke für die hilfe. :WD werd wohl mal mit dem "Basteln" anfangen.. :marine

Hab da was... + function um speziell prozess zu killen.. Option Explicit Private Declare Function GetDesktopWindow Lib "user32" () _ As Long Private Declare Function GetWindow Lib "user32" (ByVal hWnd _ As Long, ByVal wCmd As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hWnd As Long, ByVal wIndx As _ Long) As Long Private Declare Function GetWindowTextLength Lib "user32" _ Alias "GetWindowTextLengthA" (ByVal hWnd As Long) _ As Long Private Declare Function GetWindowText Lib "user32" Alias _ "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString _ As String, ByVal cch As Long) As Long Private Declare Function GetParent Lib "user32" (ByVal hWnd _ As Long) As Long Private Declare Function GetWindowThreadProcessId Lib "user32" _ (ByVal hWnd As Long, lpdwProcessId As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal _ hObject As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal _ dwDesiredAccess As Long, ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long) As Long Private Declare Function TerminateProcess Lib "kernel32" (ByVal _ hProcess As Long, ByVal uExitCode As Long) As Long Const GW_HWNDFIRST = 0 Const GW_HWNDLAST = 1 Const GW_HWNDNEXT = 2 Const GW_HWNDPREV = 3 Const GW_OWNER = 4 Const GW_CHILD = 5 Const GW_MAX = 5 Const GWL_STYLE = (-16) Const WS_VISIBLE = &H10000000 Const WS_BORDER = &H800000 Const PROCESS_TERMINATE = &H1 Public Function KillApp(strAppTitle As String) As Integer Dim Result, Task As Long Dim intKillApp As Integer Dim bKillApp As Boolean intKillApp = 0 Do Result = EnumWindows(strAppTitle) If Result <> 0 Then Task = OpenProcess(PROCESS_TERMINATE, 0&, Result) Result = TerminateProcess(Task, 1&) Result = CloseHandle(Task) intKillApp = intKillApp + 1 bKillApp = True Else KillApp = intKillApp + 1 bKillApp = False End If Loop Until bKillApp = False End Function Private Function EnumWindows(strAppTitle As String) As Long Dim hWnd As Long Dim lngTest As Long 'Auch der Desktop ist ein Fenster 'hWnd = GetDesktopWindow 'Einstieg hWnd = GetWindow(frmOraXl.hWnd, GW_HWNDFIRST) 'Alle vorhandenen Fenster abklappern Do lngTest = GetWindowInfo(hWnd, strAppTitle) If lngTest <> 0 Then EnumWindows = lngTest 'GetWindowInfo(hWnd, strAppTitle) Exit Function End If hWnd = GetWindow(hWnd, GW_HWNDNEXT) Loop Until hWnd = 0 EnumWindows = hWnd End Function Private Function GetWindowInfo(hWnd As Long, strAppTitle As String) As Long Dim Parent, Task, Result, x, Style As Long Dim Title As String 'Darstellung des Fensters Style = GetWindowLong(hWnd, GWL_STYLE) Style = Style And (WS_VISIBLE Or WS_BORDER) 'Title des Fenster auslesen Result = GetWindowTextLength(hWnd) + 1 Title = Space$(Result) Result = GetWindowText(hWnd, Title, Result) Title = Left$(Title, Len(Title) - 1) 'Elternfenster ermitteln Parent = hWnd Do Parent = GetParent(Parent) Loop Until Parent = 0 'Task Id ermitteln Result = GetWindowThreadProcessId(hWnd, Task) If Right(strAppTitle, Len(strAppTitle) - InStrRev(strAppTitle, " ")) = Title Then GetWindowInfo = Task ElseIf strAppTitle = Title Then GetWindowInfo = Task End If End Function müßtest es dir noch ein "bissele" anpassen..

habs gemacht und **KRASS** was da alles steht!!! :uli

Hab im Inet und diversen VB-sites rum geguckt.. aber bisher noch nix gefunden.. Gibts wirklich niemande der was weiß dazu?? Das benutz ich zur Zeit um Files auszuwählen: Private Function CommonDialogFile() As String On Error Resume Next CommonDialog1.CancelError = True CommonDialog1.Flags = cdlOFNFileMustExist CommonDialog1.ShowOpen If Err Then CommonDialogFile = "" Else CommonDialogFile = CommonDialog1.FileName End If End Function

Hallo zusammen!! Ich benutze ein CommonDialog um eine Datei auszuwählen. Das geht auch wunderbar. Aber ich hab folgendes Problem: Ich will das CommonDialog auch Auswahl eines Ordners verwenden. Also über CD einen Ordner auswählen und diesen (Pfad+)Ordner in eine String-Variable geben. Genauso wie bei einer Datei nur mit einem Ordner. Weiß jemand wie das geht??? :confused: Ich würde mich über Hilfe freuen!! :floet:

naja, bei allem unter einer Radeon 9800 Pro/Geforce 5900XT würde ich die Finger von lassen.. des lohnt sich nicht wirklich vom Preisleistungsverhältnis. Die oben genannten Karten kosten ca.200€. Und wenn du bis Weihnachten wartest besteht die möglichkeit eine der neuen Mainstreamkarten (Ati X700 Pro/XT // Geforce 6600 GT) mit AGP(hoffeselberdasbisdahindieGrakasauchalsAGPundnichtnurPCI-Egibt) für ebenfalls ca.200€ zu erwerben.

Mein Bruder benutzt da was..*leidernamenvergessen* War bei der aktuellen/vorherigen Chip auf CD dabei!! Einfach mal den nächsten Kiosk deines Vertrauens aufsuchen bzw. www.chip.de MfG Brot

[edit] ups war zu langsam.. [/edit] was ist heilfasten??? rein aus neugierde gefragt. 47 72 65 65 74 7A 4D 61 72 76

z.B.: CS Tactics auf eng.

[OFF] Was auch immer bei so ner Party dabei war... -> Karaoke!! :OD Entweder vor oder nach Eyetoy!! Und nicht zuvergessen die BEWEIS-FOTOS bzw. VIDEOS.... :OD :floet: [/OFF]

Okay,... Eye-Toy hab ich auch... und bei ner Party mit bissele Alk kann das verdammt viel Spaß machen!!!! :OD :OD Naja, so wirklich kenne ich mich nicht aus bei den Spielen für die PS2.. :floet: Mag lieber PC-Spiele

Kommt darauf an was für Spiele/Genre du bevorzugst. Ich liebe die Tekken-Serie (beat´em up) und Devil May Cray-Reihe (Geiles Dämonen mit Knarren und Schwerter plätten Game 3rd Person-Ansicht). Mein Bruder ist fanatischer Final Fantasy Zock0r auf der PS2. Was auch richtig fun macht ist Silent Hill (Resident Evil like)und Metal Gear Solid.

Ich packe meinen Koffer und nehme eine Gitarre, ein Plektrum, ein Notenheft, eine Hilti-Bohrmaschine, einen Stromgenerator , die Mona Lisa , einen Pinsel, ein paar Ohrschützer, einen Teller, den Teddy, den Verstärker, meinen Kuschelbär, einen großen Koffer ,ein Notebook, eine Kamera mit Weitwinkel, einen Hartz IV Antrag, eine Tube Fertigsilikon, den neuen Bestseller: Wie fülle ich den Hartz IV Antrag richtig aus, eine Tadelkrabbe (was oder wer auch immer das ist ), ein paar DVD's, "ein paar Golfschlaeger", ZeroQools Schnitte, eine fettige Wurstsemmel, eine Balkonpflanzen, einen Elternzettel, schönen, kühlen Kasten Bölkstoff und eine weibliche Tadelkrabbe,ein Stück Realität,Sauerstoff zum Atmen, eine Spassbremse, ein Seil, chickies Quietsche-Ente, einen Kalender, einen Schleusenwärter, eine Schleuse, vakuum verpackte Nüsse und ein Weizenmischbrot mit.

!!!argh................ :floet: :floet: :WD :WD :WD

Das hab ich eigentlich auch gedacht... Aber meine Frau hats mir so erklärt: Die Periode ist das Ende einer Eizelle, da wird es rausgespült. Sobald die Roten Tage vorüber sind, ist schon die neue Eizelle da und wartet ca.3 Wochen ob es befruchtet wird. Die Chance das eine Eizelle befruchtet wird ist am Anfang am größten und den roten Tagen entgegengehend sinkt die Chance zu einer erfolgreichen Befruchtung. Naja.. ich glaub die Frauen hier im Forum sollten es am besten wissen! Hallo!?! Jemand da??? Kann Frau Mann aufklären!?!

wegen pille: bei uns warens ca. 4 monate danach... was am besten funktioniert bzw. wo die frau am fruchtbarsten ist (laut meiner Frau und ihren infos) direkt nach der Periode!! Da soll angeblich auch die Chance das es ein Mädel wird am größten sein. :bimei jedenfalls wars bei uns so...

wegen windeln: wir benutzen im alttag die Fixies und für die nacht zum schlafen oder wenn wir längerunterwegs sind (tagesausflug) die Pampers.. sind einfach die besten und das schlägt sich im preis nieder...

Kann mich da ZoomZoom nur anschließen.. Meine kleine Krümeline is grad 8 Monate alt und ne fleißige "ichwilldasauchessenwasmamundpapaessensonstmotzich" Bin selber noch Azubi FIAE und meine Frau grad im Erziehungsurlaub (willaberteilzeitbischenarbeitenaberjobistschwerzubekommenalsmama) und haben ca. 1000€ im Monat. Wir wohnen bei Oma u. Opa, haben dort eine eigene Wohnung mit eigenem Haushalt! Geld ist knapp aber es geht!

Jurassic Park???

Ich hatte n Bekannten der hat so ähnliches Problem.. Arbeitszeit 9-20 Uhr und Ausbilder war ne gelernte Krankenschwester die n Computerladen hat. Nach 2 Jahren hat er gekündigt und 4 Wochen Urlaub genommen und danach bei einer anderen Firma sein 3. Lehrjahr weitergemacht. Er hat natürlich vorher alles mit dem IHK-Berater seines Vertrauens und der neuen Firma abgeklärt. :floet:

äh.. fehlen bei dir nicht die "End If" ´s bei deinen If-Abfragen???