سلام امروز میخواهم اموزش ساخت Windows Media Player را بدم البته

سلام امروز میخواهم اموزش ساخت Windows Media Player را بدم البته فقط باهاش می تونید اهنگ بیارید کار دیگری نمی تونید باهاش انجام بدید !!!ویژوال بیسیک را اجرا کنید standard EXE را انتخاب و open را بزنید روی پنجره سمت چپ (پنجره ابزار)در قسمت پایین راست کلیک کنیدcomponentsرابزنیدلیستی از کنترل ها را می بینید در قسمت controls به قسمت پایین بیایید و اخرین کنترل که
Windows media player است  را انتخاب(تیک بزنید)همچنین به بالای صفحه بیاییدو کنترل microsoft Common Dialog Control 6.0را پیدا کنید و ان را هم تیک بزنید سپس  ok را بزنیدهمان طور که می بینید کنترل windows media playerو microsoft Common Dialog Control 6به پنجره سمت چپ اضافه شدندبا دوبار کلیک روی هر دو کنترل انهارا به form1 اضافه کنید توجه کنید کنترل
 common dialogدر حالت طراحی در form1 ظاهر میشود اما وقتی برنامه را اجرا کنید در form1 ظاهر نمی شود (مثل کنترلtimer) حال یک کنترل command Button به form 1ضافه کنیددر پنجره properties  مربوط به کنترلCommand Buttonخاصیت caption آن را برابر open music کنید .
در پنجره کد نویسی کنترلCommand Button فرمان زیر را وارد کنید
 CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
حال f5 را بزنید برنامه را امتحان کنید چه جوری؟ این جوری .open music را بزنید پنجره باز میشود اهنگ خودتان را انتخاب کنید و open را بزنید حالا نگاه کن
دوباره F5 را بزنید برنامه را در داخل ویندوزتون بزارید تموم شد!
......
راستی میتونید برای ماشین حساب که جلسه پیش گفتم روابط مثلثاتی قرار بدید فرمانش اینه
 (text1.text=sin(text1.text
(text1.text=cos(text1.text
(text1.text=tan(text1.text
جلسه بعد هم شاید اموزش ساخت Notepad را بگم (نسبتا کامل)
خدا نگهدارتون! نظر یادتون نره !حتما نظر بدید!

کار این تابع عوض کردن زبان صفحه کلید انگلیسی=فازسی

API شماره 3 : کار این تابع عوض کردن زبان صفحه کلید از انگلیسی به فارسی و بر عکس

این تابع را درون یک ماژول بنویسید :

Public Declare Function

LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

pwszKLID

: این متغییر رشته 9 رقمی است که کد زبان رو مشخص میکنه.

flags

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

: مقدار این متغییر برابر (1) خواهد بود.

(StrLocId = LoadKeyboardLayout("00000429", 1

()Private Sub Command1_Click

End Sub

کد دکمه تبدیل زبان به انگلیسی :

(StrLocId = LoadKeyboardLayout(vbNull, 1

()Private Sub Command2_Click

End Sub

شماره 4 : این API برای مخفی کردن دکمه Start ویندوز

شماره 4 : این API برای مخفی کردن دکمه Start ویندوز

مثل همیشه تعریف تابع توی یه Module :

Public

Public

Public Declare Function

Public Declare Function

Public Declare Function

OP As LongOH As Long ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Const

SW_HIDE = 0

Public Const

SW_SHOW = 5

از تابع

حالا برای مخفی کردن دکمه

FindWindow برای پیدا کردن هندل TaskBar و از تابع FindWindowEx برای پیدا کردن هندل دکمه Start استفاده می کنیم.Start کد زیر رو بنویسید :

()Private Sub HideStart_Click

("" ,"OP& = FindWindow("Shell_TrayWnd

(OH& = FindWindowEx(OP&, 0, "Button", vbNullString

ShowWindow OH&, SW_HIDE

End Sub

این کد هم برای نمایش دوباره دکمه 

Start است :

("" ,"OP& = FindWindow("Shell_TrayWnd

(OH& = FindWindowEx(OP&, 0, "Button", vbNullString

ShowWindow OH&, SW_SHOW

()Private Sub ShowStart_Click

End Sub