سوال ساده

[Pokahantes]

سلام
يه برنامه نوشتم با (سوئيچ تو) كه هر كشوري رو بديم كد كشورو نشون بده
خواهشا به اين چند تا سوالم جواب بدين
اول اينكه ميخوام بدونم چطوري ميتونم سه تا تكست باكس داشته باشم
كه تو اولي اسم كشور دومي كدش و سومي مثلا زبانش
كه با زدن دكمه هر سه با هم نمايش داده شوند.
دوم ميخوام تكست باكسها فقط توش فارسي تايپ شه.
سوم ميخوام بشه به هر دو زبان تو تكست نوشت.
سه ونيم چطور ميشه جلوي ارور اينطوريو رو گرفت
مثلا ما مينويسيم " آلمان "در حاليكه تو برنامه نوشته" المان "
حالا كاربر از كجا بدونه كدومو بايد تايپ كنه.:ناراحت:

[mehdad.koulab]

سلام
اول اينكه ميخوام بدونم چطوري ميتونم سه تا تكست باكس داشته باشم
كه تو اولي اسم كشور دومي كدش و سومي مثلا زبانش
كه با زدن دكمه هر سه با هم نمايش داده شوند.

سلام دوست عزیز اگه میخوای save کنی تا فقط اون کشورهایی که شما می خوای باشه میتونی از data استفاده کنی و textbox ها رو به فیلد مورد نظر تو database ربط بدی اگر هم که میخوای کار بر بتونه به کشورها اظافه کنه یا از اونا کم کنه به لینک های زیر سر بزن و دانلودشون کن حتما به دردت میخوره
http://barnamenevis.org/forum/showpost.php?p=484190&postcount=13
http://barnamenevis.org/forum/showpost.php?p=515340&postcount=14

[safironlinee]

سلام
حتما باید با سوئیچ تو باشه؟
اگه با نک شما اکسس باشه میتونی با data 1 کار کنی یعنی یدونش رو بزاری روی فرم و تکستها رو متصل کنی بهش بر اساس فیلدات تکسا رو تنظیم کنی اینجوری همه اطلاعات رو میبینی.
واسه تایپ فارسی
داخل general کد زیر رو بذار
Private Const HKL_NEXT = 1
Private Const HKL_PREV = 0
Private Declare Function ActivateKeyboardLayout Lib "user32" _
(ByVal HKL As Long, ByVal Flags As Long) As Long
Private Declare Function GetKeyboardLayout Lib "user32" _
(ByVal dwLayout As Long) As Long
Dim oldKB As Long
حالا یه کامند بزار رو فرم واسه تغییر زبان با این کد
Private Sub Command1_Click()
oldKB = GetKeyboardLayout(0)
ActivateKeyboardLayout HKL_NEXT, ByVal 0&
If Command6.Caption = "EN" Then
Command6.Caption = "FA"
Command6.ToolTipText = "farsi"
Else
If Command6.Caption = "FA" Then
Command6.Caption = "EN"
Command6.ToolTipText = "en"
End If
End If


End Sub
واسه مرحله آخر من پیشنهاد می کنم اگه بانک اطلاعاتی شما کم حجم هستش اون رو تصحیح کنی یا اینکه این کلمه ها رو با کلمه صحیحش ریپلیس کنی اگه نشد بگو تا ..
خود را دوست بدارید تا دیگران را دوست داشته باشید.