مشكله microsoft common dialoge

انسخ الملف

Comdlg32.ocx

ثم انقله الي مجدل ال system

ثم شغل الامر التالي

من Run من زر Start

Regsvr32 C:WINDOWSSYSTEMComdlg32.ocx

او قم بتسجيله ثانية من

Tools

Activex Control

بعد نقله الي مجلد ال System

اعمل سيت اب لقاعدة البيانات خاصتك بواسطة برامج عمل السيت اب وما اكثرها ،واضف اليها الملفات الضرورية لفيجوال بيسك هذه الملفات موجودة في صفحة البدء في موقع المشاغب http://www.absba.com/

السلام عليكم

بدايه اشكر لكم حسن تعاونكم

ولقد فعلت كل ما قلتموه لي وكانت النتيجه بعض التحسن حيث ان الفورم تفتح الان ولكني عندما اضغط علي زر امر لعمل browse وذلك لايجاد مسار الملف يعطيني هذه الرساله

run time error 429

ActiveX component can not creat object

اعتقد ان الحل موجود علي هذا الرابط

والسؤال للاخ ابو البشاير

http://arabteam.nicmatic.com/vb/showthread...p?threadid=4604

اعتقد ان الاخ ابو البشاير مر بكل مراحل المشكله مثلي ولكن لم ينجح الكود الذي كتبه ابو حمود مثلما نجح معه

ولكن لي رجاء من الاخوه ابو حمود وابو البشاير ومحسن محمد

ان يتصدقوا علينا ويضعوا المثال الذي يترجم كود ابو حمود لانه لايعمل

والمثال كما في الرابط واسمه shell.zip

وجزاكم الله خيرا

طريفة أخري بدون ال OCX

و هي تعتمد علي ال DLL المناظر لل OCX وهو يتم تحميله دائما مع الويندوز أو الاوفيس و ستجده علي كل الاجهزة غالبا

ضع صندوق نص فى الفورم و سمه text1

'Declarations
Private 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

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Sub Text1_DblClick(Cancel As Integer)
    Dim ofn As OPENFILENAME
    ofn.lStructSize = Len(ofn)
    'ofn.hwndOwner = Me.Hwnd
    'ofn.hInstance = App.hInstance
    ofn.lpstrFilter = "Mdb Files (*.mdb)" + Chr$(0) + "*.mdb" + Chr$(0) + "Mde Files (*.mde)" + Chr$(0) + "*.mde" + Chr$(0)
        ofn.lpstrFile = Space$(254)
        ofn.nMaxFile = 255
        ofn.lpstrFileTitle = Space$(254)
        ofn.nMaxFileTitle = 255
        ofn.lpstrInitialDir = CurDir
        ofn.lpstrTitle = " MT Software "
        ofn.flags = 0
        Dim A
        A = GetOpenFileName(ofn)
        If (a) Then
                Me![C_NAME4] = Trim$(ofn.lpstrFile)
                'MsgBox "File to Open: " + Trim$(ofn.lpstrFile)
        Else
                MsgBox "Cancel was pressed"
        End If
    Exit Sub

CmdBrowseErrHandler:
MsgBox Str(Err.Number) + Err.Description

Exit Sub
End Sub

شكرا اخي لسرعه الرد ولكنك لم توضح اين اضع هذا الكود

ارجوا ان لا اكون قد اثقلت عليك ولكن رجاء التوضيح بمثال

ومازلت اكرر طلبي السابق حتي تعم علينا الفائده من اخي ابو بشاير

وبذلك يكون عندنا اكثر من حل (اليس هذا رائع!)

طريقه باستخدام ocx

والاخري ب dll

,وشكرا لك اخي مصراوي

المثال المطلوب

http://mypage.ayna.com/mtarafa/OpenDialog.zip

مع الشكر لزميلنا طارق حنيدق الذي أراني هذه الطريقة سالفا

الكود عمل بنجاح تام

شكرا لك اخي مصراوي

بارك الله فيك