سوال از vb6

سلام
لطفا جواب سوالهای منو بدین خیلی حیاتیه ممنون میشم:11::11::11::11:
من چندتا سوال داشتم که جواب انها را پیدا نکردم اگه ممکنه راهنمایی کنید
یه برنامه با vb6 نوشتم که میخوام وقتی برنامه اجرا میشه فونت کل برنامه فارسی بشه ودیگه نیازی به عوض کردن فونت روی تولبار نباشه
از کامبو برای انتخاب تاریخ استفاده کردم میخوام مثل search ویندوز وقتی روی فلش کامبو کلیک می کنم تقویم فارسی بیاد و بتوان تاریخ را انتخاب کرد
کد مربوط به اینکه وقتی اینتر میزنیم به ترتیب بین textbox ها حرکت کند و به command رسید پنجره دیگری باز شود

با سلام

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

فرم قرار دهید تا فونت همه کنترل ها چه در طراحی و چه در حال اجرا فارسی بشه .

برای سوال دومتون هم برید به بخش کامپوننت ها و گزینه Microsoft windows common contorols -2 6.0 رو

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

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

شما تا حالا همچین چیزی دیدید ؟؟؟؟؟؟؟؟؟؟؟؟؟؟ :18: من که ندیدم با اینتر بین تکست باکس ها حرکت کرد

بلکه با دکمه Tab حرکت می کنن و در مورد اینکه به Command رسید یک فرم جدید باز بشه باید اول فرم رو

ایجاد کنید بعد تو بخش Click دکمه مورد نظر کد زیر رو بنویسید :

unload me
form2.show

اینجا با فرض اینکه فرم ایجاتد کرده شما اسمش Form2 هست .

با تشکر فراوان .

:10::11: :40::31:

سلام

نقل قول:

---

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

---

اون کامپوننتی که دوستمون معرفی کردند فکر کنم میلادی باشه.
برای این کار یک کامپوننت داشتم براتون آپلودش کردم. کامپوننت جالبیه:

کد:

---

http://www.lon.ir/up/uploads/1269783275.zip

---

نقل قول:

---

کد مربوط به اینکه وقتی اینتر میزنیم به ترتیب بین textbox ها حرکت کند و به command رسید پنجره دیگری باز شود

---

از یه تابع به نام SendKeys باید استفاده کنید:

کد:

---

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendKeys "{tab}"
End Sub

---

بعد برای Command مینویسید:

کد:

---

Private Sub Command1_GotFocus()
Me.Hide
Form2.Show
End Sub

---

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

خیلی از شما ممنونم
تا حد زیادی مشکلم حل شد
فقط می خواستم بدونم فایل با پسوند ocx را چجوری باز کنم با vb که باز نشد
بازم ازتون تشکر می کنم

با درگ کردن و رها کردن فایل دلخواه در تولباکس میتونی به راحتی فایل های ocx رو با vb باز کنی ....

نقل قول:

---

نوشته شده توسط sahar_82614 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خیلی از شما ممنونم
تا حد زیادی مشکلم حل شد
فقط می خواستم بدونم فایل با پسوند ocx را چجوری باز کنم با vb که باز نشد
بازم ازتون تشکر می کنم

---

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

Project > Components > Browse

فایل OCX رو در مسیری که قرار دادید ، انتخاب کنید !

:11::20::46: با تشکر از راهنماییتون

فقط در مورد فارسی کردن برنامه هر کاری می کنم نمیشه
وسوال دیگه اگه یک کامبو داشته باشیم که به database وصل باشه و با زدن اولین حرف از کلمه مورد نظر خود کلمه را به صورت کامل نشان بده باید چیکار کنیم

کد زیر رانوشتم ولی error میده!

Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal Flags As Long) As Long
LoadKeyboardLayout "00000429", 1

:11:

سلام
برای فارسی کردن کیبورد (در صورت نصب زبان فارسی)

کد:

---

'VB6
Private Declare Function LoadKeyboardLayoutA Lib "user32.dll" (ByVal pwszKLID As String, ByVal flags As Long) As Long

Call LoadKeyboardLayoutA("00000429" & vbNullChar, 1)

=====

'VB7,8,9,10
System.Windows.Forms.InputLanguage.CurrentInputLanguage = System.Windows.Forms.InputLanguage.FromCulture(New System.Globalization.CultureInfo(&H429))

یا حتی

Private Declare Function LoadKeyboardLayoutA Lib "user32.dll" (ByVal pwszKLID As String, ByVal flags As Integer) As Integer

LoadKeyboardLayoutA("00000429" & vbNullChar, 1)

---

سلام
منظورتون از نصب زبان فارسی همون زبان ویندوز است؟
پس چرا وقتی این کد را وارد می کنم error زیر را روی "00000429" میدهد؟؟؟؟؟؟؟؟؟؟؟

invalid outside procedure
:41:

نقل قول:

---

نوشته شده توسط sahar_82614 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
منظورتون از نصب زبان فارسی همون زبان ویندوز است؟
پس چرا وقتی این کد را وارد می کنم error زیر را روی "00000429" میدهد؟؟؟؟؟؟؟؟؟؟؟

invalid outside procedure
:41:

---

باید کد زیر را در بخش General بنویسید :

کد:

---

Private Declare Function LoadKeyboardLayoutA Lib "user32.dll" (ByVal pwszKLID As String, ByVal flags As Long) As Long

---

و ادامه کد را در بخش Form Load یا درون یک Command بنویسید یا هرجای دیگه ای ... مانند :

کد:

---

Private Sub Command1_Click()
Call LoadKeyboardLayoutA("00000429" & vbNullChar, 1)
End Sub

---