سورس و پروژه Vb + Access

ارایه خدمات زیر به دانشجویان و علاقه مندان به برنامه نویسی با ویژوال بیسیک ۶

 ((( انجام پروژه های دانشجویی با قیمت توافقی)))

- راهنمایی و مشورت پروژه های دانشجویی   (برنامه نویسی)

- راهنمایی برای پروژه های پایانی (برنامه نویسی  و تحقیق و طراحی بانک اطلاعاتی)

- سوال و جواب برنامه نویسی

**** انجام کلیه پروژه های مدیریتی و غیره با قیمت توافقی *******

توجه : در این وبلاگ فقط سوالات  وبی + اکسس (vb+access) جواب داده خواهد شد

شماره جهت تماس ۹۳۶۰۰۹۶۷۸۷

سلام دوست عزيز و گرامي . ببخشيد ولي ما يک سورس ميخواستيم با زبان ويژوال بيسيک که زماني روي دکمه کامند کليک ميکنيم بره به آدرس اينترنتي که دريک صفحه جديد باز ميشه و لي کلمه اي که در text1 نوشته ايم جايگزين اسم سايت قبلي شود .
مثلا : www.text1.com
بايد www و .com باشد و نیازی به تایپ مجدد آنها نباشد و ما فقط اسم رو تو text1 بنويسيم راستی فقط یک جای تایپ و دکمه برو داشته باشد. لطفا اگر تونستيد خبر بديد . بسيار ممنون ميشيم

واسه این دوست عزیز یه نمونه سورس واسه دانلود نوشتم که امید وارم به دردتان بخورد

لینک دانلود :

http://rapidshare.com/files/393549291/Project1.zip.html

ghiasian.vcp.ir

با عرض پوزش این روزها بعد جوری سرم شلوغه

میخوام برای پایگاه بسیج برنامه بنویسم
موندم از کجا شروع کنم. چند تا بانک میخواد؟ چند تا فرم؟ گیج شدم. یکم برام مشکله
کمکم کنید لطفا
این برنامه برای ثبت سوابق بسیجیان کاربرد داره
خیلی خیلی ممنون میشم اگه بهم کمک کنید.

------------------------------------------------------------------------------------------------------------

برای شروع دوتا جدول درست کن که اولی مشخصات را داشته باشد و دومی سوابق بسیجیان

و ارتباط اینا باید ۱ به ان  باشد           

دوست عزيز واسه نمونه ايميل بده برات بفرستم 

۰۹۳۶۰۰۹۶۷۸۷ به این شماره پیامک بزن

امروز با یه سورس واسه دوستان قرار میدم که به درخواست آقا مرتضی انجام شده است

این سورس واسه گزارش کیری با چند شرط مختلف انجام شده است

لینک دانلود

http://rapidshare.com/files/386010197/report.zip.html

این تاپینک را با عجله دارم مینویسم اگه مشکلی داشت به بزرگواری خودتان ببخشید

بایییییییییییییییییی

لینک دانلود :

http://rapidshare.com/files/383390961/key.zip.html

فارسی کردن کیبورد در وبی ۶ جواب سوال یکی از مهندسان ()

********************************************************************

واسه فارسی کردن کیبورد برای کل برنامه می توانید تابع() ذکر شده را در یک ماژول دکلییر کرده و کد فارسی کردن کیبورد را در لود فرم ها نوشته با این کار کیبورد شما برای همیشه در کل نرم افزار فارسی  خواهد شود

موفق باشید

با تشکر از نظرات شما

با این توضیحات امروز واسه شما دو پروژه توپ دارم که امید وارم به دردتان بخورد

سورس کامل برنامه ها برو دانلود کن !

پروژه اولی ذخیره  کردن عکس در بانک اطلاعاتی اکسس

لینک دانلود اول:

 http://rapidshare.com/files/381861947/pic_save.zip.html

لینک دانلود دوم :

 http://www.4shared.com/file/PVT6jqw-/pic_save.html

پروژه دومی کار با Speech ویندوز میباشد همچنین از این پروژه می توانید به عنوان دیکشنری استفاده کنید متن انگلیسی را وارد کن واسه شما تلفظ کنه

لینک دانلود :

http://rapidshare.com/files/381502781/E_N.zip.html

و یه کامپوننت انیمیشن که می توانید فایل های gif در برنامه قرار دهید همراه با برنامه نمونه

دانلود :

http://rapidshare.com/files/372170948/milad.zip.html

بنام تنها خالق هستی 

آیکن آرم سپاه به سفارش فرمانده پایگاه مقاومت بسیج شهید رحمانی

لینک 1:

http://rapidshare.com/files/362911487/Icon_Sepah.zip.html

لینک 2 :

http://uploading.com/files/7debfce9/Icon%2BSepah.zip/

کاربر گرامی اگه لینک مستقیم نداد آدرس را copy و بعد past کنید.

نرم افزار های که با ویژوال بیسک ۶ و نظیر اینها نوشته میشوند و دارای پسورد ورودی باشند و اگر برنامه نویس پسورد را در رجستری تعریف کند به راحتی میتوان پسورد برنامه های ابن چنین را پیدا کرد و ، وارد برنامه شد ولی دست به کارهای غیر اخلاقی نزنید این هم گفته باشم که اگر پسورد ها کد گذاری شده باشند از عهده ما خارج است .

روش کار اول وارد رجستری شده و مسیر زیر را  طی کنید :

regedit + HKEY_CURRENT_USER + Control Panel + Software

بعد بر روی نرم افزار مورد نظر کلیک کن گزینه پسورد را از سمت را انتخاب کنید و به همین راحتی پسورد برنامه به دستاتن میاد (یه چیزی بگم تو کافینت این حقه خوب جواب میده و ... ) 

موفق و سربلند باشید

امید وارم از خجالتتان دربیام ....

بریم سر اص مطلب ...

سوال بید از _____ N ______ (چاپ کردن دیتا گرید)

واسه چاپ کردن می توان از روش های زیر استفاده کرد

شما باید از برنامه های گزارشگیری مثل DataReport یا Crystal Report استفاده کنید

استفاده از datareport برای ویژوال بسیار مناسب هستش من دارم استفاده میکنم و خوب هم جواب میده 

درسته از Crystal report  امکانات کمی داره  ولی ...

اما چه کنیم دیتا گرید چاپ بشه برای این کار من این کارو میکنم 

دیتا را طوری تنظیم میکنم که مستقیما از فرم پرینت بگیرم 

با دستور form1.printform

ولی باز هم چه کنم از دستور زیر هم میشه این کارو کرد 

با استفاده از دستور زیر اول برنامه یه عکس میگیره بعد آن را چاپ میکنه 

کد فوق را در یه ماژول تعریف کنید

Option Explicit
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_MENU = &H12
Public Const VK_SNAPSHOT = &H2C
Public Const KEYEVENTF_KEYUP = &H2
Public PrintMethod As Integer

و در قسمت چاپ از این کدها
Printer.Print ""
Printer.PaintPicture Form3.p1.Picture, 1 * 1440, 0.75 * 1440
Printer.EndDoc

چه کنم همینا بود 

نکته :

اگه دیتا گرید اسکرول داشت از توابع Api استاده کن که در زمان اجرا اسکرول را حرکت میده چه کنم

اینهم سورس :

http://rapidshare.com/files/363361970/Printdatagrid.zip.html

دانلود سورس :

http://uploading.com/files/6491bdm5/Printdatagrid.zip/

موفق و سرافراز باشید .

سلامی به گرمی برنامه نویسی 

بی مقدمه ...

با استفاده از ماژول زیر میتوان msgbox را فارسی کرد 

روش کار اینکه یه ماژول به برنامه اضافه کرده و کد زیر را در آن کپی کنید

Private m_hHook As Long

Private Const IDOK = 1
Private Const IDCANCEL = 2
Private Const IDABORT = 3
Private Const IDRETRY = 4
Private Const IDIGNORE = 5
Private Const IDYES = 6
Private Const IDNO = 7

Private Const WH_CBT = 5
Private Const GWL_HINSTANCE = (-6)
Private Const HCBT_ACTIVATE = 5

Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
   
   
Public Sub MessageBoxH(hwndThreadOwner As Long)
   
  Dim hInstance As Long
  Dim hThreadId As Long
   
  hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE)
  hThreadId = GetCurrentThreadId()
   
  m_hHook = SetWindowsHookEx(WH_CBT, AddressOf MsgBoxHookProc, hInstance, hThreadId)
   
End Sub
   
Private Function MsgBoxHookProc(ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   
  If uMsg = HCBT_ACTIVATE Then
  SetDlgItemText wParam, IDOK, "تأييد"
  SetDlgItemText wParam, IDCANCEL, "لغو"
  SetDlgItemText wParam, IDABORT, "قطع عمل"
  SetDlgItemText wParam, IDRETRY, "سعي مجدد"
  SetDlgItemText wParam, IDIGNORE, "صرف نظر"
  SetDlgItemText wParam, IDYES, "بله"
  SetDlgItemText wParam, IDNO, "خير"
   
  UnhookWindowsHookEx m_hHook
  End If
  MsgBoxHookProc = False
   
End Function

Public Function MsgBox2(Form1 As Form, prompt As String, style As VbMsgBoxStyle, title As String) As Long
  MessageBoxH Form1.hwnd
  MsgBox2 = MsgBox(prompt, style, title)
End Function

Public Function MsgBox3(Form1 As Form, prompt As String, style As VbMsgBoxStyle, title As String) As Long
  MessageBoxH Form1.hwnd
  MsgBox3 = MsgBox(prompt, style + vbMsgBoxRtlReading + vbMsgBoxRight, title)
End Function


برای فراخوانی هم بعد از نوشتن msgboxعدد 3 و بعد از آن me,را وارد کنید  در زیر نمونه را مشاهده کنید

MsgBox3 Me, "www.vb-access.blogfa.com", vbQuestion, "پروژه دانشجوي "

*** موضوع جدید در فارسی کردنMsgBox *** در رویداد  Form_Unload

واسه فارسی کردن MsgBox در رویداد  Form_Unload از آرگومان Cancel باید استفاده کنید.

با استفاده از کد زیر میتوان این کار را انجام داد

Cancel = MsgBox3(Me, "آیا مایل به خروج از برنامه هستید؟", vbExclamation + vbYesNo, "خروج")
If Cancel = vbYes Then
End
End If

یعنی به جایe در مثال قبلی از  Cancel استفاده می کنید.

یا آرگومان Cancel را به متغییر مورد علاقه خود تغییر دهید.

لینک دانلود نمونه پروژه :

http://rapidshare.com/files/359431579/Msgbox_Fa.zip.html

65 تا آیکن به درد بخور

لینک اول _--_  دانلود :

http://rapidshare.de/files/49167698/Icon.zip.html

اگه دانلود مشکلی داشت خبر بدین

متشکر از نظرات خیلی زیادتان (بابا کم نظر بدین سیستم داره تعجب میکنه )

لینک دوم _--_  دانلود :

http://uploading.com/files/84bbd635/Icon.zip/

این هم بگم که لینک اول هم کار میده (____ -----__N__-----____ )

کار این نرم افزار اینه که شما می توانید تاریخ سیستم خودتان را بدون رفتن به کنترل پنل آن را تعییر دهید این برنامه با ویژال نوشته شده است 

 همچنین میتوانید تاریخ شمسی را به میلادی و میلادی را به شمسی تبدیل کنید .

بیشتر زمانی به دردتان میخوره که تنظیمات تاریخ و زمان را بسته باشند (مثلا در سایت های کامپیوتری دانشگاهها یا کافی نت ها ) من این کارو کردم . حال میده وقتی ادمین ببینه تاریخ درست شده

برو حالشو ببر :

http://rapidshare.de/files/49132455/date_system.zip.html

نکته : اگه بعد از نصب برنامه مشکلی پیش بیاد به ما اطلاع دهید.

با تشکر از نظرات شما JG

فروشگاه بزرگ آستارا کمپ

(دومین نمایندگی چادر های عصایی در ایران)

*** خرید و فروش انواع چادر های مسافرتی(فنری، عصایی ،کلبه ای و...)

***در رنگ و سایز های مختلف با قیمت کاملا ویژه

///فروش انواع کیسه خواب ، حصیر (زیر انداز)،لوازم بادی ،میز و صندلی مسافرتی

 آدرس : آستارا -بازارساحلی انتهای ۶متری بلوک ۵۰ پلاک۸۲۰

جهت خرید یا سفارش به وبلاگ زیر مراجعه فرمایید.

http://www.astara-camp.blogfa.com/

هنگام خرید کارت ضمانت ۲ ساله برای چادر را دریافت کنید.

 ------------------------------------------------

نمونه ای از چادر فنری که انواع مختلف در سایز های مختلف دارد

دوستمون کوروش جان در مورد نوشتار به تلفظ (speech )سوال کرده بود .

در جواب دستمون :

آقا کوروش من با speech خودم کار نکردم ولی واسه دانلود یه سورسی میزارم که امید وارم بدردتان بخورد

البته یه کم دستکاری نیاز داره

کار این سورس یا برنامه اینکه عدد را میگیره و آن را تلفظ میکنه کار توپیه

تا حالا باهاش کار نکردم که بفهمم متنو تلفظ میکنه یا نه اگه موفق شدی سورسشو واسه ما هم بدین 

اگه جواب داد ما را خبر کن خیلی خوشحال میشم .

اگه هم خواب نداد بازهم جواب بده از بچه دانشجویان بپرسم شاید اونا بفهمن

این هم سورس با لینک  :

http://www.4shared.com/file/216423909/d0808081/Number.html

موفق و پایدار باشید .

نظرات شما باعث خوشحالی ما میشود .

این ماژول در مورد کنترل تاریخ

--------------------------------------------

فرض کنید در حال نوشتن یه برنامه هستین که تاریخ ورودی حتما باید بطور صحیح وارد شود

نمونه (۰۱/۰۱/۱۳۸۹) در این باره باید چکار کنید، تاریخ را کنترل کنید برای این یک نمونه ماژول واسه شما دوستان قرار میدم که استفاده کنید .

در پایان با نظرات خود ما را در جهت بهبود و ارتقاء این وبلاگ راهنمای کنید(پیشنهاد و ...)

Public Function Format_Test(Ldate As String) As Boolean

Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim str4 As String
Dim str5 As String
Dim str6 As String
Dim str7 As String
Dim str8 As String
Dim str9 As String
Dim str10 As String

    str1 = Mid(Ldate, 1, 1)
    str2 = Mid(Ldate, 2, 1)
    str3 = Mid(Ldate, 3, 1)
    str4 = Mid(Ldate, 4, 1)
    str5 = Mid(Ldate, 5, 1)
    str6 = Mid(Ldate, 6, 1)
    str7 = Mid(Ldate, 7, 1)
    str8 = Mid(Ldate, 8, 1)
    str9 = Mid(Ldate, 9, 1)
    str10 = Mid(Ldate, 10, 1)
    If str1 = "/" Or str2 = "/" Or str3 = "/" Or str4 = "/" Or _
       str6 = "/" Or str7 = "/" Or str9 = "/" Or str10 = "/" Or _
     str1 = "0" Or str5 <> "/" Or str8 <> "/" Then
      Format_Test = True
       Exit Function
    End If
 If Val(str6) > 1 Or Val(str9) > 3 Or Val(str9 & str10) > 31 Or Val(str6 & str7) > 12 Then
      Format_Test = True
    End If
    If (str6 = "0" And str7 = "0") Or (str9 = "0" And str10 = "0") Then
       Format_Test = True
    End If
    '--------------------------------------------------
    If (str9 <> "0" And str10 = "") Then
    Format_Test = True
    End If
      '--------------------------------------------------
    If (str9 = "0" And str10 = "") Then
    Format_Test = True
    End If
End Function

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

  If Format_Test(T1) = True Then
     MsgBox "تاريخ فاقد اعتبار است", vbCritical, "خطاي ثبت تاريخ"
  End If

T1: نام تکس باکسی که تاریخ در آن وارد شده است.

یکی از دوستان سوال کرده بود که چطور میشه یک کلمه را در بانک جستجو کرد یعنی هر چی که شبیه به آن است را نمایش بده ؟

جستجوی اول:

در جواب این دوستم باید بگم که کار خیلی راحتی هستش از کد های اس گیو ال(SQL) استفاده میشه

روش کار :

اول از همه یک تکس باکس (Text)به برنامه اضافه کرده و کد زیر را در Change آن بنویسید.

 دوم برای دیدن خروجی یک  DataGrid به برنامه اضافه کنید و datasourse  آن را برابر با کنترلی که با بانک اطلاعاتی ارتباط داره قرار دهید. برای راحتی کار از adodc استفاده کنید.   

SQL = "SELECT * FROM notbook WHERE Left(date," & Len(Text4) & ")='" & Trim(Text4) & "'"

notbook :نام جدولی که در بانک اطلاعاتی دارین

date : نام فیلدی که میخواین جستجو کنید

text4 : تکس باکسی که در آن جستجو را وارد می کنید

sql : یک متغییر (اگه تعریف نکنید اشکالی ندارد در صورتی که از Option Explicit استفاده نکرده باشید)

نکته :با وارد کردن هر حرف بقیه را نمایش میدهد یعنی اگر در بانک اطلاعاتی کلمه های دارین که با حرف ش شروع میشه مثلا چند اسم (شهرام ، شمش ، شیرین ، شهیاد)با وارد کردن ش همه اینها را نمایش میده

جستجوی دوم :

این هم یک نمونه دیگر که بطور کامل جستجو میکنه

   If Trim(نام تکس باکس) <> "" Then
      Adodc1.RecordSource = "SELECT * FROM نام جدول WHERE نام فيلد='" & Trim(نام تکس باکي) & "'"
       Adodc1.Refresh
      End If

-----------------------------------------*****************************-------------------------------------

Private Sub Text1_Change()
   If Trim(Text1) <> "" Then
     Adodc1.RecordSource = "SELECT * FROM creat WHERE number1='" & Trim(Text1) & "'"
       Adodc1.Refresh
      End If
End Sub

//////////////////////////////////////////////////////////////////////////////////////////////////////////

  جستجوی سوم :

این جستجو زمانی کار میکنه که یه کلمه را بطور کامل پیدا کرد مثلا در یک جدول اسمی با نام یوسف دارین

اگه در تکس باکس وارد کنید یوسف مشخصات کامل را نمایش میده

روش کار :

در رویداد change یه text وارد کنید.

Dim FindStr As String

  Dim AndTest As Boolean

 
  If Trim(FindText(0)) <> "" Then
     FindStr = "Name='" & Trim(FindText(0)) & "'"
     AndTest = True
  End If

***************************************************************************

در این زمینه یک پروژه واسه دانلود ویزارم

شرمنده دوستان این روزه ها بد جوری سرم شلوغه چون در حال نوشتن یه پروژه انبارداری واسه یه فروشگاه هستم و یه هفته ای باید تحویل بدم

و بعد ون یه نرم افزار مدیریت چکه که در این وبلاگ برنامه را واسه دانلود میزارم .

تا چند روز آینده منتظر کد ها و سورس های توپ باشید (سوپرایزتون میکنم)

--------------------------------------------------------------------

خسته نباشید همطوری که قول داده بودم یه پروژه واسه دنلود آماده کردم امیدورم به دردتان بخورد

اگه سوالی هم داشتین من در خدمتم .

این هم لینک دانلود

adodc1 : کنترلی که با بانک اطلاعاتی ارتباط برقرار کردیم
date       :فیلد مورد نظر برای جستجو
t1 و t2    :t1 تاریخ اول  t2 تاریخ دوم

 دانلود پروژه نمونه در ادامه مطلب

 لینک دانلود

http://www.uplod.ir/download.php?file=577209

روش کار :

به فرمتان ۲ عدد Command اضافه کرده واسم اولی را Up و اسم دومی را Down قرار دهید .

برای دیدن ادامه توضیحات و کد برنامه بر روی ادامه مطلب کلیک کن

برای مشاهده کد بر روی ادامه مطلب کلیک کنید

کد فوق یک ماژول میباشد برای استفاده از این کد باید آن را در داخل یک ماژول کپی کنید

وبعد آن را فراخوانی کنید

فراخوانی کد :                                   ****************

مثال فرض کنید عدد موجود در تکس ۱ را به حروف در تکس ۲ تبدیل کنیم

در رویداد کلیک یا لود فرم می نویسم :

Text2.Text = AbH(Text1.Text)

برای مشاهده کد بر روی ادامه مطلب کلیک کنید

  Set DBase = OpenDatabase(App.Path & "\mdb2.mdb", True, False)
 
  SQL = "INSERT INTO Table1 In '" & App.Path & "\mdb1.mdb' SELECT * FROM Table2 "
 
  DBase.Execute SQL
   
  MsgBox " عمل انتقال با موفقعیت به پایان رسید", vbInformation, "Copy Completed"

روش کار:

این کد را در رویداد کلیک یک Command کپی کنید .

شرح کد:

کار این کد به این صورت است که رکوردهای موجود در یک پایگاه داده را در پایگاه داده دیگر کپی میکند

نکته:

رکوردهای که ای دی آنها تکراری هستند را کپی نمی کند

بعد نوت پد رو اجرا کنید و کدهای زیر رو توش کپی کنید

type="win32"

name="ppedv.xptest.XP"

processorArchitecture="X86"

version="1.0.0.0"

/>

Ein XP Test mit Visual Styles

type="win32"

name="Microsoft.Windows.Common-Controls"

language="*"

processorArchitecture="X86"

version="6.0.0.0"

publicKeyToken="6595b64144ccf1df"

/>

بعد از منوی فایل گزینه سیو از رو انتخاب کنید و در این پنجره کادر انتخابی که کنارش نوشته
Encoding  ---à utf-8     
تنظیم کنید و نام فایل رو به اسم برنامه خودتون با پسوند
.exe.manifest. اسم برنامه خودتان
ذخیره کنید فقط به یاد داشته باشین همین فایلی رو که الان ساختین رو در کنار فایل اجرایی برنامه بزارین
برای این کار باید یک فایل اجرایی واسه برنامتون از قبل ساخته باشید
فراموش نشه که این فایلی رو که ساختین همیشه باید در کنار فایل اصلی برنامه باشه منظور از برنامه اجرایی همون برنامه ای که پسوند ای ایکس ای داره

کد نوشته شده در برنامه

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Const SW_SHOWNORMAL = 1

Private Type tagInitCommonControlsEx

   lngSize As Long

   lngICC As Long

End Type

Private Declare Function InitCommonControlsEx Lib "comctl32.dll" _

   (iccex As tagInitCommonControlsEx) As Boolean

Private Const ICC_USEREX_CLASSES = &H200

Public Function InitCommonControlsVB() As Boolean

   On Error Resume Next

   Dim iccex As tagInitCommonControlsEx

   ' Ensure CC available:

   With iccex

       .lngSize = LenB(iccex)

       .lngICC = ICC_USEREX_CLASSES

   End With

   InitCommonControlsEx iccex

   InitCommonControlsVB = (Err.Number = 0)

   On Error GoTo 0

End Function

Private Sub Form_Initialize()

  InitCommonControlsVB

End Sub

در رویداد چنج تکس باکس نوشته میشود

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

بصورت زیر فراخوانی میشود (Call txtSelect(Text1)

با استفاده از کد بالا که یک ماژول میباشد شما میتوانید آن را در یک تکس باکس استفاده با فراخوانی

آن (KeyAscii = Number_Filter(KeyAscii)) در Text3_KeyPress میتوانید دکمه های تایپ را برای کاربر محدود کنید یعنی با استفاده از این کد کاربر در برنامه نمی تواند متنی تایپ کند یعنی فقط عدد میتواند تایپ کند

شماره تماس :   ۰۹۳۶۰۰۹۶۷۸۷

ایمیل : ghiasian.jusef@yahoo.com