2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic
Keresés

Új hozzászólás Aktív témák

  • #2974 vilag tag Delila_1 #2973
    Új Válasz #2974
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    vilag

    tag

    válasz Delila_1 #2973 üzenetére

    Tökéletes!

    Remekül sikerült megoldani a problémát.

    Felvetnék még egy kérdést amelyre régóta nem lelem a megoldást.
    Van egy olyan TextBoxom (illetve több is), amely úgy van megoldva, hogy csak számokat enged bevinni az alábbi kóddal:

    Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Ügyirat főszámba csak számot enged írni

    If KeyCode = 8 Or KeyCode = 46 Or _
    (KeyCode >= 48 And KeyCode <= 57) _
    Or (KeyCode >= 96 And KeyCode <= 105) Then
    TextBox1.Locked = False
    Else
    TextBox1.Locked = True
    End If

    End Sub

    Valamilyen okból ha a munkafüzetet Office 2007-ben Win7-es gépen mentem el, random módon az a jelenség következik be, hogy elindítva a formot a mezőbe nem csak számot enged írni, valamint ha nyomok egy TAB-ot akkor nem a következő vezérlőre ugrik hanem valóban egy tabulátort tesz az adott vezérlőbe.

    Ez ugye hibás működést eredményez és számos problémát okoz.

    Arra viszont rájöttem, hogy ha egy Win Xp-s gépen (és azt hiszem Office 2003-on) makrók letiltásával indítom a munkafüzetet és rámentek, akkor már a Win7-es Office 2007-es gépeken sem jelentkezik a probléma.

    Van esetleg ötleted (vagy bárkinek), hogy mivel lehetne ezt kiküszöbölni.
    Most csak ezért megint össze kellett raknom egy Xp-s gépet amit gyakorlatilag csak ennyire használok.

    Egy másik apró de idegesítő probléma:
    A munkafüzet indításakor automatikusan indul a form. Ezen van egy gomb amely lehetővé teszi a VB indítását és ezzel együtt a jelszavazás feloldását is az alábbi módon:

    Unload Me
    Unload UserForm1
    Application.Visible = True 'hogy az Excel menüje újra látszódjon

    'Project védelem feloldása
    With Application
    .SendKeys "%{F11}", True 'VB megnyitása
    .SendKeys "^r", True 'Project Explorer ablak aktiválása
    .SendKeys "SZTK" 'SZTK projectre ugrás
    .SendKeys "~", True 'Enter leütés imitálása
    .Wait (Now + TimeValue("0:00:01"))
    .SendKeys "jelszó" 'Jelszó megadása
    .SendKeys "~", True 'Enter leütés imitálása
    ' .Wait (Now + TimeValue("0:00:01"))
    ' .SendKeys "Mod"
    ' .SendKeys "~", True 'Enter leütés imitálása
    ' .Wait (Now + TimeValue("0:00:01"))
    .SendKeys "For"
    .SendKeys "~", True 'Enter leütés imitálása
    ' .Wait (Now + TimeValue("0:00:01"))
    ' .SendKeys "Mic"
    ' .SendKeys "~", True 'Enter leütés imitálása
    End With

    A folyamat végén valóban indul a VB, de valamiért a NUMLOCK-ot kikapcsolja.
    Ugyan ez a fentebb említett Xp-s gépen is lefut azonban ott nem kapcsolja ki a NUMLOCK-ot.

    A kívánatos az utóbbi lenne.

Új hozzászólás Aktív témák