حل مشکل حرف "ی" در ساخت فرم ها (آموزشی)

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • ali.b

    • 2014/01/12
    • 798
    #1

    حل مشکل حرف "ی" در ساخت فرم ها (آموزشی)

    با سلام
    یکی از مشکلاتی که هم خودم و هم خیلی از دوستان باهاش مواجه میشن نوشتن فارسی در محیط vb و مخصوصا حرف ی هست که دردسرهای زیادی رو ایجاد میکنه
    و بهتره اصلا تو محيط vba فارسي ننويسين
    این نمونه کد برای فرم درخواست یوزر و پسورد هست که توسط اقای قاسمیان درست شده این مشکل رو حل میکنه . از همینجا هم ازشون دوباره تشکر میکنم
    کد:
    [FONT=tahoma][COLOR=#0000ff]Private Sub CommandButton1_Click()[/COLOR][/FONT]
  [FONT=tahoma][COLOR=#0000ff]
[/COLOR][/FONT]
[FONT=tahoma][COLOR=#0000ff]If TextBox1.Text = ComboBox1.Column(1) Then[/COLOR][/FONT][COLOR=#b22222]
[/COLOR]
[COLOR=#b22222][FONT=tahoma]MsgBox (" پیغام هنگام ورود " + ComboBox1.Column(0))[/FONT][/COLOR]

  [FONT=tahoma]If ComboBox1.Column(0) =[COLOR=#008000]Sheet11.Range("B4").Value Then[/COLOR][/FONT]

[FONT=tahoma][COLOR=#0000ff]Sheet1.Visible = xlSheetVisible[/COLOR][/FONT]

  [FONT=tahoma][COLOR=#0000ff]Sheet11.Visible = xlSheetVisible[/COLOR][/FONT]
[FONT=tahoma][COLOR=#0000ff]Sheet2.Visible = xlSheetVisible[/COLOR][/FONT]
  [FONT=tahoma][COLOR=#0000ff]Sheet3.Visible = xlSheetVisible[/COLOR][/FONT]

[FONT=tahoma][COLOR=#0000ff]Sheet1.Select[/COLOR][/FONT]
  [FONT=tahoma][COLOR=#0000ff]
[/COLOR][/FONT]
[FONT=tahoma][COLOR=#0000ff]ElseIf ComboBox1.Column(0) = Sheet11.Range("B5").Value Then[/COLOR][/FONT]
  [FONT=tahoma][COLOR=#0000ff]
[/COLOR][/FONT]
[FONT=tahoma][COLOR=#0000ff]Sheet2.Visible = xlSheetVisible[/COLOR][/FONT]
  [FONT=tahoma][COLOR=#0000ff]Sheet2.Select[/COLOR][/FONT]
[FONT=tahoma][COLOR=#0000ff]
 [/COLOR][/FONT]
[FONT=tahoma][COLOR=#0000ff]ElseIf ComboBox1.Column(0) = Sheet11.Range("B6").Value Then[/COLOR][/FONT]
  [FONT=tahoma][COLOR=#0000ff]
[/COLOR][/FONT]
[FONT=tahoma][COLOR=#0000ff]Sheet3.Visible = xlSheetVisible[/COLOR][/FONT]
  [FONT=tahoma][COLOR=#0000ff]Sheet3.Select[/COLOR][/FONT]
[FONT=tahoma][COLOR=#0000ff]
[/COLOR][/FONT]
  [FONT=tahoma][COLOR=#0000ff]Else[/COLOR][/FONT]
[COLOR=#b22222][FONT=tahoma]
[/FONT][/COLOR]
[COLOR=#b22222]  [FONT=tahoma]MsgBox ("پیغام در صورت اشتباه بودن یوزر یا پسورد")[/FONT][/COLOR]

[FONT=tahoma][COLOR=#0000ff]
 [/COLOR][/FONT]
[FONT=tahoma][COLOR=#0000ff]End If[/COLOR][/FONT]
[FONT=tahoma][COLOR=#0000ff]
 [/COLOR][/FONT]
[FONT=tahoma][COLOR=#0000ff]End Sub[/COLOR][/FONT]
    در این قسمت
    کد:
    [FONT=tahoma][COLOR=#008000]Sheet11.Range("B4").Value Then[/COLOR][/FONT]
    محل ادرس دادن شیت و سلولی هست که نام کاربری در اون درج شده

    برچسب ها: فرم, ها, مشکل, حل, حرف, در, ساخت
    قبلی template بعدی
    چند لحظه..