مرجع حل مشکلات زبان فارسی و سورسهای مربوطه

Printable View

سه شنبه 13 بهمن 1383, 05:35 صبح
mostafa313

حامد جان اگه این طوری که گفتی باشه که خیلی عالیه!
ممنون! :موفق:
چهارشنبه 14 بهمن 1383, 08:01 صبح
Hamedm

نقل قول:

بهترین کدی که برای تبدیل تاریخ دیدم که میتونه چند نوع تقویم رو به هم تبدیل کنه : عبری، میلادی، هجری شمسی، هجری قمری
میتونه بگه هر روز چند شنبه ست
میتونید باهاش روزای تعطیل رو پیدا کنید ( مثلا 22 بهمن یا 10 محرم )
روشش هم اینه که برای هر تاریخ دو تا تابع داره که یک تابع تاریخ رو به یه عدد تبدیل میکنه و یه تابع عدد رو به تاریخ
اینطوری میتونید بگید که مثلا 32 روز دیگه کی میشه
هیچ گونه ایرادی هم من توش پیدا نکردم

من این برنامه رو قبلا دیده بودم ولی مثل الان مثالی ازش مشاهده نکردن. این برنامه حاوی بیش از 10 تابع است که هر کدوم وظیفه خاصی دارند. که متاسفانه هیچ مثالی از شون نزدید به همین دلیل براحتی نمیتوان دریافت که هر تابع را چگونه میشود فراخوانی کرد و نیز پارامترهای ورودی هر یک چیست. متاسفانه در کد توابع نیز توضیحی داده نشده است.

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

موفق باشید و پرتوان
چهارشنبه 14 بهمن 1383, 14:41 عصر
hamedv
نقل قول:

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

من خودم از این ماجولها استفاده کردم
فقط اگر توی دات نت بخواهید استفاده کنید باید یکی از توابعش رو که run time error میده رو یه تغییر کوچولو بدید
استفاده کردن ازش خیلی سادست
شما تمام ماجولها رو به برنامه add کن
بعدش میتونی تابعهای زیادی رو صدا بزنی
مثلا :
```
dim y as integer

dim m as integer

dim d as intger



y=2005

m=2

d=2



call civil_persian&#40;y,m,d&#41;
```
بعد از اجرای کد توی y عدد 1383 و توی m عدد 11 و توی d عدد 14 خواهد بود
اگر بخواهیم ببینیم که مثلا 10 روز بعد چه روزیه به جای تبدیل تاریخ civil (میلادی) به شمسی یا شمسی به میلادی میشه تاریخ رو به jdn یا jullian day number تبدیل کرد و اون عدد رو با 10 جمع کرد و دوباره به هر تاریخی که میخواهد تبدیل کنید
تابع هاش اینا هستن :
civil_jdn
jdn_civil
persian_jdn
jdn_persian
در واقع توی این تابعها هر تاریخی دو تا تابع داره یکی یک روز رو به jdn تبدیل میکنه و دیگری jdn رو به روز و ماه و سال تبدیل میکنه
هر کدوم از تقویمهاش هم کار یه ستاره شناسه
مثلا یه ستاره شناس ایرانی تابعهای persian_jdn و jdn_persian رو نوشته و الخ :wink:
اگر باز هم مشکلی هست بهم بگین
چهارشنبه 14 بهمن 1383, 15:14 عصر
Hamedm

hamedv دستت درد نکنه از توضیحات. :flower:
پنج شنبه 22 بهمن 1383, 14:00 عصر
بابک زواری

اینم تقویم
یک شنبه 25 بهمن 1383, 14:35 عصر
بابک زواری

این تقویم فقط ایرادش اینه که باید سیستم تاریخ شما به صورت mm/dd/yyyy باشه که این ایراد هم
بزودی برطرف میشه .
و اینکه شما امکان کنترل رنگ تمام قسمتها رو پیدا میکنید.
این مشکلات رو به دیده اغماض بنگرید تا نسخه جدید آماده باشه
دوشنبه 26 بهمن 1383, 09:24 صبح
M-Gheibi

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

این هم یکبار برای همیشه
این اکتیوایکس رو به پروژه اضافه کنید و 2 متد رو فراخوانی کنید یکی برای قرار دادن تاریخ و یکی برای گرفتن تاریخ
البته برای محاسبه روز هفته میتونید تابع weekday رو در وی بی فراخوانی کنید.
خودم نوشتمش و تا جایی که تست کردم کاملا دقیقه خیلی هم سریعه !
اگر خطا یا اشتباهی دیدین به من میل بزنید ehsan2022002@yahoo.com
و اگر برای تبدیلات ماهای قمری و یهودی و فارسی به هم نیاز به اکتیو ایکس دارید.

دانلود
http://ehsan707.topcities.com/pcal.zip
(با تشکر از موناااااا که آدرس سایت برنامه نویس اورگ رو به من داد) :wink:

تابع زیر برای تبدیل اعداد به حروف نوشته شده. میدونم دیگه داره تو این تاپیک یه کم زیاد میشه. اما میتونید با این یکی اعدا شمارشی هم داشته باشید که تو هیچکدوم از قبلیا ندیدم. (مثلا سوم، سی ام. چهل و پنجم و ...)!!
همچنین مثلا -1 رو بصورت «منفی یک» نمایش میده. پشتیبانی از اعداد اعشاری هم بعدا اضافه میکنم و میزارم همینجا .
درضمن کد توی کریستال ریپورتز هم در بخش فرمول نویسی بدرستی کار میکنه(البته باید دو تابع رو در دو Function جدا قرار بدید.)
کد توضیحات کامل هم داره.
اگر مشکلی یا نظری داستید لطفا به این آدرس میل بزنید vbadvanced@gmail.com





'This Function convert Numbers To Text

Public Function NoToText&#40;eNo As Double, _

                   Optional isCounter As Boolean = False&#41; As String



Dim tStr, tNo, eNumber As String

Dim i, j, k As Double

Dim m_isNeg As Boolean



    'This Number is Negative Or Positive?

    m_isNeg = IIf&#40;Sgn&#40;eNo&#41; = -1, True, False&#41;



    

    If eNo = 0 Then 'This Number is Zero; Don't Continue anymore

        NoToText = IIf&#40;isCounter, "صفرم ", "صفر "&#41;

        Exit Function

    'NOTE&#58; We can delete Following 3 Lines of code to have "یکم" instead of "اول"

    'TODO&#58; we can Make a new optional Argument to ask this from user

    ElseIf &#40;eNo = 1&#41; And isCounter And &#40;Not m_isNeg&#41; Then

        NoToText = "اول "

        Exit Function

    End If



    'TODO&#58; Add Support for decimal Numbers

    'convert input to Absolute value w/o Thousand separators, as a String

    eNumber = Abs&#40;eNo&#41;



    'Add Some Extra Zero at the begining of String

    eNumber = Choose&#40;Len&#40;eNumber&#41; Mod 3, "00", "0"&#41; &amp; eNumber



    tStr = ""

    k = Len&#40;eNumber&#41; / 3



    For i = 1 To Len&#40;eNumber&#41; Step 3

    '

        tNo = Mid&#40;eNumber, i, 3&#41;

        If tNo &lt;> "000" Then

            

            'Convert The First Digit Of Group --> `5`12

            tStr = tStr &amp; _

            DigitToText&#40;Mid&#40;tNo, 1, 1&#41; &amp; "00"&#41;



            'If the Second Digit is &lt;1> Then We Have a number between _

             Ten and Nineteen;

            If Mid&#40;tNo, 2, 1&#41; = "1" Then '--> 5`12`

                tStr = tStr &amp; _

                DigitToText&#40;Mid&#40;tNo, 2, 2&#41;&#41;

            Else 'elsewhere, do normal method

                tStr = tStr &amp; _

                DigitToText&#40;Mid&#40;tNo, 2, 1&#41; &amp; "0"&#41;        '--> 5`2`6

                tStr = tStr &amp; _

                DigitToText&#40;Mid&#40;tNo, 3, 1&#41;&#41;

            End If

            'if u know greater values then >>>>>>>>>>>>>>>>>>>>just Add it below

            tStr = tStr &amp; Choose&#40;k, "", "هزار ", "میلیون ", "میلیارد ", "تریلیون "&#41; '&lt;&lt;&lt; here before `&#41;`

        End If

        k = k - 1

    

    Next i



    'If in Counting Mode then add appropriate Suffixes to end of string

    If isCounter Then

        If Right&#40;eNumber, 1&#41; = "3" Then

            tStr = Left&#40;tStr, Len&#40;tStr&#41; - 2&#41; &amp; "وم" 'is `سهم` true?! ;&#41;

        ElseIf Right&#40;eNumber, 2&#41; = "30" Then

            tStr = Left&#40;tStr, Len&#40;tStr&#41; - 1&#41; &amp; "‌ام" 'and u know `سیم` is wrong! ;&#41;

        Else

            tStr = RTrim&#40;tStr&#41; &amp; "م" 'make countable strings like `دوازدهم`,`پنجم`, etc...

        End If

    End If



    'This is Result!! ;&#41;

    NoToText = IIf&#40;m_isNeg, "منفی ", ""&#41; &amp; Mid&#40;tStr, 3&#41;



End Function





Private Function DigitToText&#40;eNo As String&#41;

Dim tStr As String

Dim tDbl As Double



If eNo = "" Or eNo = "0" Or eNo = "00" Or eNo = "000" Then

    DigitToText = ""

    Exit Function

End If



tDbl = Val&#40;eNo&#41;

Select Case tDbl

    Case Is >= 1000

        tStr = ""

    Case Is >= 900

        tStr = "نهصد"

    Case Is >= 800

        tStr = "هشتصد"

    Case Is >= 700

        tStr = "هفتصد"

    Case Is >= 600

        tStr = "ششصد"

    Case Is >= 500

        tStr = "پانصد"

    Case Is >= 400

        tStr = "چهارصد"

    Case Is >= 300

        tStr = "سیصد"

    Case Is >= 200

        tStr = "دویست"

    Case Is >= 100

        tStr = "صد"

    Case Is >= 90

        tStr = "نود"

    Case Is >= 80

        tStr = "هشتاد"

    Case Is >= 70

        tStr = "هفتاد"

    Case Is >= 60

        tStr = "شصت"

    Case Is >= 50

        tStr = "پنجاه"

    Case Is >= 40

        tStr = "چهل"

    Case Is >= 30

        tStr = "سی"

    Case Is >= 20

        tStr = "بیست"

    Case Is >= 19

        tStr = "نوزده"

    Case Is >= 18

        tStr = "هیجده"

    Case Is >= 17

        tStr = "هفده"

    Case Is >= 16

        tStr = "شانزده"

    Case Is >= 15

        tStr = "پانزده"

    Case Is >= 14

        tStr = "چهارده"

    Case Is >= 13

        tStr = "سیزده"

    Case Is >= 12

        tStr = "دوازده"

    Case Is >= 11

        tStr = "یازده"

    Case Is >= 10

        tStr = "ده"

    Case Is >= 9

        tStr = "نه"

    Case Is >= 8

        tStr = "هشت"

    Case Is >= 7

        tStr = "هفت"

    Case Is >= 6

        tStr = "شش"

    Case Is >= 5

        tStr = "پنج"

    Case Is >= 4

        tStr = "چهار"

    Case Is >= 3

        tStr = "سه"

    Case Is >= 2

        tStr = "دو"

    Case Is >= 1

        tStr = "یک"

    Case Is >= 0

        tStr = ""

End Select

    DigitToText = "و " + tStr + " "

End Function



'ALL RIGHTS RESERVED BY&#58; Mohammad Shiran

این هم برای اعداد اعشاری. تابع زیر رو برای تبدیل اعداد اعشاری به متن استفاده کنید و حالشو ببرید.
همین الان تموم شد. داغ داغ، تنوری!!
آرگومان اولش که معلومه. دومیش هم برای تعیین نوع خروجی هست. یعنی مثلا برای 12.5 خروجی بصورت «دوازده و نیم» یا « دوازده ممیز پنج دهم»

Function DecimalToText&#40;eNo As Double, _

                       Optional DecStyle As Boolean = False _

                                                  &#41; As String

                       

    Dim eFixed As String, eDecimal As String

    Dim sResult As String

    

    'return fixed value of given number as string

    eFixed = Fix&#40;eNo&#41;

    

    'if this number has some decimals

    If &#40;Len&#40;CStr&#40;eNo&#41;&#41; - Len&#40;eFixed&#41;&#41; Then

        'get it as a string, Example&#58; return `125` for `12.125`

        eDecimal = Mid&#40;CStr&#40;eNo&#41;, Len&#40;eFixed&#41; + 2&#41;

        'return fixed part as text

        sResult = NoToText&#40;CDbl&#40;eFixed&#41;&#41; &amp; IIf&#40;DecStyle, "و ", "ممیز "&#41;

        'if decimal section is `5` then use `نیم` Instead of `پنج دهم`

        'this is optional, u can remove it if u like

        If eDecimal = 5 Then

            sResult = sResult &amp; "نیم"

        Else

            'convert the decimal part of number to text

            sResult = sResult &amp; _

                      NoToText&#40;CDbl&#40;eDecimal&#41;&#41;

            'add extra suffix at end of string, depending to number of decimal places

            sResult = sResult &amp; _

                      Choose&#40;Len&#40;eDecimal&#41;, "دهم", "صدم", _

                                            "هزارم", "ده هزارم", _

                                            "صد هزارم", "میلیونیم"&#41; ', _

                                             ....

        End If

            

    Else

        'if this number is originally an integer then convert it using normal method

        sResult = NoToText&#40;eNo&#41;

    End If

    'return the result. ;&#41;

    DecimalToText = sResult

    

End Function

شنبه 01 اسفند 1383, 07:04 صبح
بابک زواری

دوست عزیز vbadvanced دستت درد نکنه سورس کد شما هم
نکات خاص خودش رو داشت .
بهر حال ممنون
شنبه 01 اسفند 1383, 07:17 صبح
Hamedm

vbadvanced دستت درد نکنه :تشویق: . جالب بود. :flower:
شنبه 01 اسفند 1383, 19:34 عصر
M-Gheibi

:flower:
یک شنبه 02 اسفند 1383, 03:47 صبح
vbadvanced

من هم ممنونم. مسلما بدون نقص هم نیست. اگه مشکلی داشت خوشحال میشم منم در جریان بزارید.
درضمن بخش عمده کد توضیحات اضافیه که برای قابل فهم تر شدن کد گذاشتم
اگه دوست داشتید میتونید اونا رو حذف کنید
یک شنبه 02 اسفند 1383, 17:22 عصر
30yavash

من یه سورس برنامه «یا هر چیز دیگه ای که کمکم کنه» ترجیحا به زبان ویژوال بیسیک دات نت می خام که کاربر بدون داشتن صفحه کلید فارسی بتونه فارسی بنویسه.
در واقع می خام یه برنامه بنویسم که نیاز به صفحه کلید فارسی و از این جور چیزا نداشته باشه با فونت مریم یا IPT یا هر فونت دیگه که Unicode نباشه.
خیلی توی این سایت گشتم ولی متاسفانه در این سایت در مورد همه چیز صحبت شده به جز همین مورد.
دوشنبه 03 اسفند 1383, 13:18 عصر
M-Gheibi

نقل قول:

متاسفانه در این سایت در مورد همه چیز صحبت شده به جز همین مورد.

نقل قول:

با فونت مریم یا IPT یا هر فونت دیگه که Unicode نباشه.

من کد برای نوشتن با فونت IPT رو داشتم ولی پیدا نمی کنم. اگه مشکل شما یونیکد هست خوب از Iransystem استفاده کنید. کدش هم در همین تاپیک هست.
دوشنبه 03 اسفند 1383, 20:29 عصر
بابک زواری

نقل قول:

من کد برای نوشتن با فونت IPT رو داشتم ولی پیدا نمی کنم.

آقای غیبی اگر این کد رو پیدا کردید ممنون میشم اونو به اشتراک بذارید
پنج شنبه 13 اسفند 1383, 11:14 صبح
vbadvanced

من یک برنامه مشابه این چیزی که شما میخوای داشتم. منتها نه برای IPT
اونو تغییرش میدم و براتون میزارم
پنج شنبه 13 اسفند 1383, 17:21 عصر
بابک زواری

ممنون اگر لطف کنید
یک شنبه 16 اسفند 1383, 07:56 صبح
ghaum

سلام
من وقتی در richeditbox یک متنی را کپی می کنم نقطه آخر خط را اول می آورد
برای حل این مشکل چه باید بکنم؟
در ضمن من آن فایل dll را در فایل سیستمی ویندوز دارم

خیلی متشکرم
دوشنبه 17 اسفند 1383, 02:51 صبح
vbadvanced

وقتی تایپ میکنید یک بار ctrl+shift سمت راست صفحه کلید خودتون رو با هم بزنید. اینکار پاراگراف شما رو بصورت RightToLeft تغییر میده. علت این مشکل شما هم همین هست.
دوشنبه 17 اسفند 1383, 07:39 صبح
ghaum

سلام
اما تمام متنها تایپ شده
آیا راه دیگری وجود ندارد

خیلی متشکرم
سه شنبه 18 اسفند 1383, 03:39 صبح
vbadvanced

اگه همه متنهات توی یک فایل هستند اول یک بار ctrl+a رو بزن بعد هم ctrl+shift
سه شنبه 18 اسفند 1383, 08:58 صبح
ghaum

خیلی ممنون
الان در دستگاه خودم متنهای فارسی را درست می بینم
ولی وقتی که برنامه را در یک دستگاه که ویندوز 2000 دارد اجرا می کنم متون فارسی به شکل علامت سوال نمایش داده می شوند
دستگاه خودم ویندوز xp دارد البته روی دستگاه دیگری که ویندوز xp دارد هم تست کردم ولی همان مشکل را داشت
سه شنبه 18 اسفند 1383, 14:46 عصر
M-Gheibi

مشکل علامت سوال رو با پستهایی که در اوایل همین تاپیک ارسال کردم حل کنید.
چهارشنبه 19 اسفند 1383, 00:17 صبح
hex161

سلام دوستان.
من یه تازه ویژوال دیده ام.
نمیدونم چرا توی فورم گزینه Right To Left همیشه False میشه و True نمیشه
اگه میشه منو راهنمایی کنید
چهارشنبه 19 اسفند 1383, 03:59 صبح
vbadvanced

از چه سیستم عاملی استفاده میکنید؟
اگر XP یا دوهزار هست. اول امکانات فارسی رو توی اون نصب کنید.
چهارشنبه 19 اسفند 1383, 08:12 صبح
ghaum

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

لطفا راهنمایی بفرمایید
چهارشنبه 19 اسفند 1383, 10:47 صبح
M-Gheibi

نقل قول:

نمیدونم چرا توی فورم گزینه Right To Left همیشه False میشه و True نمیشه
اگه میشه منو راهنمایی کنید

باید سیستمتون امکانات فارسی را ساپورت کنه.
شنبه 22 اسفند 1383, 07:48 صبح
ghaum

سلام
من یک برنامه با vb6 نوشتم که اطلاعات را از بانک access فقط می خواند
اطلاعات نیز با asp در صفحات وب با کدپیج یونیکد واردبانک شده اند
من تمام تنظیماتی که برای فارسی در این تاپیک گفته شده بود را انجام دادم و از آن فایل dll هم استفاده کردم
روی دستگاه خودم هیچ مشکلی ندارم ولی وقتی که برنامه را البته فایلexe آن را در کامپیوتر دیگری که تنظیمات آن مانند دستگاه خودم می باشد کپی می کنم اطلاعات به صورت علامت ؟ نمایش داده می شوند

در صورت توان راهنمایی بفرمایید
خیلی متشکرم
یک شنبه 23 اسفند 1383, 11:24 صبح
M-Gheibi
http://www.oxinsoft.com/img/shamsidll_pack02.jpg
گروه نرم افزاری اوکسین اقدام به طراحی و عرضه ی DLLی نموده است که مشکل برنامه نویسان ایرانی را تا حد زیادی در زمینه تاریخ شمسی حل می‌کند.
این توابع به صورت کاملا دقیق، تاریخ میلادی سیستم را به تاریخ هجری شمسی تبدیل می‌نمایند و همچنین توابع دیگری را برای انجام محاسبات روی این تاریخ در دسترس قرار می‌دهند. یکی از ویژگیهای جالب توجه این کلاس (که بسیاری از کلاسهای مشابه نوشته شده در این زمینه فاقد ان هستند) عملکرد دقیق آنها روی سالهای کبیسه است. همانطور که می‌دانید در سیستم تاریخ شمسی بعضی از سالها کبیسه هستند و در آنها ماه اسفند سی روز می‌باشد. این سالها به صورت متناوب هر چهار سال یکبار تکرار می‌شوند و چون این سالها از سالهای عادی یکروز بیشتر هستند، لذا باید در محاسبات تاریخ این نکته را مدنظر قرار داد، که این توابع به خوبی از آن پشتیبانی می‌کنند.
کلاسهای این توابع به صورت استاندارد تهیه و کامپایل شده است تا تمام برنامه نویسان بتوانند از آنها در زبانهای برنامه نویسی گوناگون مانند دلفی، ویژوال بیسیک، سی شارپ و همه ی زبانهای دیگری که از استاندارد COM پشتیبانی می‌کنند، استفاده کنند.
استفاده از فایل shamsi.dll توسط برنامه نویسان ایرانی در برنامه ها و پروژه های مختلف مجاز می باشد. این برنامه به صورت رایگان است و کاربر برای استفاده از آن مجبور به پرداخت هیچ حق استفاده ای نمی باشد. اما برای پشتیبانی از سازنده ی این برنامه، لطفا افرادی که از آن در برنامه ها یا پروژه های خود استفاده می کنند، با ارسال یک ایمیل به طراح برنامه پشتیبانی خود را اعلام کنند.

تعدادی از قابلیتهای عمده تقویم شمسی و قابلیتهای جدید که در آخرین نگارش به آن اضافه شده اند را مشاهده می کنید:
- امکان تبدیل کاملا دقیق تاریخ میلادی به شمسی
  عملکرد دقیق روی سالهای کبیسه
  انجام عملیاتهای محاسباتی مختلف بر روی تاریخهای شمسی
  پشتیبانی از 29/12/1330 تا 29/12/9999 !
  رایگان برای استفاده برنامه نویسان و طراحان وب
لینک دانلود فایل : http://files.oxinsoft.com/shamsidll/shamsidll.zip
لینک سایت شرکت نرم افزاری اوکسین : http://www.oxinsoft.com
دوشنبه 24 اسفند 1383, 10:42 صبح
ghaum

مشکل من حل شد
باید تنظیمات ویندوز مربوط به فارسی را در دستگاهها دیگر درست می کردم
دوشنبه 24 اسفند 1383, 16:25 عصر
M-Gheibi

نقل قول:

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

گفته بودم که :

نقل قول:

باید سیستمتون امکانات فارسی را ساپورت کنه.
سه شنبه 25 اسفند 1383, 02:42 صبح
hex161

ویندوز من اکس پی سرویس پک دو هست.
فارسی ساز سینا پک رو هم توش نصب کردم باز هم جواب نمیده
بنظر شما باید کجا رو انگولک کنم؟
سه شنبه 25 اسفند 1383, 09:02 صبح
M-Gheibi

نقل قول:

ویندوز من اکس پی سرویس پک دو هست.
فارسی ساز سینا پک رو هم توش نصب کردم باز هم جواب نمیده
بنظر شما باید کجا رو انگولک کنم؟

1. خوب اأان مشکلتون چیه؟
2. اگه علامت سوال هست باید طبق توضیحات اول این تاپیک عمل کنید.
سه شنبه 25 اسفند 1383, 09:13 صبح
ghaum

سلام
من اطلاعاتم را از بانک داخل richedittextbox k نمایش می دهم
ولی نقطه آخر خط را اول می آورد
در صورتی که در داخل بانک درست وارد می شود
و rightoleft متنها صحیح می باشد
برای حل این مشکل چه باید بکنم؟

خیلی متشکرم
پنج شنبه 27 اسفند 1383, 01:18 صبح
hex161

نقل قول:

اگه علامت سوال هست باید طبق توضیحات اول این تاپیک عمل کنید.

نه علامت سوال نیست.
مشکل من اینه که مشخصه Right To Left در فورم همیشه روگزینه false گیر کرده
و امکان تغییر توش نیست.
پنج شنبه 27 اسفند 1383, 09:21 صبح
M-Gheibi

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

نقل قول:

برای استفاده از امکان Right to Left در برنامه ها فایل VBAME.DLL موجود در پوشه سیستم را به همراه برنامه خود قرار دهید.

احتمالا این فایل رو ندارید. برنامه رو مجددا نصب کنید اگه درست نشد در وب پیدا میشه.
شنبه 06 فروردین 1384, 09:55 صبح
ghaum

سلام
این متن را نگاه کنید اینجا هیچ مشکلی ندارد ولی در RICHEDITBOX نقطه ها به اول خط می آیند
آیا راه حلی برای این مشکل وجود دارد؟
متشکرم
محسن در یکی از روزهای زیبای سال 1338 در جمع گرم و صمیمی خانواده دین‌شعاری به دنیا آمد، روزهای پرنشاط کودکی را زیر سایه تعالیم پدر و مادر گرامی و در پناه تعالیم دین اسلام گذراند.او از همان اوایل نوجوانی علاقه عجیبی به اهل‌بیت (ع) داشت و در 13 یا 14 سالگی بود که هیئتی به نام شهدای کربلا تأسیس نمود و خود به تنهایی مسئولیت آن را بر عهده گرفت.با شروع امواج خروشان انقلاب به صف مجاهدین راه حق پیوست و همواره در تظاهرات‌های سال 1357 حضوری فعال داشت در همان ایام به همراه برادرش به خدمت در پزشکی قانونی پرداخت و مدت 6 ماه به صورت شبانه‌روزی در کار جابجایی و تحویل اجساد مطهر شهدا شرکت داشت محسن جزء اولین سربازانی بود که به فرمان امام خمینی (ره) به پادگانها برگشتند و خودشان را معرفی کردند او همواره فریضه مقدس امر به معروف و نهی از منکر را انجام می‌داد و برای سربازان پادگان به خصوص آنهایی که در انجام فرائض تعلل می‌کردند برنامه شناخت ایدئولوژی گذاشته بود.او حدود 5/1 سال در سالهای 57 و 1358 خدمت مقدس سربازی را انجام داد و پس از آن در سال 1360 به خیل سبزپوشان سپاهی پیوست. با شروع جنگ تحمیلی عاشقانه به جبهه‌های نبرد شتافت و به عنوان مسئول گردان تخریب لشگر27 محمدرسول‌الله (ص) مشغول به خدمت شد و در سال 1363 به سفر حج رفت.در عملیات‌های طریق‌القدس و کربلای1 یادآور دلاوریها و رشادت‌های خالصانه او در راه دفاع از میهن است زمانیکه قرار بود برای بار دوم به سفر حج مشرف شود و به خاطر مسئولیت‌هایی که در جبهه داشت از تشرف به حج منصرف شد اما در همان سال در روز پانزدهم مردادماه سال 1366 درست مصادف با روز عید قربان به مسلخ عشق رفت و اسماعیل‌وار جان خویش را در حین خنثی‌سازی مین ضد تانک در قربانگاه سردشت فدای معبود ساخت و نام خویش را برای همیشه در قلب تاریخ زنده نگه داشت مزار مطهر او در قطعه 29 بهشت‌زهرای تهران قرار دارد.
دوشنبه 08 فروردین 1384, 20:03 عصر
hadi2345

با تشکر از همه بچه ها . خیلی عالی بود :flower:
چهارشنبه 10 فروردین 1384, 17:56 عصر
ghaum

سلام
کسی نیست مشکل من را حل کند
این متنی که برایتان فرستادم در برنامه ام طوری نمایش داده می شود که نقطه ها در اول سطر قرار دارند در microsoft Word هیچ مشکلی ندارد
دیگر نمی دانم چه کار کنم
اگر می شود یک راهنمایی کنید

متشکرم
پنج شنبه 18 فروردین 1384, 01:17 صبح
Nova

ممنون آقای غیبی، کد خیلی خوبی فرستادین

راست به چپ کردن Treeview



Option Explicit 

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" &#40;ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long&#41; As Long 

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" &#40;ByVal hwnd As Long, ByVal nIndex As Long&#41; As Long 

Private Const WS_EX_LAYOUTRTL = &amp;H400000 

Private Const GWL_EXSTYLE = -20 

' 





Private Sub Form_Load&#40;&#41; 

SetWindowLong TreeView.hwnd, GWL_EXSTYLE, GetWindowLong&#40;TreeView.hwnd, GWL_EXSTYLE&#41; Or WS_EX_LAYOUTRTL 





  Dim nodX As Node 

   Set nodX = TreeView.Nodes.Add&#40;, , "R", "Root"&#41; 

   nodX.Expanded = True 

   Set nodX = TreeView.Nodes.Add&#40;, , "P", "Parent"&#41; 

   nodX.Expanded = True 

   Set nodX = TreeView.Nodes.Add&#40;"R", tvwChild, , "Child 1"&#41; 

   Set nodX = TreeView.Nodes.Add&#40;"R", tvwChild, , "Child 2"&#41; 

   Set nodX = TreeView.Nodes.Add&#40;"R", tvwChild, , "Child 3"&#41; 

   Set nodX = TreeView.Nodes.Add&#40;"P", tvwChild, , "Child 4"&#41; 

   Set nodX = TreeView.Nodes.Add&#40;"P", tvwChild, , "Child 5"&#41; 

   Set nodX = TreeView.Nodes.Add&#40;"P", tvwChild, , "Child 6"&#41; 



End Sub

شنبه 27 فروردین 1384, 08:53 صبح
بابک زواری

در ضمن دوستان با تستی که انجام دادن مثل اینکه کد فوق برای ListView هم جواب میده
شنبه 27 فروردین 1384, 08:55 صبح
najafi_1

با سلام
با اینکه من vb کار نمیکنم ولی از روش شما در همکاری لذت بردم. موفق باشید.
یک شنبه 28 فروردین 1384, 09:22 صبح
mahdi_sh

تاریخ شمسی

نقل قول:

نوشته شده توسط setarehman

نقل قول:

تاریخ شمسی در xp رو توضیح ندادید.

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

با سلام

اون تابع چیه ؟

ممنون

مهدی شهابی پور
یک شنبه 28 فروردین 1384, 09:53 صبح
نعیم رضاییان

این کد بالا نمی دونم چرا ولی برای list view تمام حروف رو هم برعکس می کنه یعنی از آخر به اول مینویسه
یک شنبه 28 فروردین 1384, 11:21 صبح
M-Gheibi

نقل قول:

اون تابع چیه ؟

سلام
دوست عزیز فکر کنم این سومین باریه که شما این سوال رو پرسیدید.
صفحات قبل همین تاپیک رو مورد مطالعه قرار دهید.

موفق باشید
روز خوش
یک شنبه 28 فروردین 1384, 12:32 عصر
نعیم رضاییان

سلام
اقا میشه بگی اون فایل dll کع برای راست به چپ کردن بکار میره رو به چه شکل باید ازش استفاده کنیم اون فایل در شاخه system32 هست ولی نمی دونم چه حوری باید ازش استفاده کنم
مرسی
یک شنبه 28 فروردین 1384, 15:25 عصر
M-Gheibi

نقل قول:

اقا میشه بگی اون فایل dll کع برای راست به چپ کردن بکار میره رو به چه شکل باید ازش استفاده کنیم اون فایل در شاخه system32 هست ولی نمی دونم چه حوری باید ازش استفاده کنم

یعنی نمیدونید چطور میشه Right to left رو استفاده کرد؟
برای اینکار در کنترل مورد نظر خاصیت Righttoleft رو True کنید.
توجه کنید که به هنگام ستاپ کردم برنامه باید این فایل رو درون ستاپ قرار دهید تا در پوشه System32 کامپیوتر کاربر کپی بشه.

موفق باشید
روز خوش
یک شنبه 28 فروردین 1384, 17:00 عصر
نعیم رضاییان

سلام
اقا اینو می دونم خوب از این حالت که نمیشه برای list view استفاده کرد

نمایش 50 پست از این تاپیک در یک صفحه