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

Ennek a témakörnek tartalma 4 hozzászólás, 2 résztvevő. Utolsó frissítés:  horvimi 1 hónap, 2 hete telt el.

5 bejegyzés megtekintése - 1-5 / 5
  • Szerző
    Bejegyzés
  • #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

    #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.

    #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.
    #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.
    #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

5 bejegyzés megtekintése - 1-5 / 5

Be kell jelentkezni a hozzászóláshoz.