k4fu

wenn du deine fragen hier im forum stellst, ist dir damit am besten geholfen!

Form.Timer1.Interval = 1000

weis zwar jetzt nicht ganz genau was du meinst, aber warum rufst du den timer nicht in dem moment auf, wo du das andere fenster schließt? unload timer1

da hast du aber schon ein paar mal gefehlt!!! oft nach hilfe gefragt 3

brauchst du ein else?

naja weil das programm ja nicht mehr im vordergrund ist... wenn du ein key down ereignis hast, dass für dieses programm gelten soll und du die taste im browser drückst, kriegt dein programm nix davon mit... btw warum machst du deine zeituhr so umstaendlich? nimm doch einen dtpicker her der zählt alles automatisch und der gesamte code beschränkt sich auf eine zeile...

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case Shift 'wenn shift gedrueckt Case 1 Select Case KeyCode 'wenn f2 gedrueckt Case vbKeyF2 m = 15 s = 0 End Select End Select End Sub

was heißt von vorne gestartet? das man wieder die vollen 15 minuten hat? dann brauchst du doch nur deine variablen zurückzusetzen

ich hab den obrigen code (form1 und frmlock) getestet und bei mir hats geklappt: als zeit vorbei war konnte ich mit shift und f2 wieder den timer neu starten mach mal n neues projekt und kopier das hier rein: form1: Button: cmdStartTimer Button: close Label: Label1 Timer: Timer1 Option Explicit Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long Private Const WIN_LOGOFF = 0 Dim s As Integer Dim m As Integer Dim h As Integer Dim sec As Integer Dim min As Integer Dim hour As Integer Dim Abbruch As Boolean Dim frmontop As Double Private Sub Form_Load() ' Minimieren/Maximieren Buttons zur ' Laufzeit anzeigen 'MinMaxButton Me ' Fenster immer im Vordergrund anzeigen 'TopWindow Me.hWnd End Sub Private Sub close_Click() Dim F As Form Abbruch = True For Each F In Forms Unload F Set F = Nothing Next End Sub Public Sub cmdStartTimer_Click() Abbruch = False Timer1.Interval = 1000 Timer1.Enabled = True 'fester Wert eintragen s = 0 m = 1 h = 0 Label1.Caption = Format(h & " :" & m & " :" & s, "Long Time") Do If Abbruch = True Then Exit Do DoEvents cmdStartTimer.Enabled = False If h = 0 And m = 3 And s = 0 Then MsgBox "15 minutes allowance are over. Please finish your work now.", vbOKOnly + vbSystemModal End If Loop Until s = 0 And m = 0 And h = 0 Label1.ForeColor = vbRed 'MsgBox (NameC1 & "abgelaufen") Timer1.Enabled = False 'Call ExitWindowsEx(WIN_LOGOFF, &HFFFF) frmLock.Visible = True Unload Me End Sub Private Sub Label9_Click() End Sub Private Sub Timer1_Timer() s = s - 1 If s < 0 And m > 0 Then m = m - 1 s = 59 ElseIf m <= 0 And h > 0 And s < 0 Then h = h - 1 m = 59 s = 59 End If Label1.Caption = Format(h & " :" & m & " :" & s, "Long Time") End Sub frmlock Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case Shift 'wenn shift gedrueckt Case 1 Select Case KeyCode 'wenn f2 gedrueckt Case vbKeyF2 Form1.Show Unload Me Call Form1.cmdStartTimer_Click End Select End Select End Sub

ok das musst du in dein frmLock einbaun, dann gehts: in diesem fall wäre die tastenkombination shift & f2 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case Shift 'wenn shift gedrueckt Case 1 Select Case KeyCode 'wenn f2 gedrueckt Case vbKeyF2 Form1.Show Unload Me Call Form1.cmdStartTimer_Click End Select End Select End Sub

doch... ich stell mir das in etwa so vor: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case Shift 'wenn shift gedrueckt Case 1 Select Case KeyCode 'wenn f2 gedrueckt Case vbKeyf2 'Timer starten End Select End Select End Sub oder moment: ich weis nicht genau wo dein problem liegt... wenn du den timer starten willst, dann füge statt der msgbox einfach ein timer.interval ein vor dem aufruf schaust du halt wie spät es ist... im timer zählst du diese zeit + 15 minuten... wenn die zeit erreicht ist --> timer stop; programm ende

hab selbiges mal in vb6 gemacht (hat auf jedenfall funktioniert ;-)) damit kann man ein fenster in den vordergrund holen Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function SetWindowPos Lib "user32" _ (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _ ByVal X As Long, ByVal y As Long, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As Long Public Sub vVordergrund(Optional ByVal sDialogName As String, _ Optional ByVal lHandle As Long) Dim wHandle As Long If sDialogName <> "" Then wHandle = FindWindow(vbNullString, sDialogName) ElseIf lHandle <> 0 Then wHandle = lHandle End If Call SetWindowPos(wHandle, -1, 0, 0, 0, 0, 3) End Sub

ich kann mich mit deiner zeiteinteilung nicht anfreunden... du sollst ja eine dokumentation schreiben und keine kundendokumentation... d.h. in deiner doku sind auch alle punkte wie z.b. ist und soll zustand vertreten... und eine solche doku dauert im schnitt bei jedem um die 12 stunden (wenn sie gescheit sein soll)... d.h. die fehln dir bei der entwicklung... und ob das in 30 stunden machbar ist... mhh p.s. die abstände sind verrutscht

man kann doch auch mit hilfe von odbc auf eine access db zugreifen... wenn du also PHP/ODBC programmieren willst, musst du sicher dein frontend nicht wegwerfen

naja einfach die zeilen des arrays zaehlen... falls diese nicht mind. 1 beträgt --> ende

master-tom ich glaub bei dir ist hopfen und malz verloren... ist doch alles offensichtlich... dein betrieb hat recht und soll das knall hart durchziehen!!!

danke habs schon: mit AppActivate gehts auch

*off in lahnstein war ich 1990 (eisenbarth treffen) sagt dir das was?

omg...!!! deswegen hab ich doch auch den smilie dahintergesetzt ()

jo, sie brauchen also nix drauf lernen und könnens voll versemmeln

ich hab nen zeugnis bekommen wo die prozent von teil a und b und gesamt draufstanden... soweit ich weis, kannst du noch beantragen, dass der berufsschulschnitt mit draufsteht... und in englisch kannst du es anfordern... mehr is aber nicht drin

mit "pfad von netzlaufwerk ermitteln vb6" solltest du aber was gefunden haben oder? ich haette den link schon gepostet, weis aber ned, ob das erlaubt ist...

kleiner tipp: 20 sekunden googlen, z.b.: "pfad von netzlaufwerk ermitteln vb6" und schon kriegt man alles was man braucht...

wissen wie btw gehts jetzt.... hab allen dll ne zertifizierung verpasst thx 4 help

das programm nutzen ca. 20 leute, wenns mal läuft; bei einer änderung müssen alle 20 immer die neue version lokal updaten... list und label ist meine einzige nicht .net dll aber der hab ich schon vertraut... edit: bzw insgesamt werdet der exe nun 4 dll mit angelegt... interop.office.dll--> ka warum (hab die reference eigentlich entfernt) interop.vbide.dll--> ka warum (hab die reference eigentlich entfernt) interop.word.dll listlabel11.dll