ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی “ ورود به حساب” کلیک کنید.





اگر فرم ثبت نام برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمیشود، اینجا را کلیک کنید.





صفحه 4 از 6 نخست 123456 آخرین
نمایش نتایج: از 31 به 40 از 57
Like Tree2Likes

موضوع: آرشیو سورس های کاربردی و بدردبخور

  1. #31
    vahid4251
    مدیر بخش
    تاریخ عضویت
    2011 Dec
    محل سکونت
    tehran & esfhan & uromie
    نوشته ها
    180
    14
    197
    if worm$ 24 then ‘put one number lower then it says.
    تو اینجا میگه برنامه 24 بار باز شده و این اخرین بارشه اگر 24 رو زیاد کنی اونم زیاد میشه
    دارم برنامه طراحی قالب وبلاگ مینویم کم پیدام نظر بدین
    [برای نمایش لینک باید عضو شوید. ]
    اگر از مطالب خوشتون اومد چیکار میکنین؟معلوم تشکر یا اعتبار

    يادم باشد و يادت نرود که ما براي يکبار ايستادن هزار بار افتاده ايم.
  2. 2
  3. #32
    vahid4251
    مدیر بخش
    تاریخ عضویت
    2011 Dec
    محل سکونت
    tehran & esfhan & uromie
    نوشته ها
    180
    14
    197

    مسیر نصب ویندوز

    Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

    Public Function WinDir() As String
    Dim Wind As String
    Wind = Space(500)
    Wind = Left(Wind, GetWindowsDirectory(Wind, Len(Wind)))
    WinDir = Wind
    End Function
    دارم برنامه طراحی قالب وبلاگ مینویم کم پیدام نظر بدین
    [برای نمایش لینک باید عضو شوید. ]
    اگر از مطالب خوشتون اومد چیکار میکنین؟معلوم تشکر یا اعتبار

    يادم باشد و يادت نرود که ما براي يکبار ايستادن هزار بار افتاده ايم.
  4. 2
  5. #33
    vahid4251
    مدیر بخش
    تاریخ عضویت
    2011 Dec
    محل سکونت
    tehran & esfhan & uromie
    نوشته ها
    180
    14
    197

    استفاده از File System Object در ویژوال بیسیک

    شی (File Sysytem Object ) که به FSO هم معروف است قابلیت کار با Drive , Folder , File , TestStream را دارد یعنی شما می توانید پوشه و یا فایلی را از مسیری به مسیر دیگر کپی و حذف و یا منتقل کنید و هم چنین می توانید پو شه ای را در مسیر مورد نظر ایجاد کنید

    برای افزودن این شی به برنامه از منوی Project آیتم Refrencese را انتخاب کنید و از آن آیتم Microsoft Script Runtime را تیک می زنید . اکنون نوبت به تعریف یک متغیر از نوع ّFso می باشد

     Dim Fso As New FileSystemObject


    در ضمن لازم به ذکر است که App.path مسیر جاری را که برنامه اجرایی در آن قرار دارد را بر می گر داند


     Fso.CopyFile App.Path & "\text.txt", "C:\", True ' True For Ovwerwrite
    fso.MoveFile App.Path & "\text.txt", "C:\" ' For Move File Of Current Path to "C:\" Path
    fso.DeleteFile "c:\text.txt"



    همین عملیات بالا را می توان برای Folder هم اجرا کرد . همان طور که متوجه شده اید این شیء بسیار مهم است و می تواند کاربرد های زیادی برایتان داشته باشد مثلاً من در زیر برنامه ای می نویسم که بتواند فایلی را در پو شه System32 ویندوز کپی کند خوب بر ای اینکه بتوان پوشه ویندوز را پیدا کنیم از یک API استفاده می کنم چون امکان داره ویندوز داخل پوشه هایی غیر از نام Windows باشد این کار بر ای بر نامه هایی که می خواهید فایلی را در پوشه ویندوز کپی کنی دکاربرد دارد مثلاً شما می خواهید فونتی را در پوشه font ویندوز کپی کنید.


     Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _
    "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long _
    ) As Long

    Dim fso As New FileSystemObject
    Public S As String
    Public SysDirectory As Long

    Private Sub Command1_Click()
    fso.CopyFile App.Path & "\vb.txt", S + "\System32\", True
    End Sub

    Private Sub Form_Load()
    S = Space(255)
    'Get the Windows directory
    WinDirectory = GetWindowsDirectory(S, 255)
    S = Left$(S, WinDirectory)
    دارم برنامه طراحی قالب وبلاگ مینویم کم پیدام نظر بدین
    [برای نمایش لینک باید عضو شوید. ]
    اگر از مطالب خوشتون اومد چیکار میکنین؟معلوم تشکر یا اعتبار

    يادم باشد و يادت نرود که ما براي يکبار ايستادن هزار بار افتاده ايم.
  6. 2
  7. #34
    vahid4251
    مدیر بخش
    تاریخ عضویت
    2011 Dec
    محل سکونت
    tehran & esfhan & uromie
    نوشته ها
    180
    14
    197
    چگونه از اجرای مجدد یک برنامه در ویژوال بیسیک جلوگیری کنیم؟

     Private Sub Form_Load()
    If App.PrevInstance = True Then
    msgbox("barname dar hale ejrast")
    Unload Me
    End If
    End Sub
    دارم برنامه طراحی قالب وبلاگ مینویم کم پیدام نظر بدین
    [برای نمایش لینک باید عضو شوید. ]
    اگر از مطالب خوشتون اومد چیکار میکنین؟معلوم تشکر یا اعتبار

    يادم باشد و يادت نرود که ما براي يکبار ايستادن هزار بار افتاده ايم.
  8. 2
  9. #35
    vahid4251
    مدیر بخش
    تاریخ عضویت
    2011 Dec
    محل سکونت
    tehran & esfhan & uromie
    نوشته ها
    180
    14
    197

    نوشتن تنها عدد در یک تسکت باکس

     
    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii > 47 And KeyAscii < 58 Then
    msgbox "number"
    else
    keyascii=0
    msgbox "else number"
    end if
    End Sub
    دارم برنامه طراحی قالب وبلاگ مینویم کم پیدام نظر بدین
    [برای نمایش لینک باید عضو شوید. ]
    اگر از مطالب خوشتون اومد چیکار میکنین؟معلوم تشکر یا اعتبار

    يادم باشد و يادت نرود که ما براي يکبار ايستادن هزار بار افتاده ايم.
  10. 1
  11. #36
    vahid4251
    مدیر بخش
    تاریخ عضویت
    2011 Dec
    محل سکونت
    tehran & esfhan & uromie
    نوشته ها
    180
    14
    197
    تو این سورسی که براتون گذاشتم می تونید از طریق برنامه امیلی رو با فایل ضمیمه ارسال.
    این سورس یک نرم افزار ارسال کننده ایمیل است.

    [برای نمایش لینک باید عضو شوید. ]

    تسکر یادت نره.
    دارم برنامه طراحی قالب وبلاگ مینویم کم پیدام نظر بدین
    [برای نمایش لینک باید عضو شوید. ]
    اگر از مطالب خوشتون اومد چیکار میکنین؟معلوم تشکر یا اعتبار

    يادم باشد و يادت نرود که ما براي يکبار ايستادن هزار بار افتاده ايم.
  12. #37
    vahid4251
    مدیر بخش
    تاریخ عضویت
    2011 Dec
    محل سکونت
    tehran & esfhan & uromie
    نوشته ها
    180
    14
    197
    این نرم افزار خودش با VB6 نوشته شده و شما می تونید با استفاده از اون با انتخاب پوشه پروژه خود تعداد خطهایی را که در آن کدنویسی کرده اید به دست آورید و در بین رشته های پروژه تان جستجو کنید.
    مطمئناً اگه دانلود نکنید دیگه گیرتون نمی یاد.

    [برای نمایش لینک باید عضو شوید. ]
    دارم برنامه طراحی قالب وبلاگ مینویم کم پیدام نظر بدین
    [برای نمایش لینک باید عضو شوید. ]
    اگر از مطالب خوشتون اومد چیکار میکنین؟معلوم تشکر یا اعتبار

    يادم باشد و يادت نرود که ما براي يکبار ايستادن هزار بار افتاده ايم.
  13. #38
    vahid4251
    مدیر بخش
    تاریخ عضویت
    2011 Dec
    محل سکونت
    tehran & esfhan & uromie
    نوشته ها
    180
    14
    197
    یه نرم افزار برای Msg box خصوصی


    [برای نمایش لینک باید عضو شوید. ]
    دارم برنامه طراحی قالب وبلاگ مینویم کم پیدام نظر بدین
    [برای نمایش لینک باید عضو شوید. ]
    اگر از مطالب خوشتون اومد چیکار میکنین؟معلوم تشکر یا اعتبار

    يادم باشد و يادت نرود که ما براي يکبار ايستادن هزار بار افتاده ايم.
  14. #39
    vahid4251
    مدیر بخش
    تاریخ عضویت
    2011 Dec
    محل سکونت
    tehran & esfhan & uromie
    نوشته ها
    180
    14
    197
    ساخت منوی کرکره ای در فروم

    [برای نمایش لینک باید عضو شوید. ]
    دارم برنامه طراحی قالب وبلاگ مینویم کم پیدام نظر بدین
    [برای نمایش لینک باید عضو شوید. ]
    اگر از مطالب خوشتون اومد چیکار میکنین؟معلوم تشکر یا اعتبار

    يادم باشد و يادت نرود که ما براي يکبار ايستادن هزار بار افتاده ايم.
  15. #40
    vahid4251
    مدیر بخش
    تاریخ عضویت
    2011 Dec
    محل سکونت
    tehran & esfhan & uromie
    نوشته ها
    180
    14
    197
    ساخت منوی کرکره ای در فروم

    [برای نمایش لینک باید عضو شوید. ]
    دارم برنامه طراحی قالب وبلاگ مینویم کم پیدام نظر بدین
    [برای نمایش لینک باید عضو شوید. ]
    اگر از مطالب خوشتون اومد چیکار میکنین؟معلوم تشکر یا اعتبار

    يادم باشد و يادت نرود که ما براي يکبار ايستادن هزار بار افتاده ايم.
صفحه 4 از 6 نخست 123456 آخرین
نمایش نتایج: از 31 به 40 از 57

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. دانلود برنامه جستجو داخل درایو ها
    توسط vahid4251 در انجمن برنامه نویسی در 6 VB
    پاسخ: 0
    آخرين نوشته: 2012-11-24, 10:38 AM
  2. افزونه ی پرینت رنگی کد ها برای ویژوال استادیو
    توسط MspSoft در انجمن برنامه نویسی مبتنی بر Microsoft .Net Framework
    پاسخ: 0
    آخرين نوشته: 2012-08-30, 07:49 AM
  3. گوگل درایو شروع به کار کرد !
    توسط erfan در انجمن تازه‌های دنیای کامپیوتر و فناوری
    پاسخ: 4
    آخرين نوشته: 2012-04-27, 10:08 PM
  4. تاریخچه مای اس کیو ال | MySQL
    توسط MspSoft در انجمن MySQL
    پاسخ: 0
    آخرين نوشته: 2012-02-12, 09:49 PM
  5. پاسخ: 0
    آخرين نوشته: 2011-12-24, 12:36 PM

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

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

Content Relevant URLs by vBSEO 3.6.0 RC 2