سلام به همه دوستای گلم ، از این پس مقالات آموزشی رو می تونید تو وبلاگ جدیدم بخونید :


http://analyzers.mihanblog.ir

+ نوشته شده توسط پژمان رودخانه ای در دوشنبه بیست و پنجم مرداد 1389 و ساعت 18:58 |
با سلام خدمت همه دوستان

لطفاً سوالات خود در مورد Vb , VB.Net , C#.Net , SQL Server , Ajax , JavaScript , jQuery , XML , ASP.Net , HTML & CSS و سایر موارد را در قسمت نظرات بپرسید ، بنده در اولین فرصت پاسخ را در وبلاگ قرار خواهم داد تا همه دوستان استفاده کنند .


[با تشکر ، پژمان رودخانه ئی]

+ نوشته شده توسط پژمان رودخانه ای در یکشنبه بیستم دی 1388 و ساعت 20:35 |

اولین پست من بعد از 3 سال 

سلام به همه ی دوستای عزیزم ، دلم براتون یه زره شده بخدا ...

خیلی درگیرم و وقت نمی شه که مقاله بنویسم براتون ، بزودی تو وب سایت شرکت خودم یه قسمت آماده می کنم برای مقالات آموزشی Visual Basic 6.0  - VB.Net 2008 - C#.Net 2008 - ASP.Net - Ajax - MVC - JQuery - SQL Server ... 

آدرس وب سایت شرکت www.TND.ir

امیدوارم بتونم به کمک شما دوستای عزیزم یه وب سایت مفید برای علاقه مندان برنامه نویسی آماده کنیم .

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


[ موفق و پیروز باشد ]

+ نوشته شده توسط پژمان رودخانه ای در شنبه هفتم آذر 1388 و ساعت 17:57 |

با سلام خدمت همه ی دوستان

واقعاْ من رو با ایمیل ها و نظراتتون شرمنده کردید

دوباره تصمیم گرفتم که بعد امتحانات ترم با آموزشهای جدید بیام

ولی این بار بیشتر در مورد VB.Net و ASP.Net صحبت می کنم .

وعده ما نیمه دوم تیر ماه 

+ نوشته شده توسط پژمان رودخانه ای در سه شنبه دوازدهم اردیبهشت 1385 و ساعت 3:9 |

Beginning Visual Basic 2005 

 

 

Beginning Visual Basic 2005
by Thearon Willis, Bryan Newsome

ISBN: 0-7645-7401-9
November 2005
799 pages

Download

 


Professional VB 2005

Professional VB 2005
by Bill Evjen, Billy Hollis, Rockford Lhotka, Tim McCarthy,

Rama Ramachandran, Kent Sharkey, Bill Sheldon 

ISBN: 0-7645-7536-8
November 2005
1166 pages

Download

+ نوشته شده توسط پژمان رودخانه ای در جمعه یازدهم آذر 1384 و ساعت 0:59 |

سلام بر همه دوستان برنامه نویس خودم

خوب امروز من یه برنامه براتون Upload کردم تا دانلود کنید . این برنامه برای ساختن Setup می باشد که با توجه به حجم کم این برنامه ولی بسیار قوی هست . من خودم امروز با این برنامه یک Setup ساختم که روی چند کامپیوتر تست کردم و هیچ مشکلی نداشت . این برنامه دارای امکانات زیادی می باشد به شما توصیه می کنم که حتماً دانلود کنید .

خوب یک توضیح اینکه برای ساختن Setup شما باید بدانید که چه فایلهایی را باید به همراه فایل اجرایی بر روی سیستم هدف نصب کنید , شما برای اینکار می توانید یک بار توسط نرم افزار Package & Deployment Wizard که به همراه ویژوال بیسیک نصب می شود یک setup طراحی کنید , بعد از ساخت Setup یک فابل متنی به نام SETUP.LST در کنار فایل Setup.exe ایجاد می شود که در آن تمام فابل های مورد نیاز ذکر شده  .

اگر در ساخت Setup با استفاده از این برنامه به مشکل برخوردید لطفاً میل بزنید تا راهنمایتان کنم .

مخلص همه برنامه نویسای عزیز , پژمان

دانلود برنامه  (حجم برنامه ۱.۳ مگابایت)

+ نوشته شده توسط پژمان رودخانه ای در جمعه بیستم آبان 1384 و ساعت 0:24 |

سلام به همه ی شما دوستان عزیز

واقعاً شرمنده از اینکه دیر آپدیت می کنم یه مشکلی برام پیش اومده بود حدود 50 گیگایابت از اطلاعات هارد دیسکم پرید و یه مدت در حال Recover هستم .

به خاطر تقاضا ی زیاد برخی از دوستان تصمیم گرفتم که از این به بعد درباره برنامه نویسی برای نوشتن ویروس و Exploit هم کد هایی را برایتان بنویسیم (البته صرفاً جنبه آموزشی دارد !! )

هم چنین از این به بعد  VB.Net هم در این وبلاگ آموزش داده می شود . فعلاً اللحساب این کتاب رو دانلو د کنید و بخونید در این کتاب تمام توابع VB.Net گفته شده . این کتاب به زبان انگلیسی بوده و بسیار هم ساده هست . اگر در ترجمه و فهم قسمتی از کتاب به مشکل برخوردید برام ایمیل بزنید تا براتون توضیح بدم .

+ نوشته شده توسط پژمان رودخانه ای در دوشنبه شانزدهم آبان 1384 و ساعت 11:16 |
سلام به  همه
این هم لینک دانلود ویژوال بیسیک ۶ که چندتا از دوستان درخواست کرده بودند .


:: حجم هر قسمت : تقریبا ۴۵ مگابایت - قسمت سوم : ۳ مگابایت
+ نوشته شده توسط پژمان رودخانه ای در شنبه نهم مهر 1384 و ساعت 0:36 |

 سلام دوباره به همه دوستان عزیز

خوب شاید برخی از شما نام نرم افزار Buddy Spy رو شنیده باشید , اگر هم نشنیده اید خوب من براتون می گم . کاربرد این برنامه برای Yahoo Messanger هست , مثلا شما می خواهید دیگران فکر کنند که شما WebCam دارید یا اینکه بفهمید یک شخص خاصی واقعاً invisible هست یا نه و اینکه شخص مورد نظر شما در Room های یاهو هست یانه و ..... . خوب این برنامه با ویژوال بیسیک نوشته شده و آقای Brandon Henricks لطف کردن و سورس این برنامه را بصورت Free و تحت GNU Licence عرضه کرده اند .

دریافت Source برنامه

+ نوشته شده توسط پژمان رودخانه ای در سه شنبه بیست و نهم شهریور 1384 و ساعت 19:30 |

این برنامه چگونگی برنامه نویسی برای رجیستری ویندوز را نشان را می دهد , شما با یک نگاه به سورس این برنامه متوجه می شوید که چگونه عمل می کند . در ضمن علت اینکه من دیگه مثل گذشته توضیحی برای سورس برنامه نمی دهم این است که اصلاً وقت نمی شه , اگه باز هم احساس می کنید که در فهم سورس این برنامه مشکلی دارید برام ایمیل بزنید تا در اولین موقعیت برایتان توضیح دهم .

 

دریافت برنامه

همچنین یه Help هم برای دانلود گذاشتم که شما را برای رسیدن به آدرس مورد نظر برای تغییر در رجیستری ویندوز کمک می کنه . این Help طبقه بندی شده است و بسیار کامل و خوب هست حتماً دانلود کنید .

دریافت برنامه

 

+ نوشته شده توسط پژمان رودخانه ای در دوشنبه بیست و هشتم شهریور 1384 و ساعت 2:9 |
سلام دوستان

مشکل دانلود برنامه ها حل شد , برنامه های را به یه هاست دیگه منتقل کردم . تا چند دقیقه دیگه یه سورس برای برنامه نویسی رجیستری تو ویژوال بیسیک براتون میذارم تا دانلود کنید

فعلاْ خدا حافظ .

+ نوشته شده توسط پژمان رودخانه ای در دوشنبه بیست و هشتم شهریور 1384 و ساعت 0:39 |

 

سلام به همه ی دوستان عزیز , دلم خیلی براتون تنگ شده بود واقعاً از اینکه حدود 2 ماه وبلاگ رو آپدیت نکردم معذرت می خوام . ترم تابستونی و طراحی چند سایت و .... همه سبب شد که من نتونم وبلاگ رو آپدیت کنم , ولی خلاصه مهم اینه کم من آلان در خدمتونم . در ضمن واقعاً از ایمیل هایی که تو این مدت بهم زدید تشکر مکنم .

1 . خوب ببینیم اولین برنامه ای که براتون گذاشتم چیه ؟

این برنامه به درخوست یکی از دوستان بود . توسط این برنامه می تونیم ایمیل ارسال کنیم و در ضمن باید متذکر بشم که کسی که می خواد ایمیل ارسال کنه باید ایمیلش از نوع POP3 باشه . این برنامه رو من ننوشتم , من فقط به قول بچه ها Develope دادم و برخی از قسمت ها رو بهش اضافه کردم .

 دریافت برنامه


 2 . این برنامه به درد بچه هایی می خوره که رشته ی کامپیوتر هستن (منظورم از نظر کاربرد این برنامه هست) , این برنامه برای یافتم مسیر در گراف با استفاده از الگوریتم دایجسترا هست . در این برنامه از نظر گرافیکی خیلی خوب کارشده , این برنامه برای کسایی که می خوان کار با Pixel و مسائل مربوط به گرافیک در VB رو یاد بگیرن خوبه .

 دریافت برنامه


3 . و اما این برنامه . شاید همه ی شما اشکال زیر را در برخی از برنامه دیده باشد بخصوص در برنامه های ماکروسافت . اینها به Microsoft Agents معروف هستند که شما می توانید از آنها در برنامه هایی که در ویژوال بیسک می نویسد استفاده کنید . بعنوان مثال برای خوانده پیام یا اخطار خواصی با کاربر . این برنامه خیلی کامل هست و می تونید از اون استفاده کنید .

در ضمن Agent های زیادی وجود دارد که معروفترین آن همان جادوگر (Merlin) میباشد که در حالت معمول به همراه ویندوز نصب می شود . برای نصب کاراکتر های جدید مثل بیل کیتس , قول چراغ جادو , روبات و . . . باید این فایلها رو که با پسوند *.acs هست در این مسیر کپی کنید windows\msagent\chars\ . من چندتا از این کاراکتر ها رو برای دانلود قرار دادم تا از آن استفاده کنید , همچنین شما می تونید با جستجو از سایت ماکروسافت جدیدترن این کاراکترها رو دانلود کنید .

دریافت برنامه

 Agents دریافت .

+ نوشته شده توسط پژمان رودخانه ای در دوشنبه چهاردهم شهریور 1384 و ساعت 0:6 |
با عرض سلام خدمت همه ی دوستان واقعاً از اینکه وبلاگ رو آپدیت نکردم معذرت می خوام , چون گرفتار ترم تابستونی هستم . از طرفی در حال راه اندازی سایت جدیدی هستم که صرفاً برای آموزش زبانهای برنامه نویسی مختلف هست . اگه سوالی دارید برام Mail بزنید . ما در خدمتیم . . .
+ نوشته شده توسط پژمان رودخانه ای در جمعه چهارم شهریور 1384 و ساعت 23:38 |

 

خوب ابتدا توسط Menu Editor منو و تعدادی SubMenu (زیر منو) ایجاد کرده و خاصیت Visible منو (فقط منو) را غیر فعال میکنیم

حالا فرض میکنیم که می خواهیم منو را برای هنگامیکه بر روی فرم راست کلیک کردیم ظاهر کنیم , کد زیر را در Event (ٍرویداد) MouseDown می نویسیم :

 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
   
'Button = 1 :::>>> For LeftClick
   
'Button = 2 :::>> For RightClick
    If Button = 2
Then
        PopupMenu MnuFile
    End
If
    
End Sub

حالا برنامه را Run کنید و بر روی فرم راست کلیک کنید می بینید که فرم ظاهر میشود

خوب شما می توانید منوی کلیک راست رو برای هر عنصری که رویداد MouseDown رو داره پیاده سازی کنید .

 


:: یکی دیگر از سوالاتی که دوستان پرسیدن این است که چگونه بتوانیم Setup های حرفه ای تری بسازیم و خواستند که نرم افزارهای دیگری به جز نرم افزار Package & Deployment Wizard که همراه ویژوال بیسیک نصب می شود معرفی کنم .

من بریا ساختن Setup از نظر نرم افزارها مختلفی همچون Intall Vise , Wise Installer , Nsis و . . . . ولی کاملترین آنها Install Shield هست که لنگه نداره تو مثلاً Setup فتوشاب یا JetAudio رو با این نرم افزار ساختند . حجم دانلود این نرم افزار تحت نام Admin Studio بیش از 300 مگابایت است . بدون شک این نرم افرار برای ساختن setup بهترین است

:: اگه کسی این نرم افزار رو میخواد e-mail بزنه تا یه جوری به دستش برسونم

 

+ نوشته شده توسط پژمان رودخانه ای در یکشنبه دوم مرداد 1384 و ساعت 12:24 |

:: امروز می خواهم چگونگی ساخت یک Splash Screen برای برنامه هایی که مینویسیم را براتون شرح بدم . خوب باز هم باید توابع مورد نیاز را فراخوانی کرده و همچنین ثوایت مورد نیاز را تعریف کنیم

Const LWA_COLORKEY = &H1
Const LWA_ALPHA =
&H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED =
&H80000
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As
Long
Private
Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal _
dwNewLong As Long) As
Long
Private
Declare Function SetLayeredWindowAttributes Lib _
"user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha _
As Byte, ByVal dwFlags As Long) As
Long

نوع نمایش این Splash Screen به گونه ای است که میزان شفافیت فرم آن از 0 به 255 رسیده و دوباره کاهش یافته به صفر می رسد (یا بعبارت دیگر از حالت نامرئی به شفافیت کامل رسیده و دوباره از شفافیت آن کاسته شده و نامرئی می شود ) . خوب تنها Control که برای این برنامه نیاز داریمTimer می باشد . کدی که در Form_Load می بینید باعث می شود که فرم در ابتدای امر نامرئی باشد چون مقدار bAlfa آنرا 0 داده ام


Private Sub Form_Load()
    
    Dim Ret As
Long
    
'Set the window style to 'Layered'
    Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
    Ret = Ret Or WS_EX_LAYERED
    SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret

   'SetLayeredWindowAttributes Me.hWnd,0,(0-255),LWA_ALPHA
    SetLayeredWindowAttributes Me.hWnd,0,0,LWA_ALPHA

    Timer1.interval = 1
    End
    
End Sub

در مرحله بعد برای اینکه فرم از حالت نامرئی به مرئی برسد (یعنی مقدار آن از 0 به 255 برسد) یک حلقه For نوشتم . حال برای اینکه فرم دوباره از حالت مرئی به نامرئی برشد یک حلقه For دیگر با گام افزایش -1 نوشتم تا مقدار آنرا کاهش دهد .

Private Sub Timer1_Timer()
 
     For i = 1 To
255
       SetLayeredWindowAttributes Me.hWnd,0,CByte(i),LWA_ALPHA
     Next i

     For i = 255 To 1 Step -
1
       SetLayeredWindowAttributes Me.hWnd,0,CByte(i),LWA_ALPHA
     Next i
     
     Timer1.Enabled =
False
  
End Sub

(*) یک نکته : این برنامه در سیستم عاملهای windows 2000 به بعد قابل اجراست , زیرا توابع مورد استفاده در این برنامه در ویندوزهای 98 و 95 وجود ندارد .

:: این برنامه را می توانید دریافت کنید


+ نوشته شده توسط پژمان رودخانه ای در دوشنبه بیستم تیر 1384 و ساعت 20:7 |

 وبلاگ جدید من(شما)

آموزش برنامه نویسی کاربردی به زبان ++C

cpp.blogfa.com

 

+ نوشته شده توسط پژمان رودخانه ای در دوشنبه سیزدهم تیر 1384 و ساعت 2:43 |
۲ . چگونه می توانیم دستورات Dos را از طریق ویژوال بیسیک اجرا کنیم ؟

ابتدا Command Prompt را فراخوانی می کنیم , خوب برای فراخوانی از تابع Shell استفاده میکنیم که قبلا در مورد این تابع توضیح داده ام :

Shell "cmd.exe"

:: اکنون یک شیء ایجاد می کنیم تا بتوانیم از طیق آن به هسته Dos دسترسی داشته باشیم :

Dim WinShell
Set WinShell = CreateObject("Wscript.shell")

خوب حالا می توانید به راحتی هر دستوری که دارید میتوانید اجرا کنید در آخر هم دستور تابع Sendkeys کلید Enter را اجرا کرده و دستور اجرا میشود:

WinShell.SendKeys " Dos دستور مورد نظر برای اجرا در "
WinShell.SendKeys "{ENTER}"

به مثاهای زیر توجه کنید که به ترتیب اولی برای ایجاد پوشه ای به نام Visual Basic در درایو C و دستور دوم برای نمایش پوشه های موجود در درایو C و دستور سوم برای Format فلاپی دیسک می باشد .

'For Create Folder With Dos Prompt :
WinShell.SendKeys "MD C:\Visual" & " Basic"
WinShell.SendKeys "{ENTER}"

'For Showing C Directory :
WinShell.SendKeys "Dir C:\"
WinShell.SendKeys "{ENTER}"

'For Format Floppy Disk Of Dos :
WinShell.SendKeys "format A:"
WinShell.SendKeys "{ENTER}"


۱. سلام دوستان , این برنامه به درخواست یکی از دوستان بوده که نشان می دهد چگونه فرم هایی بصورت دایره و یا بیضی در ویژوال بیسیک طراحی کنیم . خوب ایتدا به فراخوانی توابع مورد نیاز ویندوز می پردازیم :

Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "USER32" () As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "USER32" _
(ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long

خوب اکنون کد زیر را در رویداد (Event) مربوط به لحظه ای که کلید موس را بروی فرم فشردیم قرار می دهیم تا بتوانیم با فشردن موس در هر جای فرم به راحتی آن را جابجا کنیم .


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   MousePointer = 15
   Call ReleaseCapture
   Call SendMessage(hWnd, &HA1, 2, 0&)
   MousePointer = 1
End Sub

حال تابع SetWindowRgn را مقدار دهی میکنیم . ( این قطعه کد را در رویداد Form_Load بنویسید ) :

   SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 200, 200), True

مثلا مقادیر 200 و 200 شکل فرم بصورت دایره در می آید برای شکل بیضی شما میتوانید این مقادیر را 200 و 300 اختیار کنید .( بهتر است که خاصیت boarderStyle را 0-None در نظر بگیرید)


+ نوشته شده توسط پژمان رودخانه ای در دوشنبه دوازدهم اردیبهشت 1384 و ساعت 0:36 |

سلام دوستان به خاطر اینکه وبلاگ رو دیر به دیر Update می کنم معذرت [خیلی گرفتارم] می خوام یه برنامه واسه یه جایی دارم مینویسم که به زودی کل Source آنو رو وبلاگ قرار میدم . در ضمن از شما به خاطر ایمیلهایی که می زنید و سوالتان را مطرح می کنید خیلی ممنون .

ولی واسه امروز یه برنامه گذاشتم که امیدوارم به دردتون بخوره , شما می تونید با تغییرات جزیی در سورس این برنامه یه Editor برای زبان های برنامه نویسی بنویسد .این برنامه کلمات کلیدی که مشخص شده را با رنگ خاصی از سایر متن نمایش می دهد , مانند محیط کد نویسی زبان ویژوال بیسیک خودمون .

حال شما فرض کنید که می خواهید یک کلمه کلیدی جدید اضافه کنید برای این کار شما باید قطعه کد زیر را به تابع SetColors اضافه کنید :

ColorizeWord controlname , "keyword" , colorcode

 

:: در ضمن لازم می بینم که بگم این برنامه احتمالاً دارای اشکالاتی نیز می باشد که امیدوارم خودتون برنامه رو Develope بدید و کامل کنید

:: برای دریافت برنامه اینجا کلیک کنید

+ نوشته شده توسط پژمان رودخانه ای در پنجشنبه هشتم اردیبهشت 1384 و ساعت 19:19 |

( جدید )

چگونه از اجراي مجدد يک برنامه در ويژوال بيسيک جلوگيري شود ؟

خوب با استفاده از تيکه کد زير در فرم اصلي برنامه تان مي توانيد از اجراي مجدد (Duplicate) برنامه جلوگيري کنيد

Private Sub Form_Load()
    If App.PrevInstance = True Then
       Dim Result As Integer
       Result = MsgBox("
برنامه در حال اجراست", vbInformation, "Warnnig")
       Unload Me
    End If 
End Sub



 در این قسمت من دو برنامه برای دانلود قرار دادم که به درخواست دو تا از دوستان بود :

1. برنامه ای برای جستجوی یک رشته در بین تعدادی رشته دیگر Download

2. برنامه ای که فایل ها را به رمز در آورده (Encrypt) و می تواند اطلاعات را کد کرده و دوباره دیکد کند .این کار برای ذخیره اطلاعات در فایلها خیلی مناسب است . این برنامه رو آقای Alex Rohr نوشته است . Download

 


سلام دوستان امروز می خوام به سوالاتی که برخی از دوستان پرسیده اند پاسخ دهم

1. چگونه می توان در ویژوال بیسیک فرمی ساخت که Always on Tpo (یعنی همیشه روی همه ی فرم ها قرار بگیره) باشد ؟


Option Explicit
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long
'
'
Private Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) _
As Long
          If Topmost = True Then 'Make the window topmost
             SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
         Else
              SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
             SetTopMostWindow = False
         End If
End Function


Private Sub Form_Load()
    Dim lR As Long
    lR = SetTopMostWindow(Form1.hwnd, True)
    'For inactive always on top Properties : lR = SetTopMostWindow(Form1.hwnd, False)
End Sub




2. چگونه می توان متن دلخواهی را در Statusbar قرار داد ؟


 StatusBar1.Panels(شماره پنل مورد نظر).Text = "ساعت جاری " & Format(Time, "hh:mm:ss")





3. چگونه می توان از تابع LoadKeyboardLayout در ویندوز پارسا 99 استفاده کرد ؟


کد 429 برای فارسی کردن کیبرد در ویندوز 2000 و XP می باشد برای ویندوز فارسی پارسا کد 401 می باشد .


Private Sub Form_Load()
           LoadKeyboardLayout "00000401", 1 ' 00000401 :::::> For Farsi Keyboard in PARSA 99
End Sub





4. چگونه می توان یک Explorer را اجرا کرد ؟


برای این کار می توان از راههای مختلفی استفاده کرد مثلاً از شیء Shell و . . .  . برای اینکار از منوی Project آیتم Preference را انتخاب کنید , اکنون آیتم Microsoft Shell Controls and Automaton  را انتخاب کنید . حالا مراحل زیر را انجام میدهیم .


Dim SH As New Shell


حالا می توانید از متدهای زیادی که این شیء در اختیارتان می گزارد استفاده کنید . از جمله این متد های اجرا Internet Explorer , Outlook , اجرای آیتم های موجود در کنترل پنل , نمایش پنجره جستجوی ویندوز و کلی کارهای مفید دیگه . به مثالهای زیر توجه کنید :


SH.Open "http://vb.blogfa.com"

SH.TrayProperties

SH.SetTime

SH.FindComputer 'System Search

SH.ControlPanelItem "sysdm.cpl" 'System Properties

SH.ControlPanelItem "inetcpl.cpl" 'Internet Options

SH.ControlPanelItem "'appwiz.cpl" 'Add/Remove Programs

این شیء دارای متدهای دیگری هم میباشد که به راحتی می توانید از آنها استفاده کنید .

 

+ نوشته شده توسط پژمان رودخانه ای در شنبه سیزدهم فروردین 1384 و ساعت 13:33 |
سلام دوستان

راستش مطالب واسه نوشتن زیاد . واسه همین از شما می خوام که در هر زمینه که دوست دارید برام Mail بزنید تا من در همون مورد براتون مطلب بنویسم , ما مخلص همه ی شما هستیم .

بدرود

+ نوشته شده توسط پژمان رودخانه ای در جمعه دوازدهم فروردین 1384 و ساعت 0:44 |