کد تغییر زبان صحه کلید :

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


Private Sub Command1_Click()
StrLocId = LoadKeyboardLayout("00000429", 1)
Text1.RightToLeft = True
Text1.Alignment = 1
End Sub


Private Sub Command2_Click()
StrLocId = LoadKeyboardLayout(vbNull, 1)
Text1.RightToLeft = False
Text1.Alignment = 0
End Sub

ادامه نوشته

شماره : #1استفاده از حلقه‌ها در ویژوال بیسیک, انواع و کاربرد آنها Hooks In VB :

امروز قصد دارم مبحث مهمی رو بیان کنم که باید قبل از مقاله های قبلی راجع به اینجکت کد در پروسه های دیگه بیان میکردم

• استفاده از حلقه ها در ویژوال بیسیک و انواع آن و کاربرد آنها
  

همونطور که میدونید ویندوز بر پایه دریافت و ارسال پیغام هاست یعنی اینکه هر عملی که شما در حین کار کردن با سیستم انجام میدید باعث بوجود آمدن یک یا چند پیغام میشه و بهمون طریق پیغامها هم باعث انجام شدن اون عمل میشن این پیغام ها از بین اشیاء عبور میکنن و به جایی که مقصد اونهاست فرستاده میشن همچنین این پیغام ها حاوی اطلاعات خاصی از جمله آدرس فرستنده اونها هستند که مشخص کننده منبع و یا برنامه ای که اون پیغام رو فرستاده هستند اما......

اما این آموزش رو فقط نمیخوام به حلقه هایی اختصاص بدم که با پیغام ها سروکار دارند به مثال های زیر با دقت توجه کنید

کد:

PrevProc = SetWindowLong(F.hwnd, GWL_WNDPROC, AddressOf WindowProc(

کد:

hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)

ادامه نوشته

كنترل هاي توپ و بي نظير :

يه سري كنترل هاي توپ رو تو اين تاپيك مي گذارم.
اولي يه كنترل Button بسيار زيبا است.
براي رجيستر كردن كنترل ابتدا فايل Install.bat را اجرا كنيد سپس با برنامه Light Register و با يوزر و پسوردي كه تو فايل Serial.txt است آن را رجيستر كنيد.

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

از اينجا دانلود كنيد:
http://www.activex.persiangig.com/LightT...ontrol.zip

ادامه نوشته

هک آیدی با ویژوال بیسیک

خوب یک روش هست.که الان همه استفاده میکنن چون خیلی راحته.
ابتدا باید ببینی یاهو مسنجر بازه یا نه برای این کار ار تابع FindWindow برسی میکنی که ایا پنجره یاهو بازه یا نه
Dim Handel as long
handel=FindeWinodws(VbNullString,"Yahoo! Messenger")ok
if handel <>0 then
خوب تا این جا برسی میکنه که ایا پنجره ای با اسم یاهو مسنجر بازه اگر باز باشه مقدار برگشتی در handel

ادامه نوشته

آشنایی با متدهای کلاس fso

copyfile : جهت کپی تعدادی فایل با تعیین مسیر مبدا در مقصد مشخص شده

copyfolder : جهت کپی یک پوشه در پوشه ای دیگر

creatfolder : یک پوشه جدید ایجاد می کند

 

ادامه نوشته

چگونه می توان در وی بی یک فایل با هر پسوندی را در یکی از درایوها اجرا کرد ؟

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

چگونه می توان در وی بی یک فایل با هر پسوندی را در یکی از درایوها اجرا کرد ؟

برای Run کردن یک فایل اجرایی در وی بی بایستی از تابع ShellExecute استفاده نمایید . نحوه declare کردن آن بصورت زیر است :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

حال فرض کنید می خواهید در مسیر D:\TestShell\ فایلی به اسم Test.exe را توسط برنامه تان اجرا کنید . کد زیر بدین منظور نوشته شده است :

Call ShellExecute(Me.hwnd, vbNullString, "D:\TestShell\Test.exe", "", "", SW_SHOWNORMAL)

فارسي نويسي در ويژوال بيسيك

بعد از نصب نرم افزار براي تنظيم فارسي نويسي در ويژوال بيسيك بايد مسير هاي زير را درست كنيد :

Control Panel > Regional and language options > Advanced

قسمت select a language to match the language version of the non-Unicode programs را به farsi تغيير دهيد . آنگاه باحتمال زياد از شما سي دي xp را مي خواهد كه اين كار را انجام مي دهيد .
سپس به زبانه languages برويد و دكمه Details را انتخاب كنيد در زبانه Advanced تيك Extended supprt of advanced text services to all programs را بگذاريد .
كامپيوتر را reset كنيد .
vb6 را اجرا كنيد . از منوي tools گزينه options را انتخاب كنيد آنگاه زبانه editor format را انتخاب كنيد و آنگاه فونت را به Courier new (Arabic) تغيير دهيد .
از اين پس هر وقت كنترلي خواستيد كه در برنامه قرار دهيد خاصيت font انرا به فونتي كه فارسي را پشتيباني مي كند انتخاب كنيد و سپس منوي پايين افتادني script را در همان منوي font به Arabic تغيير دهيد

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

در برنامه زیر شبیه سازی به زمین افتادن یک توپ را می توانید ببینید

کافی است در فرمتون یک آبجکت Shape1 و یک دکمه ایجاد کنید و کدهای زبر را به قسمت General کپی کنید

كد:

کد ها در ادامه مطلب

ادامه نوشته