أي سؤال بالفيجوال بيسك أنا جاهز

^

^

^

مرحبااا ميدووو ..

اسمحلي اجاوبك بالنيابة عن الااخ :)

المسألة مررة سهلة ..

من نافدة الخصائص حقت الكوماند ..

تختار خاصية اسمها picture

تختار الصورة اللي تبيها طبعاا ..

بعدين تروح لخاصية اسمها style

و تختار Graphical

Thats all ...

أتمنى أكووون أفدتك ..

و خففت عن اخونا شوي :)

<-- مبتدأة و تحب تتفلسف

بسم الله و الحمد لله

ممكن أخي دروس في كيفية عمل التقارير باستخدام الكريستال ريبورت بقواعد الاكسس مع ملاحظة جعل التقرير مرن حسب اختيار المستخدم

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

السلام عليكم ورحمة الله وبركاته

اخي العيساوي بعد التحيه والسلام

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

عندي 3 اسئله

1 طريقة عمل نسخه احطياطيه لقاعدة بينات اكسس وكيفية عمل صيانه لها وكفية مسح البينات من داخلها يعني تفرمتها عشان مثلا كل سنه لها ميزانيتها وبيناتها الجديدة

2 لو تعرفلي دي بي جرد ياخذ البينات من اليمين لليسار بس يكون في امكانية تعديل العناوين لان الام اس فلكس ياخذ العناوين من الداتا زي ما هيه وانا اكتبها دايم رموز StdNO Stdname وهاكذا وشكلها مو حلو واذا اخدانا داتا باوند جرد تلاقيها من اليسار لليمين وحوسه

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

داتا كنترول والعيب في هذا الكود انه لا يتعرف علي مكان الداتا من الابلكيشن باث (app.path) مسار البرنامج

وانما ياخذ المسار كاملا من مكان تواجد الداتا كما هوا واضح في الكود الشئ الذي سوف يتسبب فس مشكلة عند تنصيب البرنامج علي جهاز اخر

والمطلوب هوا ان يقوم الكودد بتفريغ الجدول من قاعدة البينات من موقع App.path

مسار البرنامج

Dim DB1 As Database
Set DB1 = OpenDatabase("D:\الفيجول بيسك\toolpar\MainActions.mdb")
DB1.Execute "delete * from TempTap1"
xGrid1.Refresh

وصدقني انا ما سئلت الاسئله ذي الا علي اساس اني شفت شغلك وعرفت انك متمكن

واتمني اشوف شغلك معي وتثبت لي انه متمكن كمان

ولك خالص شكري

اختكم الحســـــــــــــــــــــــــــــــــــــــــــناء

اقتباس

General

Dim word1 as object

Form load

Set word1=createobject (“word. Application”)

Open new document

Word1. Documents.add

Save

Word1. Active document. Saves (“c:\test.doc”)

Close document

Word1. Active document. Close

Close word

Word1.quit

Open old document

Word1.documents. Open (“c:\test.doc”)

Write on document

Word1. Selection.TypeText Text: ="text1.text"

Print

Word1.print

PrintPreview

Word1. PrintPreview

لقد حاولت ولم اتمكن من التشغيل يبدو ان هناك نقطة لم افهمها ؟؟؟؟

الرجاء التوضيح ....

وشكراً

السلام عليكم

سؤالي يا استاذي الجليل

اريد لو سمحت طبعا

اريد الطريقة التي اجعل بها البرنامج بعمل مع الوندز

من غير الكود الذي ينقل البرنامج الي programs>>startup

ولك من الود و الاحترام

ابراهيم الطيب

السودان الخرطوم

الحسناء كتب:

الابلكيشن باث (app.path) مسار البرنامج

وانما ياخذ المسار كاملا من مكان تواجد الداتا كما هوا واضح في الكود الشئ الذي سوف يتسبب فس مشكلة عند تنصيب البرنامج علي جهاز اخر

والمطلوب هوا ان يقوم الكودد بتفريغ الجدول من قاعدة البينات من موقع App.path

مسار البرنامج

Dim DB1 As Database
Set DB1 = OpenDatabase("D:\الفيجول بيسك\toolpar\MainActions.mdb")
DB1.Execute "delete * from TempTap1"
xGrid1.Refresh

ستم تعريف مسار قاعدة البيانات بهذا الشكل :

Dim DB1 As Database
Set DB1 = OpenDatabase(App.Path & "\MainActions.mdb")

إلى الأخت مبرمجه متبرمجه :)

أول شي الdo while

بتكتبي do while not rs.eof

يعني ضلك إعمل لوب وإرجع للكود من الdo وحتى loop لما يتحقق الشرط وهو إنو الجدول rs مايصل للنهايه ولازم بهاي الحاله تخلي الجدول يتحرك فيه الكيرسر rs.movenext

فلو بدنا نعد كم عدد الحقول المدخله في الجدول بنكتب

rs.movfirst
يعني حول الكيرسر بالخليه الأولى 
do while not rs.eof
لازم مايصل أكثر من نهايه الداتا أو الخلايا بالجدول 
rs.movenext
الكيرسر تتحول إلى التالي مشان يتنفذ الشرط وهو إنو يصل للنهايه في الخلايا 
loop
إرجع إذا ماتنفذ الشرط

أما الfor

بدك تعرفي متغير وتحكي إنو خاد المتغير رح يكون إله قيمه من 1 إلى 10 مثلا مشان بدك تكتبي الأرقام

for i = 1 to 10

print i

next i

ما بعرف إذا هاد الشرح كويس أو لا بس أنا متأكد إنو مو كويس :)

بباي

إلى الأخ ميدو

أنا فهمت شو بدك مش مثل ماحكت الأخت مبرمجة متبرمجه

بتقدر تحط image & 2Pictuer

pictuer1 = 1.gif

pictuer2=2.gif

form_load 
image1=pictuer1

image1_mousemove
image1=pictuer2

form_mousemove
image1=pictuer1

وفي كنترول أنا عملته بوخد ثلاث صور وصوتين الصورة الأولى للإفتراضي والتانيه لما تجي الماوس على الكوماند والتالته لما تضغط على الكوماند والصوت الأول لما تجي الماوس على الكوماند والتاني لما تضغط على الكوماند

بس مو معي الحين رح أحطه قريبا على المنتدى

وشكرا

إلى الام الطيب

أنا وضعت في المنتدى مدييول مشان تحط قيمه داخل الريجيستري وفي مثال معاه روح شوفه بس توخده بتروح على الريجيستري على هذا الباث

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

وبتحط سترينج فاليو string value وبتخلي إسمها بإسم برنامجك وقيمتها هوه الباث تبع برنامجك

وشكرا

اخي الكريم بسام bastr3

السلام عليكم ورحمة الله وبركاته

جزاك الله خيرا علي جهدك ومحاولتك للإفادة اعانك الله وجعله في ميزان حساناتك

عندي سؤال طرحته على المنتدي ولم يرد علي احد

اريد ان أقرأ السيريال نمبر الخاص بالهارد ديسك والذي يظهر علي الدوس بأمر Vol اريد ان اقرأه من داخل الVB دون الدخول علي الدوس

وذلك لأستخدمه في الحماية

وإيضا اذا عندك طريقة تدلني بيها علي الحماية يبقي جزاك الله خير

أخي العزيز وأخواني الأعزاء

بتمنى يكون عنا شي إسمه منطق وفهم وذكاء

مابحكي شي عنكم بس إنتوا بتشوفوا المسائل من ناحيه وحدة من عدة نواحي

الأخ العزيز Sism بحكي إنو لما نكتب في الدوس كلمه vol بجي السيريال نمبر للهارديسك وهاد الحكي صحيح بس بحكي إنو بدو يجيب هاد الرقم من خلال الفجوال بيسك من غير إستخدام الدوس بدي بس أشرحلك هاي الفكرة

لو تكتب بالدوس نفس الأمر بس تضيف هاي الجمله معاها

C:\>vol >>bas.txt

رح تلاقي إنو عمل ملف على السي إسمه bas.txt وموجود بداخله

 Volume in drive C is DISK1_VOL1 
 Volume Serial Number is 8A66-6C94

ومن خلال الفجوال بيسك ممكن تفتح هاد الملف وتشوف شو إللي إنكتب فيه من خلال هاد الكود

Dim fnum As Integer, Data As String
 If (Dir(File) = "") Then Exit sub
 fnum = FreeFile
 Open File For Input As fnum
  Do While Not EOF(fnum)
    Line Input #fnum, Data
    text1.text=text1.text & data
      Loop
 Close fnum

وبس تفتح الملف ممكن تجيب أي كمله منه من خلال الأمر mid

وكيف تنفذ هدا الكلام من غير الدوس بتقدر تكتب الجمله shell "C:\>vol >>bas.txt

"

إو إنك تستدعي الapi ...... shellexec

وشكرا ماعندي فجوال بيسك وإلا كان عملتلك مثال بس إلي مابتزبط معه يحكيلي مشان أجيب مثال

وبالنسبه للطرق والحمايه في كثير كثير منها رح أحاول أنزل درس عنها قريبا

من جديد طريقة تمرير بيانات موجودة في الفجوال إلى الوورد ؟؟؟؟؟؟

لدي نتيجة استفسار ولم استطع تمريره إلى تقرير كريستال ..... وهناك الاقتراح الذي

اعتقد اه مناسب وهو تمرير البيانات إلى ملف وورد .... ولكن حتى هذه اللحظة لم اعرف

الطريقة بشكل دقيق .....

الأمر في غاية الاهمية الرجاء ......

وشكراً

أنا عندي برنامج محمي mde هل يمكن التعديل به أرجو المساعدة

شكرا ليك بس افتكرتك هاتجيب فكرة ذكية بعد هذا التعليق السخيف

لأن فكرتك انا عاملها من حوالي 4 سنوات وكنت عايز فكرة اكثر ذكاءً لأن الفكرة دي بتستهلك وقت كبير اثناء تشغيل البرنامج لأنك بتستخدم فيها الدوس

عموما شكرا علي اهتمامك وانصحك حتي لا يضيع اجرك ان تعامل الناس بالمعروف وليس التعالي عليهم

شكرا ليك

السلام عليكم

أريد يا أخي أنا أعمل ما يلي

عندي مثلا ورقة مطبوعة بها مثلا الاسم والعنوان وبيانات اخرى

هلأ اريد أن أعمل برنامج يقوم بطباعة الاسم في المكان المحدد في الورقة

-------مع ملاحظة أن الورقة حجمها يختلف من نموذج لأخر

يني في نماذج حجم الورقة A4

وفي نماذج حجم الورقة صغير وهكذا

أرجوا أن تساعدوني وبارك الله فيكم

bastr3 كتب:

رد للأخت آي تي بنت أو بنت التخرج

الفيجوال بيسك عالم ضخم وممكن شبكة مع الفلاش بكل سهوله بس في عده أمور لازم تتوفر أول شي

بس تعملي ملف الفلاش لازم تخلي البلاير خمسه أو أقل مش سته لآنو مارح يفتح على الفجوال بيسك ثاني شي بتستخدمي الOCX الخاص بالفلاش خمسه وهاد رح أرفقه مع الملف بعدين بتستدعي الocx عن طريق قائمة بروجيكت بعدين بتختاري كمبوننت بعدين براوس وبتروحي على الملف المرفق

بعدين بتختاري الكمبوننت وبتنزليها على الفورم

ومن ناحيه الكلمه الموجوده على الفلاش بدك تظهر على الفورم برضو بسيطه بجيبلك مثال جاهز إذا قدرت مع شرح أوفر بكرة إن شاء الله

الملف مش راضي ينرفق بس بتقدري توخديه من برنامجي على هاد الموقع www.bastr3.com/bastr3_.exe

بعد ماتنزليه في ملف إسمه flash.ocx

وشكرا

ألف شكر لمجهودك الطيب أخي Bastr3 . أنا جربت الداة Flash.ocx التي وضعتها بالفعل إنها رائعة . و لكن المشكلة أنها لا تقبل إلا فلاش5 . فهل عندك نفس الأداة و لكن للفلاش6 ؟ لأن الأمر يهمني فعلاً . و لا تخاف لأني أتعامل مع VB.net و سوف يعمل عليه فلاش6 و لك جزيل الشكر .

بارك الله فيييك يا اخ بسام وشكرا لك

السلام عليكم

اخى العزيز bastr3

عندى بعض الاسئلة لو تقبلتها

الاول

كيف يمكن عمل برنامج مثل يعرض كل بيانات الجهاز والقراص التى يحتوى عليها(جهاز الكمبيوتر)

الثانى

اريد برنامج لتصميم ملفات المساعدة لكى ارفقها مع برامجى

والبقية تأتى قريبا ان شاء الله

والسلام عليكم ورحمة الله وبركاته

أخواني وأخواتي الكرام

أنا بعتذر إذا كان أسلوبي في تجريح إلكم وأنا فعلا بعتذر ماكان قصدي أي تجريح

ثانيا أنا ماعندي طابعه بالبيت :) يعني مابعرف كيف بدي أطبع 100% أو شو هيه أوامر الطباعه وبالنسبه للداتابيز مش قوي فيها يعني بجيب حلول ممكن تكون غبيه بس هيك أنا إتعلمت الفجوال بيسك

بصراحه أنا شاطر وحترف بمجالات الإنترنت على الفجوال بيسك والسيستم والأبليكيتشن والجرافيك والألعاب الثري دي بس وبفيدكم بالفلاش لآني قوي فيه بس مابشارك بمنتدى الفلاش

كان نفسي أحط أمثله كثيرة مع شرح لكل مثال بس الوقت إللي معي بكون ضيق ومافي عندي إنترنت بالبيت يعني بس أكتب كود بكون عم بكتب من غير برنامج الفجوال بيسك ومشان هيك ممكن لما تجربوه يطلع أخطاء بس لازم يكون عندكم فكرة عن تصليحها لآني بكون غلطان بالكتابه بس

الأخت إللي طالبه الOCX للفلاش 6 أو إم إكس .. لو تنزلي هاد الفلاش وأكيد نازل على جهازك بتروحي على الprogram files - macromedia - flashmx - player -

بهاد الباث بتلاقي ملفات تنفيذيه بس تنفذيها رح ينزل الOCX تلقائيا على الWindows\macromid\flash6.ocx

وإذا قدرت أجيبه معي المرة الجاي رح أحمله على المنتدى بس هوه مابشبك على الفيجوال 6 إذا شبك معك على الفيجوال ,net بلييييييييييييز إحكيلي لآني انا كمان محتاج إله وبدي أعرف منك الدوت نت ممكن يكون بديل للفجوال 6 وشكرا

أما الأخ سن7000

السؤال الأول بتقدر تعمله بس طويل الكود فيه شويه ومفهوم لمعضم الشباب مشان هيك رح أجيبه من غير شرح والبرنامج إللي بعمل مساعده أو ملفات الهلب بتمنى إذا بتحصل عليه تعطيني إياه :)

الأخ باسل 2003

مافهمت سؤالك بالضبط ممكن إنتا تكون قاصد ملفات الموسيقى إذا كان هاد سؤالك بحكيلك ممكن والبرنامج إللي بعدل عليه مش متوفر عندي ومابعرف شو إسمه بس هوه للأطفال أصلا ومن خلاله كنت أعدل على الأصوات بس ممكن تستخدم برنامج الفروج 5 بتوقع إنو ممكن يعدل عليهن أو إنك بتبحث على الجوجل وإن شاء الله بتلاقي أما إذا كان سؤالك غير هاد السؤال وهوه الأصح لآنو هاد منتدى فيجوال بيسك فبتمنى توضح سؤالك وشكرا كثير إلك :)

للأخت آيه الرحمن

أنا جربت الكود وكان شغال ومافيه أي خطأ بس إذا طلع عندك خطأ فممكن يكون من ملفات الدي أل أل بجوز لازم تستدعي ملف من قائمة بروجيكت - ريفيرانس - مايكروسفت وورد أو شي مثل هيك مو متزكر وآسف إذا ما إشتغل الكود رح أحاول أفهم شو الكود الصحيح للطباعه

شكرا إلكم وبتمنى تكونوا عم تستفيدوا :)

بسام

للأخ سن2007

اول شي نزل مدييول على البروجكت وإكتب فيه الكود التالي

'Enter following code in modUUFind.bas
Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As Any, lpLocalFileTime As Any) As Long

Const rDayZeroBias As Double = 109205#   ' Abs(CDbl(#01-01-1601#))
Const rMillisecondPerDay As Double = 10000000# * 60# * 60# * 24# / 10000#
Const MAX_PATH = 260

Type WIN32_FIND_DATA
        dwFileAttributes As Long
        ftCreationTime As Currency
        ftLastAccessTime As Currency
        ftLastWriteTime As Currency
        nFileSizeHigh As Long
        nFileSizeLow As Long
        dwReserved0 As Long
        dwReserved1 As Long
        cFileName As String * MAX_PATH
        cAlternate As String * 14
        cPath As String * MAX_PATH
End Type

Function Win32ToVbTime(ft As Currency) As Date
    Dim ftl As Currency
    ' Call API to convert from UTC time to local time
    If FileTimeToLocalFileTime(ft, ftl) Then
        ' Local time is nanoseconds since 01-01-1601
        ' In Currency that comes out as milliseconds
        ' Divide by milliseconds per day to get days since 1601
        ' Subtract days from 1601 to 1899 to get VB Date equivalent
        Win32ToVbTime = CDate((ftl / rMillisecondPerDay) - rDayZeroBias)
    Else
        MsgBox Err.LastDllError
    End If
End Function

بعدين على الفورم نزل الكود التالي

Option Explicit

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

Public Event UUFileFound(ByVal UUFileName As String, ByVal UUFilePath As String, ByVal UUFileSize As Long)
Public Event UUFindComplete(ByVal UUTotalFolders As String, ByVal UUTotalFiles As String, ByVal UUTotalSize As Long)

Const MAXDWORD = &HFFFF
Const INVALID_HANDLE_VALUE = -1
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100

Dim mDirCol As UUFindList
Private Function StripNulls(OriginalStr As String) As String
    
    If (InStr(OriginalStr, Chr(0)) > 0) Then
        OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
    End If
    StripNulls = OriginalStr
    
End Function
Public Function FindFilesAPI(Path As String, SearchStr As String) As UUFindList
    Dim mPath As String
    Dim mSearchStr As String
    Dim mFileCount As Integer
    Dim mDirCount As Integer
    Dim mTotalSize As Long
    
    Set mDirCol = New UUFindList
    
    mPath = Path
    mSearchStr = SearchStr
    mTotalSize = FindFilesAPIX(mPath, mSearchStr, mFileCount, mDirCount)
    Set FindFilesAPI = mDirCol
    RaiseEvent UUFindComplete(mDirCount + 1, mFileCount, mTotalSize)
End Function

Private Function FindFilesAPIX(Path As String, SearchStr As String, FileCount As Integer, DirCount As Integer)
    Dim fName As String
    Dim dName As String
    Dim dNames() As String
    Dim nDir As Integer
    Dim i As Integer
    Dim hSearch As Long
    Dim WFD As WIN32_FIND_DATA
    
    
    Dim Cont As Integer
    If Right(Path, 1) <> "\" Then Path = Path & "\"
    nDir = 0
    ReDim dNames(nDir)
    Cont = True
    hSearch = FindFirstFile(Path & "*", WFD)
    If hSearch <> INVALID_HANDLE_VALUE Then
        Do While Cont
        dName = StripNulls(WFD.cFileName)
        If (dName <> ".") And (dName <> "..") Then
            If GetFileAttributes(Path & dName) And FILE_ATTRIBUTE_DIRECTORY Then
                dNames(nDir) = dName
                DirCount = DirCount + 1
                nDir = nDir + 1
                ReDim Preserve dNames(nDir)
            End If
        End If
        Cont = FindNextFile(hSearch, WFD)
        Loop
        Cont = FindClose(hSearch)
    End If
    hSearch = FindFirstFile(Path & SearchStr, WFD)
    Cont = True
    If hSearch <> INVALID_HANDLE_VALUE Then
        While Cont
            fName = StripNulls(WFD.cFileName)
            If (fName <> ".") And (fName <> "..") Then
                FindFilesAPIX = FindFilesAPIX + (WFD.nFileSizeHigh * MAXDWORD) + WFD.nFileSizeLow
                FileCount = FileCount + 1
                RaiseEvent UUFileFound(fName, Path, (WFD.nFileSizeHigh * MAXDWORD) + WFD.nFileSizeLow)
                mDirCol.Add WFD.dwFileAttributes, Win32ToVbTime(WFD.ftCreationTime), Win32ToVbTime(WFD.ftLastAccessTime), Win32ToVbTime(WFD.ftLastWriteTime), WFD.nFileSizeLow, fName, Path
                DoEvents
            End If
            Cont = FindNextFile(hSearch, WFD)
        Wend
        Cont = FindClose(hSearch)
    End If
    If nDir > 0 Then
        For i = 0 To nDir - 1
            FindFilesAPIX = FindFilesAPIX + FindFilesAPIX(Path & dNames(i) & "\", SearchStr, FileCount, DirCount)
        Next i
    End If
End Function

وهاد الكود بكلاس إسمه : UUFindList.cls

Option Explicit

Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Const FILE_ATTRIBUTE_OFFLINE = &H1000

Private mCol As New Collection

Public Function Add(lAttrib As Long, dtCreationTime As Date, dtLastAccessTime As Date, dtLastWriteTime As Date, lFileSize As Long, sFilename As String, sPath As String) As UUFindItem
   
   Dim newItem As New UUFindItem
   
   With newItem
      .Archive = (lAttrib And FILE_ATTRIBUTE_ARCHIVE)
      .Compressed = (lAttrib And FILE_ATTRIBUTE_COMPRESSED)
      '.Directory = (lAttrib And FILE_ATTRIBUTE_DIRECTORY)
      If (lAttrib And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY Then
        .Directory = True
      End If
      .Hidden = (lAttrib And FILE_ATTRIBUTE_HIDDEN)
      .Normal = (lAttrib And FILE_ATTRIBUTE_NORMAL)
      .Offline = (lAttrib And FILE_ATTRIBUTE_OFFLINE)
      .ReadOnly = (lAttrib And FILE_ATTRIBUTE_READONLY)
      .System = (lAttrib And FILE_ATTRIBUTE_SYSTEM)
      .Temporary = (lAttrib And FILE_ATTRIBUTE_TEMPORARY)
      .CreationTime = dtCreationTime
      .LastAccessTime = dtLastAccessTime
      .LastWriteTime = dtLastWriteTime
      .FileSize = lFileSize
      .Filename = sFilename
      .Path = sPath
   End With
   mCol.Add newItem, CStr(mCol.Count)
End Function

Public Function Clear()
   Dim lIndex As Long
   If mCol.Count > 0 Then
      For lIndex = mCol.Count To 1 Step -1
         mCol.Remove lIndex
      Next
   End If
End Function

Public Function item(Index As Variant) As UUFindItem
   Set item = mCol(Index)
End Function

Public Function Count() As Long
   Count = mCol.Count
End Function

Public Function NewEnum() As IUnknown
   Set NewEnum = mCol.[_NewEnum]
End Function

وهاد الكود بتحطه بكلاس وإسم الكلاس بتخليه كالتالي UUFindItem.cls

Option Explicit

Public ReadOnly As Boolean
Public Hidden As Boolean
Public System As Boolean
Public Directory As Boolean
Public Archive As Boolean
Public Normal As Boolean
Public Temporary As Boolean
Public Compressed As Boolean
Public Offline As Boolean

Public CreationTime As Date
Public LastAccessTime As Date
Public LastWriteTime As Date

Public FileSize As Long
Public Filename As String
Public Path As String

والله بعينك :) هاد الكود الحين بحثت عنه وبفي بالغرض للبحث عن ملفات داخل الجهاز ورح أجيب مثال أنا عامله بس بطريقه أحلى وأسهل من هاي الطريقه بس إنتا جرب هاي يمكن تكون أحسن :)

إللي فهمته من الكود إنك لازم تحط على الفورم كوماند وتكست

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

FindFilesAPI "C:\" ,text1.text

بس النتائج لسا ماعرفت كيف أطلعها بس هاد مثال قوي وحلو يعني بجيبلك شو نوع الملف وحجمه وكلشي بتعلق بخصاءصه ياريت تجربوه وتفهموا من الكود لآنو رح يفيدكم

وشكرا إلكم

عمل البرنامج كخدمة في الوندوز

السلام عليكم

عندي سؤال بسيط

فياريت الي عارف يساعدني

نسبة لاهمية الموضوع عندي

السؤال هو :

كيف الطريق لجعل البرنامج المكتوب بـ vb

يعمل كخدمة في الوندوز

اي

- يعمل عتدما يفتح الوندوز

- عندما يعمل يكون بالقرب من الساعة

و السلام عليكم

ابراهيم الطيب

ibrahimeltayeb@hotmail.com

قمت بعمل برنامج مثل Outlook Express فواجهتني مشكلة وهي حينما أسحب الرسالة وكانت الرسالة مكتوبة باللغة العربية فإنها تتحول إلى رموز أحتاج كود يحول الرسالة من الرموز الى اللغة العربية في رسائل البريد عجزت والله وأنا أدور وما طرحت الموظوع في المنتدى إلا وأنتم أهل لذالك وشكراً.

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

أخي العزيز إبراهيم

السؤالين إللي طلبتهم عن كيفيه عم البرنامج مع الويندوز ويكون عند الساعه موجودات لو تراجع كل الأمثله إللي وضعتها في هذا المنتدى وشكرا

أما السؤال الثاني من كارامبا ا

بتمنى تحط نص من الرساله مشان أعرف شو الرموز إللي بتظهر بالضبط وشكرا

السلام عليكم ...

أخي Bastr3 شكراً لك على المعلومة لقد استطعت فعلاً ربط الفلاش6 بالـ VB.Net و ذلك عن طريق الأداة التي أخبرتني أين أجدها . و الحمدلله نفعت .

بالنسبة لـ Visual Studio.Net لقد جمعت فيه شركة Microsoft جميع لغاتها و هو يحتوي على :

- الفيجوال بيسك

-السي++

-السي شارب ( لغة جديدة )

-الجافا

و طبعاً لقد تطورت هذه اللغات كثيراً عن ذي قبل و أصبحت أقوى و خاصة الفيجوال بيسك . موضوع مزايا هذه اللغة طويل و النقاش حوله أطول و لكن بالمختصر المفيد : هذا الإصدار اعتبره إصدار جديد للغة البيسك ذو مزايا قوية . و طبعاً هو بديل قوي للإصدار السادس .

و لكن إن كنت تريد الحصول عليه فهو يأتي بخمس سيديات . و تحتاج لتخزينه إلى مساحة لا بأس بها .

أخيراً / لقد حصلت ملابسة أنا عضو آخر غير الأخت التي وضعت السؤال السابق . على شكراً لك و لمجهودك

اتمنى الاجابه على السؤالين

أولا > هل صحيح انه الفيجوال بيسك الاصدار الخامس اي برنامج مبرمج فيه ماراح يحتاج للملف msvbvm60.dll وهل يمكن تشغيل مشاريع عملت بالفيجوال بيسك الاصدار السادس على الفيجوال بيسك الاصدار الخامس بدون أي مشاكل

ثانيا> ممكن اعرف طريقة احضار بيانات الـ Dial-up Networking كامله

من اسم الاشتراك الى اسم المستخدم الى كلمة المرور الى رقم الهاتف

اقصد ras password انا عندي طريقة احضار الكاش باسوورد من الملف mpr.dll لكن شغال على الويندوز 98 فقط انا محتاج طريقه ثانيه اللى هيا عن طريق

<> الملف RasApi32.DLL<>

تحياتي ......:)