APIهای ویندوز و استفاده آنها در VB6

[مهدی مهری]

ایجاد حالت های مختلف انیمیشنی بر روی فرم در VB6

هدف : این تابع حالت های انیمیشنی بر روی فرم یا پنجره یا قسمت های دیگر میگزارد.
مبدا : User32.dll

Const AW_HOR_POSITIVE = &H1
Const AW_HOR_NEGATIVE = &H2
Const AW_VER_POSITIVE = &H4
Const AW_VER_NEGATIVE = &H8
Const AW_CENTER = &H10
Const AW_HIDE = &H10000
Const AW_ACTIVATE = &H20000
Const AW_SLIDE = &H40000
Const AW_BLEND = &H80000
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean

Private Sub Command1_Click()
 AnimateWindow Text1.hwnd, 5000, AW_HOR_POSITIVE    'Or AW_HIDE
End Sub

Private Sub Command2_Click()
 AnimateWindow Text1.hwnd, 5000, AW_VER_POSITIVE Or AW_HIDE
End Sub

Private Sub Form_Load()
 Text1.Visible = False
 AnimateWindow Me.hwnd, 5000, AW_CENTER   'Or AW_ACTIVATE
 'AnimateWindow Me.hwnd, 5000, AW_VER_POSITIVE Or AW_HOR_NEGATIVE
 Me.Cls
End Sub

Private Sub Form_Unload(Cancel As Integer)
 AnimateWindow Me.hwnd, 2500, AW_VER_POSITIVE Or AW_HOR_NEGATIVE Or AW_HIDE
 Set Form1 = Nothing
End Sub

[مهدی مهری]

کپی یک فایل با امکان تغییر نام و پسوند در VB6

هدف : این تابع یک فایل را د محل دلخواه و با نام و پسوند مختلف کپی میکند
مبدا : Kernel32.dll

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub Form_Load()
 
 CommonDialog1.DialogTitle = "Choose File"
 CommonDialog1.CancelError = False
 CommonDialog1.ShowOpen
 
 CopyFile CommonDialog1.FileName, "C:\ff.bmp", 0
 CopyFile CommonDialog1.FileName, "C:\ff.jpg", 0
 CopyFile CommonDialog1.FileName, "C:\ff2.jpg", 0
 CopyFile CommonDialog1.FileName, "C:\ff", 0
End Sub

[فرشاد اکرمی]

پاسخ : APIهای ویندوز و استفاده آنها در VB6

مهدی جان خسته نباشی
یه چند تایی نرم افزار وجود داره که همه این apiهارو لیست کردن به همراه توضیحات کافی
کارکردن باهاشون راحتتره
براتون پلود کردم : http://rapidshare.com/files/395486795/api.zip.html

[مهدی مهری]

پاسخ : APIهای ویندوز و استفاده آنها در VB6

به همراه توضیحات کافی

ممنون فرشاد جان ولی این انگلیسیه :redface:

ما فارسیش رو اینجا میگیم :mrgreen: