Printable View
سلام به تمام دوستان
من از فایل Shamsi.dll استفده کردمولی در هنگام اجرا یک exception رخ میده
An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in Lan.exe
Additional information: COM object with CLSID {C36A6B80-D6A8-4F08-91DD-402E39456FE4} is either not valid or not registered.
کسی میتونه منو راهنمایی کنه که چه کار باید انجام بدم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
دوستانی که درمورد تاریخ قمری صحبت کردند و ذکر کرده بودند کخ برای استفاده گذاشته اند.من نتونستم پیداشون کنم.اگه دوباره لطف کنید ممنون میشم.
salam
man moshkele farsi neveshtan tu vb daram
va tu access
khode windows ba farsi moshkeli nadare
hatta word ham moshkeli nadare vali ba vb va access injuri mishe
http://www.uploadhut.com/upload/345964.jpg??
سلامنقل قول:
نوشته شده توسط music
از منوی Tools به option و در دیالوگ باز باز شده از بالا لبه Editor Format و گزینه Font را به
Courier New (Arabic)تغییر بده.
از این لینک هم میتونی برداشت میکنی:نقل قول:
نوشته شده توسط AlirezaSaberi
http://www.barnamenevis.org/sh...&postcount=233
نقل قول:
نوشته شده توسط hamedv
دوستان اینا رو از از کجا میشه گیر آورد. به نظر میاد از روی سرور پاک شدن؟نقل قول:
نوشته شده توسط BlackDal
in karo kardam vali nashod
man fonte Courier New ro daram vali Courier New arabic ro nadaram
hatman bayad arabic bashe ?
font aye arabice digaro emtehan kardam nashode
:(
پس تنها یک راه مونده:نقل قول:
نوشته شده توسط music
وارد کنترل پنل شده و قسمت Regional And Language Option را باز کنید.
از فرم باز شده لبه بالا و دکمه وسطی به نام Languages را انتخاب کنید.
در قسمت Supplemental language Support (پایین) گزینه Install Files For Complex script And right-to-left Languages باید تیک خورده باشد. اگر نبود تیک بزنید و Apply نمایید. ممکن است نیاز به سی دی ویندوز داشته باشد.
بعد در لبه های بالا گزینه Advanced را انتخاب نمایید و از لیست زبان فارسی را انتخاب کنید. ممکن است نیاز به راه انداری مجدد سیستم باشد.
پس از راه اندازی تنظیماتی که در پست قبلی گفتم در VB انجام داده (تغییر فونت) و وضعیت را امتحان کنید.
از منوی Tools به option و در دیالوگ باز باز شده از بالا لبه Editor Format و گزینه Font را به
Courier New (Arabic)تغییر بده.
موفق باشید.
mersi
moshkel har shod
Regional And Language Option
advanced
farsi ro englisi kardam
dobar farsi kardam restart kardam hal shod
mersi :)
نقل قول:
نوشته شده توسط SSoleimani
سلام
شما می خواستید از این dll در دات نت استفاده کنید ولی نشد؟؟؟!!!!
dll هایی که با وی بی تولید شدند در سایر محیط ها این اشکال رو دارند.
وقتی اینا رو کپی میکنم error میده.دقیقا کجا باید تعریف بشن؟
سلام
شما چی رو کپی می کنید؟؟
لطفاً مشخص کنید با کدام کد مشکل دارید
سلام
من تو یک سیستم انبار تحت DOS وقتی اطلاعات سیستم رو به dbf تبدیل میکنم، code page اش ایران سیستمه و با مبدل می تونم تبدیلش کنم و تو ویندوز ببینم. ولی وقتی یک گزارش رو فایل میکنم نمی دونم code page اش چیه و با مبدل ایران سیستم نمی تونم تو ویندوز ببینم. کسی میتونه کمک کنه؟ یه نمونه از فایلهاش رو هم میذارم.
با عرض سلام خدمت اساتید محترم
می خواستم بدونم میشه وقتی ما یک تکس باکس رو انتخاب می کنیم به طور خود کار زبان صفحه کلید یا همون ویندوز ایکس پی تغییر به فارسی کنه اگه امگان داره برام ایمیل بزنید
shemail.co@gmail.com
ممنون
اینکه خیلی ساده است فقط با دستور Instr شما وجود ممیز را در رشته جستجو می کنی و بعد با توجه به اعداد بعد از ممیز اعشار را به رشته اضافه می کنی
برای تغییر حالت صفحه کلید از APi مربوطه باید استفاده کنی و به ای صورت بنویسی
در Text1_GotFocus باید با KeyboardLeayout زبان صفحه کلید را عوض کنی
سلام
قبلا زیاد در این مورد بحث شده شما باید برای این کار این کد رو بنویسی
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Private Sub Text1_Click()
Dim xx As Long
xx = LoadKeyboardLayout("00000429", 1)
End Sub
Function IranDate(d As String)
Dim ifday, ifmonth, ifyear, ifdayofyear
Dim iyear, idayofyear
Dim inumdayofyear
Dim aifmonthdays
aifmonthdays = Array(31, 31, 31, 31, 31, 31, 30, 30, 30, 30, 30, 29)
inumdayofyear = 365
Calendar = vbCalGreg
iyear = Year(d)
idayofyear = DatePart("y", d)
If isleapyear(iyear - 1) Then
inumdayofyear = 366
aifmonthdays(11) = 30
End If
If (idayofyear > 79) Then
ifyear = iyear - 621
ifdayofyear = idayofyear - 79
Else
ifyear = iyear - 622
ifdayofyear = (inumdayofyear - 79) + idayofyear
End If
ifday = ifdayofyear
While (ifday > aifmonthdays(ifmonth))
ifday = ifday - aifmonthdays(ifmonth)
ifmonth = ifmonth + 1
Wend
ifmonth = ifmonth + 1
If Len(ifmonth) = 1 Then ifmonth = "0" & ifmonth
If Len(ifday) = 1 Then ifday = "0" & ifday
IranDate = ifyear & "/" & ifmonth & "/" & ifday
d = IranDate
End Function
'--------------------------------
Function isleapyear(nyear)
isleapyear = (((nyear Mod 4) = 0 And (nyear Mod 100) <> 0) Or (nyear Mod 400) = 0)
End Function
فکر نکنم مشکلی باشه خیلی تست کردم برنامه های خودم رو هم به این صورت نوشتم
طرز استفاده
Text1.Text = irandate(date)
دوست من لطفا کد ها رو در تگ های مربوطه قرار بدین تا بشه خوندشون.
M-gheibi می تونی کد صفحه کلید رو برام بفرستی
دکمه های MSGBOX را پیدا نکردم بعدش ولی پیدا کردم
مدیر سایت
m_gheibi
در مورد تبدیل عدد به حروف لطفا توضیح بیشتری بدهید
من این کد را وارد کردم ولی اجرا نمی شود
منظورتون از توضیح، بیان عملکرد خط به خط کدها هست ؟! پیچیده نیست . یکبار بخونید اگر متوجه نشدید بگید کدوم قسمت تا توضیح بدم .نقل قول:
نوشته شده توسط RZ_HAFEZ
اجرا نمی‌شود یعنی چه ؟ لطف کنید واضح‌تر بگید که چه خطایی مشاهده میکنید یا ...
این هم یک فانکشن برای کار با تاریخ شمسی
سلام
من درباره جستجوی شرح فارسی با VB در SQLServer2005 مشکل دارم من یک Query دارم بصورت زیر
SELECT fldUserNo From tblUserDetails where fldLastName like '%تیموری%' and fldFirstName Like '%قاسم%'
اما وقتی این کد به Sql Server 2005 میره بصورت زیر در میاد
SELECT fldUserNo From tblUserDetails where fldLastName like '%ÊíãæÑí%' and fldFirstName Like '%ÞÇÓã%'
در نتیجه هیچ مقداری رو بر نمی گردونه، برای حروف لاتین و یا در حالت ارتباط با Sql server 2000 مشکلی ندارم اما اینو نمی دونم چکار کنم.
با تشکر
دوستان فونت tahoma برای caption ها اگه انتخاب بشه ی را بصورت دو نقطه دار میزنه در حالیکه همین ی در office درست کارمیکنه . چگونه میتوان از ی فارسی یعنی بدون دو نقطه با فونت Tahoma و برنامه Vb استفاده کرد؟
سلام
جناب khosronejad اگر جستجو می کردید حتما به جواب می رسیدید. :ناراحت:
در تاپیک زیر آقای بابک زواری فونتی به نام TTahoma گذاشتند که حرف "ی" در اون فونت درسته و همچنین اعداد هم فارسی هستند.
https://barnamenevis.org/showth...ghlight=Tahoma
ممنون یکی از مشکلات منو حل کردینقل قول:
نوشته شده توسط M-Gheibi
من یک سری فایل صوتی از اعداد دارم میشه با این برنامه ترکیبش کرد تا اعداد رو هم بخونه
ممنون خواهم شد اگر برای من بفرستید.نقل قول:
من یک سری فایل صوتی از اعداد دارم میشه با این برنامه ترکیبش کرد تا اعداد رو هم بخونه
Hamed.Masafi@GMail.com
باید تو آرشیوم بگردم. به محض پیدا شدن می فرستم البته حجمش زیاده با چندتا مسیج میفرستم.نقل قول:
نوشته شده توسط BlackDal
سلام
یه سوال داشتم که اگه جواب بدید ممنون میشم VB
من برنامه ای رو نوشتم که دو تا فرم داره . بر فرض مثال فرم یک و فرم دو
حالا تو فرم دو یه متغیر تعریف کردیم و درون متغیر یه مقداری وجود داره . میخوام کاری کنم که مقدار موجود درون متقیر فرم دو به یه متقیر دیگه که تو فرم یک وجود داره منتقل بشه . چکار باید بکنم ؟
:ناراحت:
form1.text1.text=form2.text1.text
سلام. من یک برنامه وی بی رو به بانک sql وصل کردم و وقتی داده های فارسی رو وارد می کردم همه چی درست بود و فقط داده ها به صورت ؟ می شد. برای حل نوع فیلد رو به nvarchar تغییر دادم این مشکل رفع شد اما وقتی که داده ها رو از طریق برنامم search می کنم هیچ داده ای پیدا نمیکنه( الیته فقط داده های فارسی و با داده های انگلیسی کاری نداره) ممنون میشم جوابمو بدین
با سلام من از برنامه کدپیج ایران سیستم که اقای غیبی نوشتند استفاده کردم ولی نمی تونم فارسی تایپ کنم واینکه اگه خوب این برنامه رو ببینید می بینید یه جاهاییش یه سری علامت داره که از نظر وی بی ناشناخته است
ممنون میشم کمکم کنید
دوست عزیز من نمی توانیم تصویر گفته در این قسمت را مشاهده کنم . لطفا مرا راهنمائی کنید
سلام و خسته نباشید!
بابت کدهای ارسالی ازتون متشکرم و بهتون تبریک می گم به خاطر سایتتون و بهتره بگم مدیریتتون.
من یک مشکل داشتم واسه جستجوی فیلد های فارسی!
من دارم یه برنامه با vb برای آژانس مسکن می نویسم یکی اینکه فیلد های جستجوم خیلی زیاده و نیاز به select های زیادی داره می خواستم بپرسم راهی بجز select نداره؟
محتوای جدول من همش فارسیه اما vb نمی تونه جستجو رو از توی اونا انجام بده همه ی فونت ها رو هم تو vb tahoma و تو sql هم arabic کردم ولی فایده نداره .
اگه کمکم کنید یه دنیا ممنونتون می شم.:لبخندساده::قلب:
1- سرچ کنی! پیدا میکنینقل قول:
نوشته شده توسط لیلا خیرالهی
2- نمونه همه درس و مشق های بچه های ICDL و ... توی اغلب تاپیکها ریخته پاشیده است میتونید با سرچ همه رو پیدا کنید.
نقل قول:
نوشته شده توسط problem
برای اینکه بتوانید در داخل یک کادر متنی(البته به محض ورود) فارسی تایپ کنید، باید API مربوطه را که در همین تاپیک (صفحات فکر میکنم اول تا دهم) ذکر شده است، در GetFucos بگذارید. دوم شروط استفاده از بانک اطلاعاتی با طول و تفصیل زیاد هستند برای راهنمایی من باید اطلاعات خوبی بهم بدید. سوم اگز با Access ورژنهای بالاتر(مثل2003) کار میکنید، باید از آن فایل مربوطه یک نسخه97 تهیه کنید(از طریق Utility داخل Access) تا موقع باز شدن اجق وجق نبینید. برای ارتباط مناسب هم از انجین مناسب استفاده کنید.(مثلا4.51) چهارم: برای راهنمایی استفاده از API (که فکر میکنم با آن آشنا هستید) یکبار جستجو کنید. از این لینک می‌توانید برنامه آموزش 900 API بیابید و حالشو ببرید.
باسلام این تصاویر به خوبی لود نشده اند اگه میشه یک بار دیگه لودش کنید
این متغیر lt در برنامه چیه و چرا ازش خطا می گیره؟
فونت iransystem رو از کدوم ضمیمه باید دانلود کنم؟
vb تابع xx=loadkey.... رو نمی شناسه اگه می شه یکم داجع بهش توضیح بدین !
lt; یعنی lt=?
ممنون
نقل قول:
نوشته شده توسط M-Gheibi
با تشکر فراوان از مدیر کل سایت جناب غیبی
اینهم ocx کد تبدیل عدد به حروف برای راحتی برنامه نویسان
https://barnamenevis.org/showthread.php?t=82233