تبلیغات :
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
دستگاه جوجه کشی حرفه ای
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




نمايش نتايج 1 به 6 از 6

نام تاپيک: text box

  1. #1
    اگه نباشه جاش خالی می مونه kbdfa's Avatar
    تاريخ عضويت
    Oct 2006
    پست ها
    239

    پيش فرض text box

    سلام خدمت دوستان
    يه سوال برام پيش اومده اگه ميشه جواب بدين
    چطور ميشه محتويات يك Text Box رو با فرمت Currency چاپ كرد يعني ارقام رو سه رقم سه رقم جدا كنه

  2. #2
    داره خودمونی میشه alishahbazi's Avatar
    تاريخ عضويت
    Aug 2006
    محل سكونت
    پی سی پدیا
    پست ها
    192

    12 با سلام

    دوست عزیز این سوال قبلا مطرح شده یک بار search کنی پیدا میکنی .

    بیایید افتخار ایران باشیم و به ایرانی بودن خود نیز افتخار کنیم



    [SIZE="2"] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [/SIZE]

  3. #3
    اگه نباشه جاش خالی می مونه
    تاريخ عضويت
    Mar 2006
    پست ها
    249

    پيش فرض

    تابع ccur برای تبدیل متغییر عددی به متغییر Currency است. حالا 3 تا 3 تا جدا کنه یا نه نمی دونم
    می تونی خودت از تابع Mid استفاده کنی و 3تا 3 تا جدا کنی

  4. #4
    پروفشنال vandu's Avatar
    تاريخ عضويت
    Jan 2006
    محل سكونت
    کامبادن
    پست ها
    678

    پيش فرض

    تابع format

  5. #5
    داره خودمونی میشه palizesoftware's Avatar
    تاريخ عضويت
    Sep 2005
    محل سكونت
    Usa
    پست ها
    190

    پيش فرض

    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    بهتره بجاي استفاده از TextBox از MaskEdit استفاده كني

  6. #6
    اگه نباشه جاش خالی می مونه Romina2006's Avatar
    تاريخ عضويت
    Jun 2006
    پست ها
    260

    پيش فرض

    Enum FormatType
    Standard = 0
    Commas = 1
    Dollars = 2
    Unformat = 3
    End Enum

    Function FormatAnyNumber(ByVal cInputNum As String, nFormat As FormatType) As String
    Dim cNewNum As String
    Select Case nFormat
    Case Standard
    cNewNum = Format$(cInputNum, "Standard")
    Case Commas
    cNewNum = Format$(cInputNum, "###,###,###,###,##0.##########")
    If Right$(cNewNum, 1) = "." Then
    cNewNum = Left$(cNewNum, Len(cNewNum) - 1)
    End If
    Case Dollars
    cNewNum = Format$(cInputNum, "Currency")
    Case Unformat
    If Len(cInputNum) Then
    cNewNum = CDbl(cInputNum)
    Else
    cNewNum = ""
    End If
    Case Else
    MsgBox "Unknown Number Format!", vbExclamation, "Format Any Number"
    cNewNum = cInputNum
    End Select
    FormatAnyNumber = cNewNum
    End Function

    Private Sub Command1_Click()
    Text1 = FormatAnyNumber(Text1, Commas)
    End Sub

    Private Sub Command2_Click()
    Text1 = FormatAnyNumber(Text1, Dollars)
    End Sub

    Private Sub Command3_Click()
    Text1 = FormatAnyNumber(Text1, Unformat)
    End Sub

    Private Sub Form_Load()
    Command1.Caption = "&Add Commas"
    Command2.Caption = "&Make Dollars"
    Command3.Caption = "&Unformat"
    Text1 = "123456789"
    End Sub

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •