200 تابع API

[حامد مصافی]

من یه برنامه برای معرفی توابع API نوشتم �ه می تونین اینجا دانلودش �نین
فقط میمونه چند تا ن�ته

- برای صرفه جویی در حجم فایل چند تا از فایل های عمومی رو ضمیمه نکردم ، پس بهتره این برنامه رو روی ویندوزی که وی بی داره نصب کنین

- اگه در مراحل نصب یا کارکرد برنامه یا در رابطه با کار با توابع API مشکلی پیدا کردین به من اطلاع بدین


دانلود کنید (http://h1.ripway.com/BlackDal/Programs/ApiaSetup.exe)

[Hamedm]

سلام

BlackDalجان ممنون از زحماتت. :flower: :flower: :flower: :تشویق:

موفق باشید و پرتوان

[علی جباری]

آقای BlackDal خیلی خیلی زحمت کشیدی بسیار جالب و کارآمد بود ممنون
:flower: :flower:

[M-Gheibi]

:strange:
http://img238.exs.cx/img238/3844/jeefo1bs.jpg
BlackDal من فایل ضمیمه رو حذف کردم. لطف کنید مجددا فایل رو چک کنید اگر ویروس داشت که ... ولی اگه نداشت مجددا فایل رو ارسال کنید. در صورتی که من اشتباه کردم شرمندم.

[sadegi]

خیلی ممنون از فایلی که برامون گذاشتی
فقط یه مشکل هست و اون هم اینه که مثله این که فایلتون virus داره (w32-jeefo)
وقتی فایلتون رو باز کردم anti virus بالا اومد گزارش ورود یه virus رو داد :mrgreen: :mrgreen:

[علی جباری]

برای من هم پیغام ویروس آمد ولی با مک آفی میشه اونو clean کرد

[حامد مصافی]

:strange: :strange: :strange: :strange:

بابا من این برنامه رو خودم نوشتم و پکیج کردم
اینم اسکن با نورتون 2005

[M-Gheibi]

شما چه فایلی رو اسکن کردید؟ فایل زیپ٬ فایل ستاپ٬ فایل اجرایی برنامه
مشکل از آخرین مورد هست.

[حامد مصافی]

شما چه فایلی رو اسکن کردید؟ فایل زیپ٬ فایل ستاپ٬ فایل اجرایی برنامه
مشکل از آخرین مورد هست.من فایل اجرایی برنامه رو اسکن کردم

[M-Gheibi]

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

[حامد مصافی]

آنتی ویروس ممکنه در اثر شباهت یک فایل اجرایی به یک ویروس خاص دچار اشتباه بشه
شما فایل جدید رو که آپلود کردم چک کنید

[Behrouz_Rad]

Your Program has a virus
i check it
all comments is accept
try again with a clean file
thanks

[M-Gheibi]

این فایل مشکلی نداره :موفق:

[R_BABAZADEH]

ممنون :flower:

[armin_izer]

ممنون

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

[hbi]

ممنون
:تشویق: :تشویق: :تشویق:

[حامد مصافی]

سلام دوستان
نسخه جدید با 200 تابع رو می تونین دانلود کنین

[hadi2345]

:flower:

[sasanhe]

با عرض پوزش .
این فایل برای من قابل دانلود نیست . اگر ممکن بود برای من ایمیل کنید sasan_he@yahoo.com
با تشکر

[حامد مصافی]

آقای حیدری براتون ارسال کردم

[niloufar]

سلام
از زحمت شما ممنونم
راستش خیلی ربطی ندارد ولی می خواستم بدانم چگونه می توان فرمی مثل فرم About همین برنامه شما ساخت.

[حامد مصافی]

سلام
از زحمت شما ممنونم
راستش خیلی ربطی ندارد ولی می خواستم بدانم چگونه می توان فرمی مثل فرم About همین برنامه شما ساخت.

جون این سوال مربوط به API است پس به همین تاپیک ربط دارد
ابتدا کد زیر را در یک ماژول کپی کنید


Option Explicit

Private Const GWL_EXSTYLE = -20
Private Const LWA_COLORKEY = 1
Private Const LWA_ALPHA = 2
Private Const WS_EX_LAYERED = &H80000

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 GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" ( _
ByVal hWnd As Long, _
ByVal cKey As Long, _
ByVal bAlpha As Long, _
ByVal dwFlags As Long) As Long

Public Sub Transpart(hWnd As Long, ByVal TranspartLevel As Byte)
Dim OldLong As Long
OldLong = GetWindowLong(hWnd, GWL_EXSTYLE)
Call SetWindowLong(hWnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(hWnd, 0, TranspartLevel, LWA_ALPHA)
End Sub

Public Sub FadeForm(frm As Form, _
Optional FadeIn As Boolean = True, _
Optional Speed As Byte = 1)

Dim I As Long
frm.Enabled = False

frm.Visible = True
If FadeIn Then
Transpart frm.hWnd, 0
For I = 0 To 255 Step Speed
DoEvents
Transpart frm.hWnd, I
Next
Else
For I = 255 To 0 Step -Speed
DoEvents
Transpart frm.hWnd, I
Next
End If
frm.Enabled = True
End Sub



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

[احمد ذبیحی]

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

[niloufar]

:flower:
ممنون

[davood110]

من که نتونستم این فایل را ببینم و دانلود کنم:متفکر: :اشتباه: آقا لطف کن این را برای من بفرست روی میلم.
دمت گرم .
davood_moj1360@yahoo.com

[m_zargarnia]

آقا محبت کنید برای من هم بفرستید .
Masoud378@yahoo.com

[حامد مصافی]

از اینجا (http://h1.ripway.com/BlackDal/Programs/ApiaSetup.exe)دانلودش کنید


(http://http://h1.ripway.com/BlackDal/Programs/ApiaSetup.exe)

[sohrab o]

ممنون از شما

[Milad Mohseny]

با تشکر از شما

[davood110]

آقا دمت گرم تشکر:تشویق:

[sjj]

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

[حامد مصافی]

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

[yavari]

سلام

دست اقا حامد گلمون درد نکنه :تشویق: :تشویق: :تشویق:

بازم ممنون

[Payman62]

عالیه. ما مشتاقانه منتظریم.

[perfeshnal]

بابا گل کاشتی عالی بود

[perfeshnal]

سلام
می خواستم یک سوال درباره برنامه بپرسم که اون خاصیتی که مثل خاصیتSplitter می تونستی اندازه بین ListBox ها رو خودت تنظیم کنی چطوری درست کرده بودی اگر امکان
داره برای من توضیح بدهید . خیلی ممنونم

[kronos]

عالیه عالیه عالی بود

[perfeshnal]

دوستان جواب ما رو کسی نداره بده :گریه: :گریه: :گریه:

[حامد مصافی]

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

اینم جواب شما :چشمک:

[Payman62]

blackdal بلاخره برگشتی پای کامپیوتر خودت. این برنامه api هارو آپدیت نمیکنی؟

[perfeshnal]

سلام
آقای BlackDal از شما ممنونم

[perfeshnal]

فقط یک سوال داشتم چطوری باید با این UserControl کار کنم.
خیلی ممنونم

[حامد مصافی]

بذارش روی فرم و دو تا کنترل بنداز روش

خصوصیاتشم بررسی کن
به نظر من که استفادش آسونه

[mohammadgij]

سلام
من روی دستگاه VB نصب نشده.
اما برنامه شما رو نصب کردم اجرا نمیشه. از یه OCX ایراد میگیره
MSADODC.OCX
چی کار کنم؟؟؟

[حامد مصافی]

قبلاً گفتم این برنامه رو روی سیستمی که وی بی داره نصب کنید

[majjjj]

قبلاً گفتم این برنامه رو روی سیستمی که وی بی داره نصب کنید
سلام
میدونم که مدتها از این تایپیک گزشته اما ایا این برنامه اپدیت نشده؟؟