بسم اله الرحمن الرحيم
وجدت طريقه فى أحد المنتديات عن جعل البرنامج يأخذ سيم أى ويندوز أثناء عملية البرمجه وعند نقله يظل البرنامج محتفظ بذلك السيم
وجربت ولكنى لم أوفق أضع بين أيديكم الطريقه لعل أحد الأخوه يستطيع أن يصحح أو يعرف ما المطلوب
ويفيد الجميع
أولا فى NOTEBADE نكتب
<?xml version="1.0" encoding="UTF-8" standalone="yes"?> <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> <assemblyIdentity name="Microsoft.Windows.Shell.explorer" processorArchitecture="x86" version="5.1.0.0" type="win32"/> <description>Windows Shell</description> <dependency> <dependentAssembly> <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="x86" publicKeyToken="6595b64144ccf1df" language="*" /> </dependentAssembly> </dependency> </assembly>
ثم نقم بحفظ الملف تحت مسمى
Project.exe.Manifest مع مراعاة كتابة أسم ملف EXE الخاص بمشروعك بدل من PROJECT
ثم نضع الملف EXE + الملف ذو الامتداد MANIFEST
فى فولدر وأحد
ثم نقوم بفتح المشروع قبل تحويله الى EXE ونضع موديول ونككتب الكود التالى
Public Type TagInitCommonControlsEx lngSize As Long lngICC As Long End Type Declare Function InitCommonControlsEx Lib "COMCTL32.DLL" (iccex As TagInitCommonControlsEx) As Boolean Public Const ICC_USEREX_CLASSES = &H200 Public Sub Main() On Error Resume Next Dim iccex As tagInitCommonControlsEx With iccex .lngSize = LenB(iccex) .lngICC = ICC_USEREX_CLASSES End With InitCommonControlsEx iccex Form1.Show End Sub
Sub Main بدلاً من الفورم الحالية إلى Startup Object قم بتغيير الــ
Project1 Properties ثم Project من قائمة
قم بتغيير FORM1.SHOW فى الكود السابق بإسم الفورم التى تريدها تظهر عند تشغيل الملف التنفيذى
exeحول البرنامج إلى
وضعه مع الملف ذو الامتداد MANIFEST وجرب
