آموزش فنون

pv — Wed, 08 Nov 2006 06:54:45 GMT

pv — Wed, 03 May 2006 16:57:17 GMT

http://www.2-spyware.com/file-mastoer32-dll.html

ممنون میشم نظرتون رو بدونم . در باب لینک بالایی

تكنيكهاي VB

pv — Wed, 19 Apr 2006 07:51:17 GMT

دوستان به احتمال زياد مي دونن كه چطور در حالت اجرا مي توان به يك فرم كنترل اضافه كرد. با استفاده از اين حالت و براي نوشتن برنامه هاي خاص مي توان كارهاي جالبي انجام داد ولي مشكل در كنترل كردن Event هاي اين كنترل هاست كه در حالت اجرا توليد ميشن. من قصد دارم در كد زير به شما نشون بدم كه چطور مي تونيد كنترل ها رو در زمان اجرا توليد كنيد و به Event هاي اونا بدون محدوديت تعدادشون جواب بدين.
ميدونيد كه با استفاده از Withevents در دستور Dim ميشه Event هاي يك Object رو هم كنترل كرد

Private WithEvents objectTemp As TextBox

ولي مسلمآ‌ براي تعداد مشخص كنترل ها ميشه اينكارو كرد و نه براي كنترلهايي كه تعداد اونا نامشخص هست. براي حل اين مشكل من از Subclassing استفاده كردم تا تمام پيغامهايي رو كه ويندوز به كنترل مي فرسته رو كنترل كنم و بعد اونا رو به پيغامهاي قابل فهم براي VB تبديل كردم. ابتدا فرض كنيد كدي شبيه كد زير دارم:

Option Explicit
Public WithEvents textboxTemp As TextBox
Dim aHwnd() As Long

Private Sub Form_Load()
'
Dim controlTemp As Control
ReDim aHwnd(1) As Long

Set controlTemp = Me.Controls.Add("VB.TextBox", "Test")
controlTemp.Visible = True
aHwnd(0) = controlTemp.hwnd
Call Hook(controlTemp.hwnd)
Call SetProp(controlTemp.hwnd, "objectPointer", ObjPtr(controlTemp))

Set controlTemp = Me.Controls.Add("VB.TextBox", "Test1")
controlTemp.Visible = True
controlTemp.Move 1000, 1000
aHwnd(1) = controlTemp.hwnd
Call Hook(controlTemp.hwnd)
Call SetProp(controlTemp.hwnd, "objectPointer", ObjPtr(controlTemp))
'
End Sub

Private Sub Form_Unload(Cancel As Integer)
'
Dim i As Byte

For i = 0 To UBound(aHwnd)
If aHwnd(i) Then
Call UnHook(aHwnd(i))
End If
Next
'
End Sub

Private Sub textboxTemp_Change()
Label1.Caption = textboxTemp.Text
End Sub

در Form_Load Event, دو تا Textbox به صورت Dynamic به VB اضافه شدن. بعد شروع به Subclassing ميشن و بعد آدرس هر كنترل رو در حافظه همراه خود كنترل نگه داشته ميشه. حالا فقط كافيه پيغامها رو بگيريم بعد به كنترل از طريق آدرسي كه ازش نگه داشته بوديم دسترسي پيدا كنيم و پيغام ها رو به VB بسپريم.

'in a module
Public Declare Function SetProp Lib "user32" Alias "SetPropA" (ByVal hwnd As Long, ByVal lpString As String, ByVal hData As Long) As Long
Public Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hwnd As Long, ByVal lpString As String) As Long
'
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _
(ByVal lpPrevWndFunc As Long, _
ByVal hwnd As Long, _
ByVal Msg As Long, _
ByVal wParam As Long, _
ByVal lParam 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 Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(Destination As Any, _
Source As Any, _
ByVal Length As Long)

Private Const GWL_WNDPROC = -4
Private lpPrevWndProc As Long

Public Sub Hook(ByVal hwnd As Long)
lpPrevWndProc = SetWindowLong(hwnd, GWL_WNDPROC, _
AddressOf WindowProc)
End Sub

Public Sub UnHook(hwnd)
Dim lngReturnValue As Long
lngReturnValue = SetWindowLong(hwnd, GWL_WNDPROC, lpPrevWndProc)
End Sub

Function WindowProc(ByVal hw As Long, _
ByVal uMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

WindowProc = CallWindowProc(lpPrevWndProc, hw, _
uMsg, wParam, lParam)

Dim objectTemp As Object
Call CopyMemory(objectTemp, GetProp(hw, "objectPointer"), 4)

If Not objectTemp Is Nothing Then
Set Form1.textboxTemp = objectTemp
Call CopyMemory(objectTemp, 0, 0)
End If

End Function

با استفاده از اين تكنيك ميتونيد پروژه ها يا ActiveX ها قدرتمندي كه قادر هستند در زمان اجرا كنترل به خودشون اضافه كنند و به پيفامهاي اونا جواب بدن رو توليد كنيد.

pv — Thu, 23 Mar 2006 12:45:37 GMT

منتظر نسخه جدید x27 باشيد.

تاریخچه زبان ویژال بیسیک(از آرشیو)برای مبتدیان

pv — Sun, 29 Jan 2006 05:59:28 GMT

با شناختی که از تاریخچه زبان ویژوال بیسیک بدست می آورید راحت تر می توانید از آن استفاده کنید.
شرکت مایکروسافت ویژوال بیسیک را براساس یک زبان برنامه نویسی به نام بیسیک که برای مبتدیان نوشته شده ساخت.
زبان ویژوال بیسیک بیشتر از 35 سال به اشکال مختلف رایج بوده. در واقع طراحان این زبان می خواستند یک زبان برنامه نویسی برای استفاده مبتدیان طراحی کنند.برنامه نویسان جدید می توانند با استفاده ازبیسیک به سرعت به شرع برنامه نویسی های حرفه ای با زبان های cobol .fortran . assembler
در مقایسه به بیسیک کار بیشتری نیاز داشت.
طبیعت بصری ویژوال بیسیک
دیدید که ویژال بیسیک 6 چیزی بیشتر از یک زبان برنامه نویسی است. از ویژوال بیسیک در نام آن visualبه معنای بصری یا محیط نمایشی . است.
کار با ویژال بیسیک 6
در اولین بار که برنامه را باز می کنید با پنجره new project روبه رو می شوید در این قسمت
نوع فورم خود را انتخاب کرده ماننده activex|standardو....
این پنجره شامل 3 قسمت بوده
New:در این پنجره امکان انتخاب فورم مورد نظر شما امکان پذیر می باشد.
Existing:در این پنجره امکان انتخاب project های مختلف که در مکانهای مختلف ذخیره یا... امکان انتخاب می باشد.
Recent:در این قسمت هر projectرا که ذخیره می کنید به صورت دسته ای جمع می شود حالا یک فایلی
در درایو Dباشد حالا چه در درایو c.
DON.T SHOW THIS DIALOG IN THE FUTURE
این قسمت جلو گیری از باز شدن پینجره NEW PRIJECT می باشد.
HELP:از این قسمت وقتی امکان استفاده می باشد که نرم افزار MSDN را نصب کرده باشید.
معرفی قسمت های بیسیک.
نوار ابزار:TOOLBAR:نوار ابزار VB زیر منو قرار دارد. ویژال بیسیک کلا چهار نوار ابزار دارد:
STANDARD:این نوار ابزار زیر منو ظارهر است و پیش فرض است.
DEBUG:وقتی از ابزارهای رفع اشکال برای ردیابی و اصلاح اشکالات استفاده می کنید. این نوار ابزار ظاهر می شود.
EDIT:این نوار ابزار برای تنظیم کردن اشیاء بر روی فرم می باشد
FORM EDITOR:این نوار ابزار برای تنظیم کردن اشیاء بر روی فرم می باشد.
جعبه ابزار:TOOLBOX:
در این پنجره تمامی شی های مختلف برای کار بر روی فرم هستند و حتی امکان اضافه کردن به این پنجره ها می باشد.
پنجرهPROJECT:در این پنجره فرم های انتخابی شما با هر گروه و هر فرم مشخص شده است.
پنجرهPROPERTISE:
این پنجره امکان تنضیمات لازم برای هر شیئی را مشخص می کنید.

بعضی از خواص فرم در ویژال بیسیک 6

pv — Sun, 29 Jan 2006 05:51:43 GMT

1-appearance =این خاصیت مشخص میکند که فرم به صورت سه بعدی (3D) باشد یا تخت (flat)

2-Back Color=این خاصیت رنگ زمینه فرم را مشخص میکند

3-Border style=این خاصیت اگر بر روی(0-None)باشد فرم را بدون حاشیه و دکمه های مینیمایز و ماکسیمایز وبستن نشان میدهد و کاربر نمی تواند آن را تغییر اندازه بدهد و اگر بر روی(1-Fixed single)باشد فرم را با حاشیه و دکمه بستن نشان میدهد و کاربر نمی تواند آن را تغییر اندازه بدهد و اگر بر روی(2-Sizable) باشد تمام دکمه ها و حاشیه فرم را نشان میدهد.

4-Icon=این خاصیت آیکون برنامه را مشخص می کند

5-Max button=این خاصیت فعال یا غیر فعال بودن دکمه ماکسیمایز را مشخص می کند

6- Min button=این خاصیت فعال یا غیر فعال بودن دکمه مینیمایز را مشخص می کند

7-Mouse icon=این خاصیت شکل نشانگر موس را تعیین می کند

8-Mouse Pointer=این خاصیت نوع شکل نشانگر موس را مشخص می کند مثل ساعت شنی یا دست شدن نشانگر

9-Movable=این خاصیت مشخص میکند که آیا کاربر اجازه دارد که فرم را جابجا کند یا نه

10-Picture=عکس زمینه فرم را مشخص می کند

11-ShowIn Taskbar=مشخص می کند که برنامه در تسکبار دیده شود یا نه

12-Startup position=محل قرار گرفتن فرم در هنگام شروع برنامه را مشخص می کند

13-Window state=نوع نمایش پنجره در هنگام شروع برنامه(مینیمایز/ماکسیمایز/نرمال)

روشن سازی و رفع سو تفاهم

pv — Thu, 15 Dec 2005 12:50:27 GMT

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

تنها نام مورد استفاده من علیرضا و گاهی اوقات no.h می باشد. که اگر سو استفاده ای از این نام ها در آینده با نام این بلاگ شد. من هیچ مسئولیتی را نمی پذیرم .این بلاگ صرفا جنبه آموزشی دارد و بعضا تمام مطالب این بلاگ از خودم نیست و مربوط به منابعی می شود که بعدا ذکر خواهم کرد .

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

با تشکر علیرضا .::.

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

Text1=Textbox

MultiLine=True

Scrollbars=2

Textbox=text2

CommandButton=Command1

Private Sub Command1_Click()

Text1=""

m = 999999999

For i = 1 To 9

For j = 1 To 9

Text1 = Text1 + Str(i) + ".." + Str(j) + "..:" + Str(i ^ j) + vbNewLine

If Text2 - (i ^ j) >= 0 Then

If m > Text2 - (i ^ j) Then

m = Text2 - (i ^ j)

s = Str(i) + Str(j)

End If

Next j

Next i

Text1 = Text1 + "Final::" + Str(m) + s

End Sub

بازدن F5 برنامه اجرا می شود . یک عدد کوچکتر از نه رقم را در text2 وارد کنید . و بر روی command1 کلیک کنید . برنامه در انتهای tex1 نزدیک ترین توان موجود با نماد تک رقمی و پایه تک رقمی به شما خواهد داد.

کاربرد:

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

منیع :

Http://www.pv.blogfa.com

آموزش برنامه نویسی ویژال بیسیک

نمایش یا عدم نمایش نشانگر موس

pv — Wed, 12 Oct 2005 15:06:14 GMT

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

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

نحوه استفاده از تابع

ShowCursor 1	نمایش نشانگر موس
ShowCursor 0	پنهان کردن نشانگر موس

لطفا سوالات خود را در بخش پرسش و پاسخ مطرح کنید

استفاده کاربردی از تابع Instr

pv — Sun, 02 Oct 2005 13:59:18 GMT

سلام دوستان , امروز می خوام یه مطلب کاربردی تو VB رو براتون بگم که شاید خیلی به کارتون بیاد این کد شاید براتون تو برنامه هایی که باید از ورودی مقدار خاصی رو بگیرید مثلا می خواهید از ورودی فقط یک مقدار عددی رو بگیرید و بعد اون رو تو محاسبات استفاده کنید و اگر کاربر مثلا در ورودی 788در12 را تایپ کنه برنامه Error میده خوب برای رفع این مشکل می شه از ورودی فقط عدد گفت یعنی در صورتی که کاربر فقط اعداد 0 تا 9 رو تایپ کنه در ورودی نمایش داده می شه این هم حلال این مشکل .

خوب این کد رو بهتر که در رویداد Keypress کنترل مورد نظر خود ( از جمله Textbox , Rich Textbox , Inputbox و ... ) بنویسید که به محض فشرده شدن هر کلید از سوی کاربر این قسمت چک می شود .

Private Sub TextBox_KeyPress(KeyAscii As Integer)
'=============================================
   Dim StrValid As String
   StrValid = "0123456789"
   If InStr(StrValid, Chr(KeyAscii)) = 0 Then
      KeyAscii = 0
End If
End Sub

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

1. تابع Instr : یک زیررشته را در یک رشته دیگر جستجو میکند و موقعیت آنرا در رشته بر می گرداند شکل کلی این تابع به صورت زیر است :

InStr([start, ]string1, string2[, compare])

قسمت	توضیحات
start	مکانی از رشته که جستجو باید از آنجا آغاز شود
string1	رشته اول
string2	رشته دوم
compare	مشخص کردن نوع مقایسه که بین دو رشته انجام میشود که خود بر سه نوع vbBinaryCompare و vbDatabaseCompare و vbTextCompare می باشد

به این مثال توجه کنید :

instr("visual basic Language","Language") ==============> عدد 14 برگردانده میشود

:: یک نکته و آن اینکه مواvدی که در شکل کلی این تابع در داخل [ ] قرار دارند اختیاری می باشند .

2. تابع Chr : این تابع کاراکتر معادل کد اسکی یک مقدار را بر می گرداند

KeyAscii : آرگومانی است که کد اسکی کلیدی از صفحه کلید را که فشرده شده بر می گرداند.

چطور تو Visual Basic کیبرد فارسی بشه

pv — Sun, 02 Oct 2005 13:58:28 GMT

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

برای اینکار اول باید از یه API استفاده کرد . تابع LoadKeyboardLayout رو از کتابخانه User32 به صورت زیر فراخوانی کنیم :

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

بعد از برای فراخوانی تابع باید تابع را در رویداد مورد نظر فراخوانی کرد مثلا من تابع رو وقتی که فرم برنامه load شده فراخونی کردم :

LoadKeyboardLayout "00000429", 1 ' 00000429 :::::> For Farsi Keyboard

برای اینکه بعد از Unload شدن فرم برنامه زبان ویندوز به انگلیسی برگردد کد زیر را میتوانیم در رویداد unload بنویسیم

LoadKeyboardLayout "00000409", 1 ' 00000429 :::::> For ٍEnglish Keyboard

:: در ضمن اگر مایل به دیدن کد سایر زبانها هستید یه سری به آدرس زیر در رجیستری ویندوز بزنید .

HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Keyboard Layouts