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

• #31214 Fferi50 Topikgazda the radish #31213

  Új Válasz 2016-04-04 21:37:38 #31214

  Ú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

  

  Fferi50

  Topikgazda

  válasz the radish #31213 üzenetére

  Szia!

  Beleklikkre nem találtam megoldást, de egérmutató rávitele esetére az alábbi kis makró - amit a Textbox1 megfelelő eseménykezelőjébe írtam, aktiválja a Textbox1 -et és "bekékíti" a teljes szöveget - azaz gépelés elkezdésekor törlődik a benne levő szöveg.
  Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Me.ActiveControl.Name <> "TextBox1" Then
  TextBox1.SetFocus
  Application.SendKeys "+({TAB})"
  Application.SendKeys "{TAB}"
  'Textbox1.Text="" 'is kitörli a szöveget, ha fölé viszed az egérmutatót, akkor nem kell az előző két sor (nyilván véletlen kitörlés ellen kell még egy rákérdezés ebben az esetben msgbox használatával)
  End If
  End Sub

  Üdv.

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