فایل کمکی

[keylogger]

با سلام خدمت دوستان من بعضی برنامه هارو دیدم درونش CommonDialog به کار رفته ولی هیچ فایل OCX کنار برنامه وجود نداره اگه میشه توضیح بدید

[alih110]

بفرما دوست عزیز :لبخند: :کف: :متعجب: :تشویق:



ماژول :


Public Const OFN_ALLOWMULTISELECT = &H200
Public Const OFN_DONTADDTORECENT = &H2000000
Public Const OFN_ENABLESIZING = &H800000
Public Const OFN_EXPLORER = &H80000
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_LONGNAMES = &H200000
Public Const OFN_NODEREFERENCELINKS = &H100000
Public Const OFN_NOLONGNAMES = &H40000
Public Const OFN_NONETWORKBUTTON = &H20000
Public Const OFN_NOVALIDATE = &H100
Public Const OFN_READONLY = &H1
Public Const OFN_SHOWHELP = &H10
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_PATHMUSTEXIST = &H800
Public Const OFN_CREATEPROMPT = &H2000
Public Const OFN_SHAREAWARE = &H4000
Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (psavefilename As OPENFILENAME) As Long

Public IntlblTextIndex As Integer
Public IntTemp As Long
Public IntUndo As Long
Public BlnClickRedo As Boolean
Public BlnMouseIsDown As Boolean
Public StrCommand As String
Public IntCountX As Long



ذخیره کردن :


On Error Resume Next
Dim OFName As OPENFILENAME

OFName.lStructSize = Len(OFName)
OFName.hwndOwner = Me.hwnd
OFName.hInstance = App.hInstance
OFName.lpstrFilter = "Bitmap Files (*.bmp)" + Chr$(0) + "*.bmp" + Chr$(0) + "JPEG Files (*.jpg)" + Chr$(0) + "*.jpg" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0)
OFName.lpstrFile = Space$(254)
OFName.nMaxFile = 255
OFName.lpstrFileTitle = Space$(254)
OFName.nMaxFileTitle = 255
OFName.lpstrInitialDir = App.Path
OFName.lpstrTitle = "Save Picture"
OFName.flags = OFN_EXPLORER

If GetSaveFileName(OFName) Then
If OFName.nFilterIndex = 1 Then
StrPasvand = ".bmp"
ElseIf OFName.nFilterIndex = 2 Then
StrPasvand = ".jpg"
End If
StrTempName = Left(Trim$(OFName.lpstrFile), Len(Trim$(OFName.lpstrFile)) - 1) & StrPasvand
SavePicture Me.Image, StrTempName
End If


فراخوانی :



On Error Resume Next
Dim OFName As OPENFILENAME

OFName.lStructSize = Len(OFName)
OFName.hwndOwner = Me.hwnd
OFName.hInstance = App.hInstance
OFName.lpstrFilter = "åÑ æäå ÝÇíá ÊÕæíÑí" + Chr$(0) + "*.bmp;*.dip;*.jpg;*.gif;*.wmf;*.emf;*.ico;*.cur" + Chr$(0) + "åѐæäå ÝÇíá (*.*)" + Chr$(0) + "*.*" + Chr$(0)
OFName.lpstrFile = Space$(254)
OFName.nMaxFile = 255
OFName.lpstrFileTitle = Space$(254)
OFName.nMaxFileTitle = 255
OFName.lpstrInitialDir = App.Path
OFName.lpstrTitle = "Open Picture"
OFName.flags = OFN_EXPLORER
If GetOpenFileName(OFName) Then
t = Trim$(OFName.lpstrFile)
Me.PaintPicture LoadPicture(t), 0, 0, Me.ScaleWidth, Me.ScaleHeight ', 0, 0, LoadPicture(T).Width, LoadPicture(T).Height
OldX = -1
OldY = -1
End If


پروژش هم میتونی دانلود کنی !!!!! :تشویق: :تشویق:

[keylogger]

مرسی دوست عزیز فقط پرویی نباشه میشه میشه ماله دوتا دیگه هم بزارین
MSCOMCTL.OCX
و
MSINET.OCX

[alih110]

مرسی دوست عزیز فقط پرویی نباشه میشه میشه ماله دوتا دیگه هم بزارین
MSCOMCTL.OCX
و
MSINET.OCX

متوجه نشدم ؟

[keylogger]

میتونی سورس این دوتا فایل رو هم بزاری یک چیز دیگه این اون سورس های بالا من وقتی میخوام یک آیکون انتخاب کنم آیکون میشه بکگراند فرم و یک نکته دیگه این که نمیتونم فیلتر فایل تعیین کنم
دوست عزیز میتونی سورسی که گذاشتی رو ویرایش کنه و تو تنظیمات فیلتر رو و TITLE رو واسه لود آیکون بزاری و یک نکته دیگه اینکه تصویر نیاد بک گراند فرم

[alih110]

بفرما !!!!!!!!!!!!!

[keylogger]

دوست عزیز اگه میشه سورسی داری که ShowColor باشه و راجع به
MSCOMCTL.OCX باید بگم سورس ListView داری
و MSINETOCX اگه سورسی داری بزار