آخرين پست هاي ارسالي انجمن ايران دلفي

تماشای رایگان فیلم ایرانی ، خارجی و کودک آکادمی دلفی
نمایش نتایج: از 1 به 3 از 3

موضوع: كمك فوري (اگه vb بلدين كمكم كنيد)

  1. #1
    کاربر سایت admina آواتار ها
    تاریخ عضویت
    June 2013
    سن
    11
    نوشته ها
    2
    تشکر ها
    0
    تشکر شده 2 بار در 2 ارسال.

    كمك فوري (اگه vb بلدين كمكم كنيد)

    من يه برنامه نوشتم با زبان vb

    اين فرمو طراحي كردم

    مشكل اينجاست بدون رمز وارد ميشه

    و وقتي رمزي كه گذاشتمو ميزنم ميگه اشتباهه

    لطفا كمكم كنيد دوستان

    اگه ميشه ايديمو ادد كنيد اونجا بم بگين چيكار كنم(ايديم تو پروفايلم هست)

    اينم كدهاي اين فرم هست







    Private Sub Check1_Click()
    If Check1.Value = 1 Then
    Label1.Enabled = True
    Text1.Enabled = True
    Else
    Label1.Enabled = False
    Text1.Enabled = False
    End If
    End Sub

    Private Sub Cmd_Cancel_Click()
    Unload Me
    End Sub

    Private Sub Cmd_OK_Click()
    If Check1.Value = 1 Then
    If Trim(Text1) = "" Then
    MsgBox " áØÝÇ ˜áãå ÚÈæÑ ãæÑÏ äÙÑ ÎæÏ ÑÇ æÇÑÏ äãÇííÏ ", vbExclamation, "Warninng !"
    Text1.SetFocus
    Exit Sub
    End If
    SaveSetting "Media Soft", "Ajans Yar", "Password", Trim(Text1)
    End If
    Unload Me
    End Sub

    Private Sub Form_Load()
    A = GetSetting("Media Soft", "Ajans Yar", "Password&quot
    Text1 = A
    End Sub

    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    KeyAscii = 0
    Call Cmd_OK_Click
    End If
    End Sub



  2. کاربر مقابل از admina عزیز به خاطر این پست مفید تشکر کرده است:

    ahanpakhsh1 (31 / December / 2019)

  3. #2
    مدیرکل سایت admin آواتار ها
    تاریخ عضویت
    September 2008
    محل سکونت
    تهران ، آیسک
    سن
    39
    نوشته ها
    522
    تشکر ها
    247
    تشکر شده 250 بار در 160 ارسال.
    Blog Entries
    1
    سلام.
    اول که کاشکی پروژه رو به صورت کامل آپلود میکردید . دوم هم شما باید به صورت زیر عمل کنید:

    کد:

    کد:
    Private Sub Command1_Click()
    If Trim(Text1.Text) = "1" Then
    MsgBox "ok Password"
    Else
    MsgBox "error"
    End If
    End Sub

    دلفی ،*جذاب ترین زبان طراحی نرم افزار ...

  4. کاربر مقابل از admin عزیز به خاطر این پست مفید تشکر کرده است:

    ahanpakhsh1 (31 / December / 2019)

  5. #3
    کاربر سایت admina آواتار ها
    تاریخ عضویت
    June 2013
    سن
    11
    نوشته ها
    2
    تشکر ها
    0
    تشکر شده 2 بار در 2 ارسال.
    ممنون از جوابتون ،الان كل پروژه رو* ارسال ميكنم

  6. کاربر مقابل از admina عزیز به خاطر این پست مفید تشکر کرده است:

    ahanpakhsh1 (31 / December / 2019)

علاقه مندي ها (Bookmarks)

علاقه مندي ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •