k4fu

keine! es passiert einfach nix! wobei der benutzerwechsel mit win2000 klappt! der zweite code funktioniert mit win2000

meinst du das menü oben (z.b. ie: datei | bearbeiten | ansicht) usw... btw wie darf man das verstehen?

Private Sub quit() On Error Resume Next Dim objWMI As Object Dim colItems As Object Dim objItem As Object objWMI = GetObject( _ "WinMgmts:{impersonationLevel=impersonate, " & _ "(Shutdown)}!/root/cimv2") colItems = objWMI.ExecQuery( _ "SELECT * FROM Win32_OperatingSystem") For Each objItem In colItems objItem.Shutdown() Next objItem End Sub

Private Declare Function ExitWindows Lib "User32" Alias "ExitWindowsEx" _ (ByVal dwOptions As Integer, _ ByVal dwReserved As Integer) As Integer Private Sub quit() ExitWindows(1, &HFFFFS) End Sub

berufsschule kriegste ersetzt, wenn du mit öffentlichen verkehrsmitteln 2 stunden länger unterwegs wärst als mit auto... zur arbeit siehe oben...

wie kommts dann, dass ich 30 urlaubstage in der ausbildung hatte, also 2,5 pro monat?!

normalerweise kommt da nicht ,33333 raus, weil du ja pro monat entweder 2; 2,5; 3 usw urlaubstage hast; also kannst du auch rechnen: arbeitende monate * urlaubstage pro monat... bei ,5 hast du natürlichen einen halben tag... wenn dein chef nö sagt, is das so... wo raus?

bisl genauer bitte

zum thema: berufsschule wird zu 99% die gleiche sein! die wird normalerweise nach standort ausgewählt; und da der ort ja direkt angrenzt sollte das kein problem sein! edit, bimei

ne; danke trotzdem; ich setzte halt die eigenschaft windowstate erst dann, wenn alles gemacht wurde...

wie gesagt ich habs gelöst!!! vor InitializeComponents bringt es auch nix! wie gesagt visible = false, hide hats nicht gebracht! das alles habe ich schon ausprobiert bevor ich meine frage gestellt habe...

ausbildung <> beruf! wenn du 400 euro bekommst ist das nicht wenig! der betrieb zahlt wesentlich mehr für deine ausbildung... unterbezahlst bist du nicht;

guggst du hier: Tastenkombination VB wurde vor ca. 2 wochen hier im forum diskutiert ist zwar für vb6 sollte aber übertragbar sein

thx, aber wenns so einfach wäre, hätte ich es schon gelöst wie gesagt: windowstate erstmal weglassen hilft visible false / hide nicht!!

es geht da auch!

hab vb.net wie soll ich das machen? hab jetzt eine möglichkeit herausgefunden: windowstate am anfang weglassen und dann erst setzen... funktioniert auch soweit! nur wenn ich das programm von outlook (über einen link, welcher dem programm eine fallid übergibt) aus starte, flackert es wieder kurz auf... wird wohl nicht machbar sein, dass das auch noch geht?!?

das programm soll beim start nicht sichtbar sein; erst wenn alles erstellt wurde (menü, db connect, usw) soll es sichtbar werden wenn das programm zum zweiten mal gestartet wird, soll sich das ja wieder beenden (so dass es nur einmal läuft) --> dadurch, dass es beim start unsichtbar ist, bekommt der user also nix davon mit... ansonsten flackert es kurz auf und verschwindet wieder... jemand ne idee? me.hide am anfang im form load bringts nicht!

probiers mal damit... deine verbindungsnamen usw musst du natürlich anpassen Sub form_load() Const ssfCONTROLS = 3 sConnectionName = "LAN-Verbindung" sEnableVerb = "&Aktivieren" sDisableVerb = "&Deaktivieren" Set shellApp = CreateObject("shell.application") Set oControlPanel = shellApp.Namespace(ssfCONTROLS) Set oNetConnections = Nothing For Each folderitem In oControlPanel.items If folderitem.Name = "Netzwerk- und DFÜ-Verbindungen" Then Set oNetConnections = folderitem.getfolder Exit For End If Next If oNetConnections Is Nothing Then MsgBox "Ordner nicht vorhanden" End If Set oLanConnection = Nothing For Each folderitem In oNetConnections.items If LCase(folderitem.Name) = LCase(sConnectionName) Then Set oLanConnection = folderitem Exit For End If Next If oLanConnection Is Nothing Then MsgBox "Verbindungsname nicht vorhanden" End If bEnabled = True Set oEnableVerb = Nothing Set oDisableVerb = Nothing s = "Verbs: " & vbCrLf For Each Verb In oLanConnection.verbs s = s & vbCrLf & Verb.Name If Verb.Name = sEnableVerb Then Set oEnableVerb = Verb bEnabled = False End If If Verb.Name = sDisableVerb Then Set oDisableVerb = Verb End If Next If bEnabled Then oDisableVerb.DoIt Else oEnableVerb.DoIt End If End Sub

weis nicht, ob es direkt eine funktion dafür gibt, aber über die befehle in der command box geht es! die kannst du ja auch aus vb aus ausrufen...

bin im fußballverein, fitnesstudio; im winter snowboard/ skifahren; ansonten freibad, radln, joggen

ich glaub man kann nur die auf dem eigenen rechner installierten drucker herausfinden... die anderen sind ja nur freigaben... Dim X As Integer Dim Printername As String For X = 0 To Printers.Count - 1 Printername = Printers(X).DeviceName Next X

denke nicht; in vb.net ist das nicht der fall...

evtl hilft das weiter Gets or sets the SQL string that the SqlDataSource control uses to insert data into the underlying database. http://msdn2.microsoft.com/en-US/library/system.web.ui.webcontrols.sqldatasource.insertcommand.aspx

der beispiel code geht auf jedenfall nicht... und relativ leicht ist auch ansichtssache... werd dann wohl meine idee verwenden^^ thx trotzdem

erziehlt nicht ganz den gewünschten effekt... man muss z.b. ein panel auf die form zeichnen und auf diesem panel die 2te form als control implementieren