این چند خط کد رو برای من توضیح بدید
سلام من دارم یک پینت از روی یک پینت دیگه درست میکنم دارم کدهای اون پینت رو میخونم و بعد از اینکه یاد گرفتم با یکمی ویرایش به دلخواه هودم میذارم تو برنمه خودم اگه میشه چند خط زیر رو برام توضیح بدید ممنون
کد:
Public Const Filters = "All picture files" & vbNullChar & "*.bmp;*.gif;*.jpeg;*.jpg" & vbNullChar & _
"Bitmap files" & vbNullChar & "*.bmp" & vbNullChar & _
"Jpeg files" & vbNullChar & "*.jpg;*.jpeg" & vbNullChar & _
"Gif files" & vbNullChar & "*.gif" & vbNullChar & _
"All files" & vbNullChar & "*.*"
:41::13:
کد:
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
لطفا بگید این فایل به چه دردی میخوره منظورم Kernel32 است ممنون
کد:
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
تو این خط بگید User32 چه کاری انجام میده
کد:
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal Y As Long) As Long
تو این خط هم gdi32 رو برای من توضیح بدید
تو خط پایین کارایی که کرده یکم نامفهومه اگه میتونید توضیح بدید کارم عقبه بالایی ها رو هم که جواب ندادید
کد:
Title = Mid(frmMain.lstFilters.List(i), 1, InStr(1, frmMain.lstFilters.List(i), ".exe") - 1)