تصاویر پس زمینه‌ی زیبا و با کیفیت از رهبر انقلاب (با موضوع سال تولید ملی، حمایت از کار و سرمایه ایرانی و موضوعات دیگر)
جهت بزرگ‌نمایی بر روی تصویر مورد نظر کلیک نمایید. 

(بیشتر…)

یکی از روش‌های تعیین محل نصب آفیس استفاده از رجیستری است. کد زیر که به زبان پاسکال نوشته شده، با دو بار آدرس گیری از رجیستری، محل نصب آفیس را مشخص می‌نماید.

function GetOfficePath(Param: String): String;
var
  sVar: String;
  sWordVar: String;
begin
  RegQueryStringValue(HKEY_CLASSES_ROOT, ‘Word.Application\CurVer’,  ”, sVar);
  Delete(sVar, 1, 17);
  sVar:= sVar + ‘.۰′;
  RegQueryStringValue(HKEY_LOCAL_MACHINE, ‘SOFTWARE\Microsoft\Office\’ + sVar + ‘\Word\InstallRoot’,  ‘Path’, sWordVar);
  Result := sWordVar;
end;

  (بیشتر…)

همهمه‌ای در میان مردم افتاد؛ چه خبر است امروز! چرا همه یک سؤال را می‌پرسند؟ نگاه متعجب مردم گاهی به حضرت‌ علی و گاهی به تازه‌واردها دوخته می‌شد. در همین هنگام هفتمین نفر که کمی پیش از تمام شدن سخنان حضرت ‌علی وارد مسجد شده بود و در میان جمعیت نشسته بود، پرسید…

“عماریون”- سایت ارزشی بولتن نیوز نوشت: جمعیت زیادی دور حضرت علی(ع) حلقه زده بودند. مردی وارد مسجد شد و در فرصتی مناسب پرسید:- یا علی! سؤالی دارم. علم بهتر است یا ثروت؟

علی(ع) در پاسخ گفت: علم بهتر است؛ زیرا علم میراث انبیاست و مال و ثروت میراث قارون و فرعون و هامان و شداد.

(بیشتر…)

سری بازی‌های «شاهزاده ایران» نام یک سری بازی نام‌آشنایی است که اکثر جوانان حداقل با نام آن آشنا می‌باشند. به دلیل برخی تحریف‌های تاریخی و توهین‌های مذهبی که در این سری بازی‌ها، به ویژه در آخرین نسخه آن، در مورد ایرانیان و عقاید آنها رخ داده است، لازم دانسته شد تا به شرح و توضیح آن پرداخته شود.

(بیشتر…)

شاید زمانی خواسته باشید که در حال اجرای نرم افزار یک کنترل مثل دکمه یا جعبه تصویر ایجاد نمایید. برای این کار دو روش وجود دارد.
۱- در گام نخست یک ‍TextBox با نام txtarray بر روی صفحه ایجاد کنید و مقدار Index را صفر قرار دهید. سپس کد زیر را در فرم وارد کنید:

Private Sub Form_Load()
Dim i As Integer
  txtArray(0).text = "0"

  For i = 1 To 5
    Load txtArray(i)
    With txtArray(i)
      .Text =  i
      .Visible = True
      .Top = txtArray(i - 1).Top + 550
    End With
  Next i
End Sub

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

(بیشتر…)