Telefonszámunk: 1-472-0679

[Resolved] textbox formázása

Kezdőlap › Fórumok › Excel programozás › [Resolved] textbox formázása

Topic Resolution: Resolved
5 bejegyzés megtekintése - 1-5 / 5
  • Szerző
    Bejegyzés
  • 2019-06-26-07:15 #5975
    Potus
    Felhasználó

      Sziasztok!

      Szeretnék textbox-ot úgy formázni, hogy amikor beviszek egy számot akkor az helyiérték szerűen és a végén Ft jelőléssel jelenjen meg. pl.: 65 568,00 Ft .
      Ilyesmikkel próbálkoztam :
      Private Sub TextBox15_AfterUpdate()
      TextBox15 = Format(TextBox15, „# 000.00 Ft”)
      end sub
      Private Sub TextBox15_Change()
      If IsNumeric(„TextBox15”) Then
      TextBox15 = Format(TextBox15, „# 000.00 Ft”)
      end sub
      Private Sub TextBox15_Enter()
      If IsNumeric(„TextBox15”) Then
      TextBox15 = Format(TextBox15, „Ft # 000.00”)
      end sub

      de egyiknél sem jelent meg a kivánalmaim szerint.

      Köszi! Potus

      2019-06-26-10:00 #5976
      horvimi
      Adminisztrátor

        Ez nagyjából ugyanaz a probléma, mint a Label HUF ügy, amit nemrég kérdeztél.

        Nem gondolom helyesnek, hogy nem teszed ki a textbox után a .Value tulajdonsagot. Talán ez a default tulajdonsaga, de akkor is.
        Ha a fentiek szerint nem megy, akkor próbáld a Text tulajdonsaggal.

        2019-06-26-10:35 #5977
        Potus
        Felhasználó

          Köszönöm a segítséget. Alakulgat, csak…

          Private Sub TextBox1_Change()
          TextBox1.Text = Format(TextBox1.Text, „### ###.00″ & ” Ft”)
          End Sub

          Private Sub TextBox1_Change()
          TextBox1.Text = Format(TextBox1.Text, „# 000.00″ & ” Ft”)
          End Sub

          Private Sub TextBox1_Change()
          TextBox1.Value = Format(TextBox1.Value, „### ###.00″ & ” Ft”)
          End Sub

          Private Sub TextBox1_Change()
          TextBox1.Value = Format(TextBox1.Value, „# 000.00″ & ” Ft”)
          End Sub

          Bár milyen formában próbálgatom az első számjegy után a Ft utáni részre ugrik a curzor.

          Attachments:
          You must be logged in to view attached files.
          2019-06-26-20:59 #5980
          Potus
          Felhasználó

            azt hiszem ez a megoldás, de ez olyan magyartalan, nem?

            Private Sub TextBox1_Change()
            TextBox1.Value = Format(TextBox1.Value, ” Ft 0,00″)
            End Sub

            először nullák jelennek meg a textbox-ban, de ahogy elkezdem beütni a számokat a nullák eltünnek, a helyiérték kialakul, viszont nincs tizedes (pedig úgy lenne szép).

            Attachments:
            You must be logged in to view attached files.
            2019-06-30-18:41 #5982
            horvimi
            Adminisztrátor

              A Change esemény lefut minden karakter lefutása után, tehát az első számjegynél is.
              Használd inkább az AfterUpdate tulajdonságot!

              Private Sub TextBox1_AfterUpdate()
    TextBox1.Value = Format(TextBox1.Value, "### ###.00" & " Ft")
End Sub

              Imre

            • Szerző
              Bejegyzés
            5 bejegyzés megtekintése - 1-5 / 5
            • Be kell jelentkezni a hozzászóláshoz.