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

• #2011 vilag tag sztanozs #2009

  Új Válasz 2013-03-20 07:31:32 #2011

  Ú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 sztanozs #2009 üzenetére

  Az első probléma meg is oldódott!!
  Eszembe nem jutott, hogy a projectet át is lehet nevezni

  A rövidített megoldás ennyi lett:
  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
  .SendKeys "JELSZÓ" 'Jelszó megadása
  .SendKeys "~", True 'Enter leütés imitálása
  End With

  Nagyon köszönöm a segítséget!

  A másik dologhoz:

  Itt valami turpisság van szerintem.
  Van ugyan ebben a programban egy másik form is ami hasonló körülmények között kerül meghívásra.
  Nevezetesen a UsefForm1-en van egy gomb, aminek ennyi a kódja:

  UserForm2.Show

  UserForm2 Initialize:

  Private Sub UserForm_Initialize()
  
  szoveg1 = "A fejlesztői felületre történő belépéshez jelszó szükséges!" + Chr(13) + Chr(13) + _
  "(3 lehetőséged van)" + Chr(13) + Chr(13) + "Kérlek add meg a jelszót:"
  szoveg2 = "A megadott jelszó hibás! Kérlek add meg a helyes jelszót!"
  szoveg3 = "A megadott jelszó hibás! 1 további lehetőséged maradt!"
  
  fejlec1 = "Kérlek add meg a jelszót! Még 3 további lehetőséged maradt!"
  fejlec2 = "Érvénytelen jelszó! Még 2 további lehetősged maradt!"
  fejlec3 = "Érvénytelen jelszó! Még 1 további lehetősged maradt!"
  
  UserForm2.Caption = fejlec1
  Label1.Caption = szoveg1
  TextBox1.SetFocus
  n = 1
  
  End Sub

  Végeredmény: a UserForm2 előtűnik és a TextBox1-ben villog a kurzor és bevitelre vár.

  A különbség a másik esethez képest (szerintem) csupán annyi, hogy itt nem egy gomb megnyomása adja ki a UserForm3.Show parancsot, hanem az ha a ComboBox9hange()-ben teljesül a következő feltétel (részlet a kódból):
  If ComboBox9.Value = "Budapest" Or ComboBox8.Value = "Miskolc" Or ComboBox8.Value = "Debrecen" Or ComboBox8.Value = "Szeged" Or ComboBox8.Value = "Pécs" Or ComboBox8.Value = "Győr" And gkodkereses = False Then
  Label24.Caption = ""
  'irszam = Application.InputBox("Kérlek add meg a ""levelezési cím""-hez tartozó irányítószámot:", "Irányítószám megadása", irszam)
  nagyvaros = True
  UserForm3.Show
  nagyvaros = False
  (...)

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