just visual basic 6

Input Output

2009-09-09T21:27:00.000-07:00

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

در صورتی که این حرف کاملآ اشتباه هست. ویژوال بیسیک قابلیت کنترل مستقیم ورودی و خروجی هارو نداره.

امروز هم یه کار با پورت های پارالل رو براتون توزیح میدم.

کار با پورت های پارالل خیلی سادس. ولی اول باید فایل "InpOut32.dll" رو دانلود کنید.

حالا اون رو توی پوشه ی system32 کپی کنید. کار با این فال درست مثل کار با api ها هست.

البته اگربا qbasic (داداش visual basic)برنامه نویسی میکنید نیازی به این کارا ندارین.

Declare Sub vbOut Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As

Integer)

Declare Sub vbOutw Lib "WIN95IO.DLL" (ByVal nPort As Integer, ByVal nData As Integer)

Declare Function vbInp Lib "WIN95IO.DLL" (ByVal nPort As Integer) As Integer

Declare Function vbInpw Lib "WIN95IO.DLL" (ByVal nPort As Integer) As Integer

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

و حتمآ راهنما هم داره.(کد های بالا میره تو ماژول)

خب حالا به عکس بالا نیگا کنید.

ما فقط با خروجی ها کار داریم.که پورت های زرد همه خروجی هستن.

تا جایی هم که من خوندم پورت های 18 تا 25 باید منفی باشن که من چیز دیگه ای دیدم.

من فرض میکنم شما تسلط کامل بر محاسبات دودویی (binary) دارید.(اگر ندارید حتمآ یاد بگیرید)

این عدد رو هم حفظ کنید 888

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

vbout 888,number

888 رو همیشه برای کار با خروجی ها مینویسیم

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

از اونجایی که ما 8 تا خروجی داریم عدد 00000001 یعنی خروجی اول رو روشن کن.

و به ترتیب 00000011 و 00000111 و .......

ولی همونطور که گفتم باید تبدیل بشه به عدد در مبنای 10 (decimal)

برای مثال کد زیر خروجی اول رو روشن میکنه

vbout 888,1

ففط هواستون باشه که روشن کردن یک پورت یعنی 5 ولت برق و خاموش کردن یک پورت یعنی 0 ولت برق

برای اطلاعات بیشتر به این سایت مراجعه کنید.

رجیستری

2009-07-02T22:41:00.000-07:00

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

رجیستری ویندوز رو میشه از طریق برنامه ی regedit درش تغییراتی به وجود آورد.

همچنین یکسری توابع api نیز ویندوز داره که به وسیله ی اونا میتونین از داخل برنامه ی خودتون رجیستری رو تغییر بدید.

حالا یک پروژه ی جدید باز کنید چون میخوایم در غالب یک پروژه قسمت عمده ی این توابع رو یادبگیریم(بگیرید چون من که بلدم (: )

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

برای این کار تابعی به نام RegOpenKeyEx وجود داره به شکل زیر

Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long

اگر برنامه ی regedit رو باز کنید میبینید که وقتی اولین شاخه یعنی شاخه ی MyComputer رو باز میکنید پنج فولدر مشاهده میکنید.(از این به بعد به این فولدر ها میگیم key یا "کی" که به فارسی یعنی کلید.پس میگیم کلید ،فولدر تو رجیستری=کلید)

خب اگر در APIViewer خود در لیست ثابت ها(constants) نگاه کنید میبینید هشت کلید با نام کلید های ذکر شده وجود دارد که با سه تا از اونا کاری نداریم.

بقیه یه اونها به شرح زیر

Public Const HKEY_CLASSES_ROOT As Long = &H80000000
Public Const HKEY_CURRENT_CONFIG As Long = &H80000005
Public Const HKEY_CURRENT_USER As Long = &H80000001
Public Const HKEY_LOCAL_MACHINE As Long = &H80000002
Public Const HKEY_USERS As Long = &H80000003

قبل از اینکه سراغ کد نویسی برم این رو هم بگم که اگر مقدار برگشتی هرکدوم از توابع API مربوت به رجیستری مقدار 0 رو برگردونن یعنی تابع کارش رو با موفقیت به انجام رسونده و در غیر این صورت یعنی خطایی رخ داده.

خب بریم که یک کلید رو باز کنیم.

دونه دونه مقادیری رو که برای regopenkeyex نیاز دارید در پایین توزیح میدم

hKey=یکی از همون پنج ثابت

lpSubKey=نام کلیدی که میخواهیم اون رو باز کنیم

ulOptions=فقت یک صفر بزارید

samDesired=یک پوشش امنیتی که یه چندتا ثابت میخواد به شرح زیر.

Public Const KEY_ALL_ACCESS As Long = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
Public Const STANDARD_RIGHTS_ALL As Long = &H1F0000
Public Const KEY_QUERY_VALUE As Long = &H1
Public Const KEY_SET_VALUE As Long = &H2
Public Const KEY_CREATE_SUB_KEY As Long = &H4
Public Const KEY_ENUMERATE_SUB_KEYS As Long = &H8
Public Const KEY_NOTIFY As Long = &H10
Public Const KEY_CREATE_LINK As Long = &H20
Public Const SYNCHRONIZE As Long = &H100000

شما فقت KEY_ALL_ACCESS رو مینیویسید ولی ثابت های دیگر رو هم باید توی ماژول یا جای دیگه نوشته باشید.

و اگر نگاه کنید تمامی ثوابت توی خود KEY_ALL_ACCESS هستند پس فقت کافیه KEY_ALL_ACCESS رو حفظ کنید.

و اینکی KEY_ALL_ACCESS باید بعد از ثوابط دیگر تعریف شود

phkResult=هندل کلیدی رو که باز کردیم بر میگرداند.

حالا برید تو رویداد Form1_Load و کد زیر رو بنویسید

Private Sub Form_Load()
Dim RetVal As Long
Dim SubKey As String
Dim KeyHandle As Long
SubKey = "console"
RetVal = RegOpenKeyEx(HKEY_CURRENT_USER, SubKey, 0, KEY_ALL_ACCESS, KeyHandle)
If Not RetVal = 0 Then
MsgBox "error in openning"
End
Else
MsgBox "openning succeded"
End
End If
End Sub

برنامه اول سأی میکنه که کلید console که در Hkey_Current_User هست رو باز کنه و اگه موفق شد هندل اون رو در متغیر KeyHandle قرار میده . ولی اگه با خطا مواجه شد اول میگه که در بازکردن مشکل به وجود آمده و بعد برنامه رو میبنده.

اگر هم که با خطا مواجه نشد میگه که باز شدن با موفقیت انجام شد و بعد برنامه رو میبنده.

نکته:وقتی که یک کلید رجیستری رو باز میکنید یه مقداری رم رو به خودش اختصاص میده به همین علت وقتی یک کلید رجیستری باز شد و خوانده شد یا تغییراتی درش به وجود آمد بای سریع بسته شه که رم رو آزاد کنه .بستن یک کلید رجیستری به وسیله ی یک API یه دیگه انجام میشه ولی چون هنوز اون رو نخوندیم برنامه رو میبندیم و باز هم رم به این ترتیب آزاد میشه.

خب حالا میخوایم یک مقدار(value) رو بخونیم.مقادیر رو در قسمت سمت راست برنامه ی regedit مشاهده میکنید که متنها و عدد ها در انها ذخیره میشوند.

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

Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByRef lpData As Any, ByRef lpcbData As Long) As Long

خب حالا به به شرح آرگومان هاش میپردازیم

hKey=هندل کلید باز شده به وسیله ی RegOpenKeyEx

lpValueName=نام مقداری(value)ای که میخواهیم اونو باز کنیم

lpReserved=صفر

lpType=تایپ مقداری که میخواهیم باز کنیم که یه چندتا ثابت با پیشوند REG داره

Public Const REG_BINARY As Long = 3
Public Const REG_DWORD As Long = 4
Public Const REG_SZ As Long = 1
البته تایپ های دیگری هم وجود داره ولی اینا مهمترین هان

REG_SZ=مقادیر رشته ای

REG_BINARY=مقادیر دودویی

REG_DWORD=مقادیر Hex یا decimal

بقیه یه آرگومان

lpData=متغیری که مقدار برگشتی به آن فرستاده میشود

lpcbData=طول مقدار برگشتی

خب دو آرگومان آخر یکم توضیح میخوان

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

اول دو متغیر از نوع استرینگ(string) تعریف میکنیم

حد اکثر طول یکی از آنها رو مساوی با 255 قرار میدیم به شکل زیر

Dim Buff As String *255

Dim RegValue as String

بعد برای lpData متغیر اولی رو مینویسیم

برای lpcbData هم حد اکثر طول متغیر اولی رو مینویسیم

گیج نشید الان مثال میزنم متوجه میشید.

Private Sub Form_Load()
Dim RetVal As Long
Dim Buff As String * 255, Fn As String
RetVal = RegQueryValueEx(KeyHandle, ValueName, 0, REG_SZ, ByVal Buff, 255)
If RetVal = 0 Then
Fn = Left(Buff, 255)
Else
MsgBox "error in reading", vbCritical, "error"
End
End If

End Sub
بعد با دستور RegCloseKey باید کلید بسته بشه

بستن کلید خیلی سادس.فقط هندل کلیدی رو که باز کردین بهش بدین

SetWindowLong

2009-06-29T16:46:00.000-07:00

خب امروز میخوام یه api رو معرفی کنم که با استفاده از اون میشه یکم شکل و شمایل فرم برنامه رو تغییر داد.

فرمت تابع به شکل زیر میباشد

Private Declare Function SetWindowLong Lib "user32.dll" Alias _ "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong _ As Long) As Long

این تابع قابلیت های زیادی دار

1-GWL_STYLE (برای اصلاح کردن فرم)

2- GWL_EXSTYLE (برای اصلاح کردن فریم درو فرم)

3- GWL_WNDPROC (برای ساختن یک حلقه برای فرم)

ما فقت به GWL_STYLE کار داریم

برای کار با استایل فرم باید یک سری ثابت دیگر نیز تعریف کنیم به شرح زیر.

ٌ WS_CAPTION که خیلی مفیده و دکمه های روی فریم رو بر میداره

WS_BORDER فریم رو حذف میکنه و به جاش یک خط سیاه میزاره

و این هم یک نمونه:

SetWindowLong Me.hwnd, GWL_STYLE, WS_CAPTION

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

همچنین ثابت های بیشتری نیز وجود دارند که من نمیتونم همشون رو توزیح بدم

ولی شما میتونید خودتون دونه دونه همه ی اونا رو امتحان کنید

و اینکه تمامی ثوابت پیشوند WS دارند

ooooooo

2009-04-07T11:35:00.000-07:00

آقا الکی الکی یه چیزی کشف کردم که واقعآ دلم نیومد نذارمش.

این کد رو امتحان کنید و نتیجه ش رو ببینید

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y_ As Single)
If Button = 1 Then Picture1.Line (X, Y)-(X + X, Y + Y)
End Sub

bitblt

2009-03-09T19:10:00.000-07:00

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

فرمت تابع bitblt به شکل زیر هستش.

Private Declare Function BitBlt Lib "gdi32.dll" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

البته اگه میخواید توی ماژول تعریفش کنید معمولآ باید بجای private از public استفاده کنید.

حالا به ترتیب توضیحشون میدم.

hDestDC=اچ دی سی (hdc) کنترلی که عکس به اون منتقل میشه.یعنی عکس ما توش کپی میشه.

x=نقطه ی شروع ترسیم(عکس جدید)در راستای افقی.

y=نقطه ی شروع ترسیم(عکس جدید)در راستای عمودی.

nWidth=عرض تصویر جدید.

nHeight=طول تصویر جدید.

hSrcDC=اچ دی سی (hdc) کنترلی که تصویر از اونجا کپی میشه(کنترل مبدع).

xSrc=نقطه ی شروع کپی شدن در راستای افق عکس(کنترل مبدع)

ySrc=نقطه ی شروع کپی شدن عکس در راستای عمود(کنترل مبدع)

dwRop=یک ثابت(constant)که در زیر توضیح داده شده.

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

Private Const SRCCOPY As Long = &HCC0020

در زیر یک نمونه اورده شده است.

BitBlt Picture2.hDC, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture1.hDC, 0, 0, SRCCOPY

به ثابت روبه رو نگاه کنید. Public Const MERGEPAINT = &HBB0226

این ثابت به رنگ پس زمینه ی کنترلی که عکس در آن کپی میشود بستگی دارد.

رنگ backcolor کنترل مقصدرو عوض کنید و بعد عکس رو کپی کنید و نتیجه رو ببینید.

ثابتت زیر رنگ عکس کپی شده رو عوض میکنه ولی با backcolor کاری نداره.

Public Const NOTSRCCOPY = &H330008

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

Public Const BLACKNESS = &H42
Public Const DSTINVERT = &H550009
Public Const MERGECOPY = &HC000CA
Public Const MERGEPAINT = &HBB0226
Public Const NOTSRCCOPY = &H330008
Public Const NOTSRCERASE = &H1100A69
Public Const SRCAND = &H8800C6
Public Const SRCCOPY = &HCC0020
Public Const SRCERASE = &H440328
Public Const SRCINVERT = &H660046
Public Const SRCPAINT = &HEE0086
Public Const WHITENESS = &HFF0062

picture

2009-02-11T19:05:00.000-08:00

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

شاید تا حالا پیش اومده باشه که بخواید یه عکس رو از یک محل دلخواه توی یک picture box اضافه کنید و کد زیر رو نوشته باشید
picture1.picture=("c:/mypicture")

خوب حتمآ با ارور مواجه شدید.برای بارکردن یک عکس درون یک picture box یا یک image باید از توابع زیر استفاده کنید.

1)برای بارکردن loadpicture
2)برای سیو کردن savepicture

به مثال های زیر نگاه کنید.

picture1.picture=loadpicture(path)
savepicture picture1.picture,path

دستور loadpicture آرگومان های دیگری هم دارد ولی واجب نیستند.

windowfrompoint

2009-01-29T15:27:00.000-08:00

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

مواد لازم:1 عدد فرم - 1 عدد تایمر - لیبل(label)به میزان لازم.

()Private Sub Timer1_Time
Dim wnd As Long
Getcursorpos pointapi
(wnd=Windowfrompoint (pointapi.x,pointapi.y
Label1.caption=wnd
End Sub

random files

2009-01-26T17:33:00.000-08:00

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

منظور من اینکه میتونید یک تایپ(مثل تایپ توی api ها)مثلآ با اسم phoneb مخفف phonebook تعریف کنید.

این تایپ phoneb شما دو خاصیت به نام های firstname و lastname و phonenumber دارد.

که مثلآ میتونید 1000 تا رکورد روی اون ذخیره کنید.پس به این ترتیب میتونیم یک data base از نوع داده ای خودمون تعریف کنیم.خیلی گیج کننده هست ولی یک بار امتحان کنید دیگه راحت میشه. خوب برای شروع یک پروژه جدید با یک ماژول باز کنید.اول از همه باید تایپ خودمون رو تعریف کنیم پس توی ماژول تایپ خودتون رو تعریف کنید.میتونید از کد پایین به عنوان الگو استفاده کنید.

public type phoneb

firstname as string

lastname as string

phonenumber as string

end type

حتمآ میدونید که در ویژوال بیسیک نمیشه بین اسامی از فضای خالی استفاده کرد.پس سعی کنید از اسامی مخفف استفاده کنید.

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

public type phoneb
firstname as string *25
lastname as string *25
phonenumber as string *25
end type

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

خب حالا باید یک فایل رو باز کنیدتا بتوانید با استفاده از تایپی که تعریف کردید توی فال بنویسید وسیو کنید.

شما میتوانید یک فایل رو به چند روش باز کنید ولی اینجا ما فایل رو به صورت رندم(random)یا اتفاقی باز میکنیم.

برای این کار از فرمول روبه رو استفاده میکنیم. open path for random as #number len=lenght

دستورات آبی مربوط به خود ویژال بیسیک هستند.و باید نوشته شوند.path(مسیر)مسیری هست که فایل در آنجا قرار دارد.number شماره ی فایل هست که اگر خواستید بتوانید چند فایل با هم باز و بسته بکنید.

len همون طول فایل هست که از شمارش طول prperty های تایپمون به دست میاد.مثلآ در اینجا طول فایل می 75 هست 25+25+25=75

به مثال زیر نگاه کنید.

open "c:\program files" for random as #1

به این ترتیب یک فایل رو باز کردید.یا اگر وجود نداشت به وجود آوردید(آخه وقتی یک فایل رو باز میکنید اگه وجود نداشته باشه اول اون رو به وجود میاره بعد بازش میکنه.)

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

قبل از هرکاری یک کار دیگه رو هم باید یاد بگیرید اون هم اینکه چند رکورد توی فایل نوشته شده.

getcursorpos

2009-01-24T16:14:00.000-08:00

برای بدست آوردن محل کرسر ویندوز از تابع getcursorpos استفاده میکنیم.
برای این کار نیاز به یک تایپ داریم به اسم pointapi .
پس توی جنرال برنامه کد زیر رو کپی کنید.

Private Type POINAPI
x as integer
y as integer
End Type
Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
dim POINTAPI as POINTAPI

حالا یک تایمر بزارید و توی روالش کد زیر رو بنویسید.(اول interval اون رو 100 بکنید)

getcursorpos POINTAPI
text1.text=POINTAPI.x
text2.text=POINTAPI.y

یادم رفت که بگم دوتا textbox هم بزارید.

windows

2009-01-18T19:58:00.000-08:00

بحث پنجره ها مبحث بزرگی است.

برای شروع یک توزیح کلی میدم.

هر چیز در ویندوز یک پنجذه هست. هر پنجره یک هندل(handle) یا دستگیره دارد . هندل ها همیشه long هستند و متغیری که یک هندل به ان نسبت داده میشود باید از نوع long تعریف شده باشد.بریم سراغ اصل مطلب.

برای گرفتن هندل یک پنجره از تابعی به نام findwindow استفاده میکنیم.(چند تا دیگه هم هستن)

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

1-نام پنجره

2-نام کلاس پنجره

شما باید فقت یکی رو پر کنید و در دیگری بنویسید VbNullString به مثال پایین نگاه کنید

findwindow(VbNullString,"visualbasic")

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

dim a as long
a=findwindow(vbnullstring,windowname)

حالا با استفاده از تابع showwindow میشه پنجره رو دستکاری کرد.
این تابع هم ساده هست.چون فقت ندل پنجره و فلگ کاری که میخواد بکنه رو نیاز داره. فلگ هارو در زیر اوردم.
sw_show نمایش پنجره
sw_hide پنهان کردن پنجره
sw_maximize بزرگ کردن صفحه
sw_minimize کوچک کردن صفحه
این یکی جداّ نیاز به توزیح نداره ولی توزیح میدم واسه اوش گ...ها.

dim wnd as long
wnd=findwindow(vbnullstring)
showwindow wnd,sw_hide
به این ترتیب یک پنجره رو مخفی میکنیم.دقت داشته باشید که پنجره مخفی(hide)میشه.

windows colors

2008-12-19T19:26:00.000-08:00

خب حالا میخواهیم یکمی سیستم رنگ بندی کامپیوتر رو دست کاری کنیم.
برای این کار از یک api به نام setsyscolors استفاده میکنیم.
خیلی کارساده ای هست فقت باید نام یک فلگ و یک عدد از نوع long که همان رنگ هست رو بهش بدین.

Private Declare Function SetSysColors Lib "user32.dll" (ByVal nChanges As Long,_ ByRef lpSysColor As Long, ByRef lpColorValues As Long) As Long

و فلگ هاش هم در زیر اومده.

private Const COLOR_3DDKSHADOW As Long = 21
private Const COLOR_3DLIGHT As Long = 22
private Const COLOR_ACTIVEBORDER As Long = 10
private Const COLOR_ACTIVECAPTION As Long = 2
private Const COLOR_BACKGROUND As Long = 1
private Const COLOR_BTNSHADOW As Long = 16
private Const COLOR_BTNTEXT As Long = 18
private Const COLOR_CAPTIONTEXT As Long = 9
private Const COLOR_HIGHLIGHT As Long = 13
private Const COLOR_HIGHLIGHTTEXT As Long = 14
private Const COLOR_HOTLIGHT As Long = 26
private Const COLOR_MENU As Long = 4
private Const COLOR_MENUTEXT As Long = 7
private Const COLOR_SCHEMES As Long = 715
private Const COLOR_SCROLLBAR As Long = 0
private Const COLOR_WINDOW As Long = 5
private Const COLOR_WINDOWFRAME As Long = 6
private Const COLOR_WINDOWTEXT As Long = 8

توضیح دادن اینکه هرکدام از اینها چا کار میکنند کار سختی پس خودتون دونه دونه امتحانشون کنید.
(getsystemcolors(flag
دستور بالا هم رنگ کلمپوتر رو میگیرد

popup menu

2008-12-05T21:45:00.000-08:00

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

اول یک منو درست کنید.

بعد visible اون رو false کنید.

(activex.poumpmenu(menu as object,flgas,x,y,defult menu

کد بالا برای اضافه کردن منو به یک ابزار است.

activex همون ابزاری هست که میخواهید منو رو به اون اضافه کنید.

menu as object که در این قسمت فقت اسم منو رو بنویسید.

بقیه هم فدا سرتون.

(private sub form1_mousedown(button as integer,shift as integer,x as string,y as string

If button=2 Then

form1.proumpmenu file

END IF

End Sub

LoadKeyboardLayout

2008-12-04T21:33:00.000-08:00

برای عوض کردن زبان ویندوز از این api استفاده میکنیم .

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

و یک flag

Private Const LANG_FARSI As Long = &H29

()private sub form1_load
LoadKeyboardLayout "00000429", 1
end sub

کد بالا زبان keyboard رو از انگلیسی به فارسی تغییر میده.

exitwindowex

2008-12-04T14:48:00.000-08:00

امروز یه کد جالب میخوام بذارم که به وسیله ی اون میشه کارهای زیر رو انجام داد .

1- shut down

2- restart

3-log off

برای این کار نیاز به چهار فلگ و یک api داریم .

حالا api viewer رو بیارید و کد exitwindowex رو به دست بیارید .

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal_ dwReserved As Long) As Long

و flag های زیر.

EWX_FORCE

EWX_SHUTDOWN

EWX_REBOOT

EWX_LOGOFF

Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

حالا به کدهای زیر توجه کنید .

(ret&=exitwindowsex(EWX_FORCE + EWX_SHUTDOWN

(ret&=exitwindowsex(EWX_FORCE + EWX_LOGOFF

(ret&=exitwindowsex(EWX_FORCE + EWX_REBOOT

توجه : EWX_FORCE برای دستوری کردن و عملی کردن به کار میرود .

swap mouse button

2008-11-24T10:27:00.000-08:00

همان طور که از اسم این api مشخص هستش برای عوض کردن راست کلیک و چپ کلیک به کار میره.
اول کد اون رو تو general برنامه کپی کنید.

Private Declare Function SwapMouseButton Lib "user32.dll" (ByVal bSwap As Long) As Long

کد زیر چپ کلیک و راست کلیک رو عوض میکنه

SwapMouseButton 0

کد پایین راست کلیک و چپ کلیک رو به حالت عادی در میاره .

swapmousebutton 1

text saver

2008-11-22T00:51:00.000-08:00

امروز اموزش برنامه ی text opener رو میذارم .

برای شروع یک تعریف کلی از یک فایل میکنم .

فایل ها از متن ها و حرف ها تشکیل میشن که به چند شیوه میشه اون هارو باز کرد (ما به بررسی شیوه های اصلی میپردازیم).

فایل ها به چند دسته تقسیم میشن . append , binary , input ,output , random

ما فقط کار با output رو یاد میگیریم .

همانطور که از نامش پیداست برای خروجی به کار میرود.(یعنی با این روش فقط میشه یک فایل رو ذخیره کرد)

برای اینکه یک فایل رو ایجاد کنید اول باید اون رو باز کنید.

حالا یک فرم شبیه فرم زیر درست کنید .

برای دکمه ی سیو کد زیر رو بنویسید .

از دستور open برای باز کردن فایل استفاده میکنیم.

بعد مسیر برنامه رو مشخص میکنیم.

بعد میگیم به چه صورت فایل رو باز کنه.

بعد هم شماره ی فایل رو که یک شماره یرای خود ویژوال بیسیک است رو ذکر میکنیم.

print #number,text

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

close #number

از دستور بالا برای بستن فایل مورد نطر.

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

2008-11-20T21:13:00.001-08:00

خوب کسانی که با api viewr آشنایی دارن اون رو باز کنن .
حالا عبارت mcisendstring رو تایپ کنن و کد مریوط به اون رو کپی کنید .
برنامه ی ما از یک فرم به نام form1 و دو دکمه به نام های command1 , command2 تشکیل شده .
حالا کد زیر رو که قبلا کپی کرده بودید داخل general مربوط به form1 کپی کنید.(نتیجه به شکل زیر خواهد بود)

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal_ lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long,_ ByVal hwndCallback As Long) As Long

برای command1 کد زیر رو بنویسید.

() private sub command1_click
mcisendstring "set cdaudiodoor open wait",0,0,0
End sub

برای command2 کد زیر رو بنویسید

()Private Sub Command2_Click
mcisendstring "set cdaudiodoor close wait", 0, 0, 0
End sub