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

[LaSer_26]

بسم الله وتوكلنا على الله
أي سؤال خاص بالفجيوال بيسك 6 أنا تحت أمركو أسال ومتكسفش وبقدر الأمكان ححوط مع الأجابه شرح ونموذج مرفق كمان

[amgadnady]

salamo 3alekom
when i open table with ado dc it make first row have some value = 0
and that mean that the first cell if it has data it will be zero what shall i do

[LaSer_26]

في قاعدة البيانات أللي انته رابطها بال ado على الأقل ضيف فيها بعض البيانات سواء كنت تستخدم ال acces او كنت تستخدم معالج قواعد البيانات الخاص بالفجيوال وياريت يكون النقاش بالعربي علشان تكون الفايده أكبر للكل

[LaSer_26]

وهناك طريقتين لربط قاعدة البيانات بشكل صحيح أما عن طريق أستخدام الكود وانا شخصيا أفضل ذلك لكنه صعب قليلا
وأما عن طريق المعالج السحري في الفجيوال بيسك هو يقول بربط كل شيء دون ان تفعل أي شيء ولكي تعلم عنه المزيد وتتعلم الربط بشكل اوتوماتيكي خالي من الأخطاء تصفح سلسلة دروسي في هذه الجزأيه مدعمه بالصور والنماذج وهذا هو الرابط
http://www.bramjnet.com/vb3/showthread.php?t=41588

[IUnKnown]

Hi All
During a task I needed to watch a folder to see if files are added,deleted ,updated or even new subfolders are created in this folder or its subfolder .
I seached The MSDN for any thing like that and I have found a bunch of functions that can achive this .
these functions are FindFirstChangeNotification ,FindNextChangeNotification And FindCloseChangeNotification .
HANDLE FindFirstChangeNotification(
LPCTSTR lpPathName,
BOOL bWatchSubtree,
DWORD dwNotifyFilter
);
The FindFirstChangeNotification function creates a change notification handle and sets up initial change notification filter conditions. A wait on a notification handle succeeds when a change matching the filter conditions occurs in the specified directory or subtree. However, the function does not indicate the change that satisfied the wait condition.
The first two functions are used in combination with wait functions like WaitForSingleObject which waits until a change notification handle has changed according to dwNotifyFilter spescified in the call of FindCloseChangeNotification .
the good news is this behavior achive what I want exactly but the bad news is it hangs the program till the Notificatoin occure I tried to do this in another Thread but It failed ,I tried to do it in a seperate process of an activex exe but it faild too I tried to find an asynchronous function that can watch the handel and process the chage in a callback function but I didn't find it till now .
if anybody have any idea about that I'll be very happy to exchange ideas with him
thanks

[LaSer_26]

Hi All
During a task I needed to watch a folder to see if files are added,deleted ,updated or even new subfolders are created in this folder or its subfolder .
I seached The MSDN for any thing like that and I have found a bunch of functions that can achive this .
these functions are FindFirstChangeNotification ,FindNextChangeNotification And FindCloseChangeNotification .
HANDLE FindFirstChangeNotification(
LPCTSTR lpPathName,
BOOL bWatchSubtree,
DWORD dwNotifyFilter
);
The FindFirstChangeNotification function creates a change notification handle and sets up initial change notification filter conditions. A wait on a notification handle succeeds when a change matching the filter conditions occurs in the specified directory or subtree. However, the function does not indicate the change that satisfied the wait condition.
The first two functions are used in combination with wait functions like WaitForSingleObject which waits until a change notification handle has changed according to dwNotifyFilter spescified in the call of FindCloseChangeNotification .
the good news is this behavior achive what I want exactly but the bad news is it hangs the program till the Notificatoin occure I tried to do this in another Thread but It failed ,I tried to do it in a seperate process of an activex exe but it faild too I tried to find an asynchronous function that can watch the handel and process the chage in a callback function but I didn't find it till now .
if anybody have any idea about that I'll be very happy to exchange ideas with him
thanks

أنا قولت الكلام يبقى بالعربي أللي حيكتب انجليزي مش حجاوبو :mad:

[خبير البرمجة]

اانا اسالك يا اخي برغم انى خبير البرمجة

كيف اصنع اكواد الفجيوال بنفسي

ابي الحال

[LaSer_26]

اانا اسالك يا اخي برغم انى خبير البرمجة

كيف اصنع اكواد الفجيوال بنفسي

ابي الحال
هل تقصد كيفية كتابة الأكواد في الفجيوال بيسك أذا كان هذا سؤالك فأنت تحتاج ألى تعلم المبادي الأساسيه والتعامل مع قواعده ولذلك أدخل على سلسلة دروسي في الفجيوال وستضعك على الطريق الصحيح
أضغط هنــــــــــــا (http://www.bramjnet.com/vb3/showthread.php?t=40553)

[GiANLuIgI bUfFoN]

مشكور أخي ليزر على الموضوع

[LaSer_26]

وهذا رابط الدوره
http://www.bramjnet.com/vb3/showthread.php?t=40553

[LaSer_26]

http://www.al-molatham.net/p2/w/34.gif


شكرا على مرورك يا نسيم وبارك الله فيك

[IUnKnown]

Hi All
During a task I needed to watch a folder to see if files are added,deleted ,updated or even new subfolders are created in this folder or its subfolder .
I seached The MSDN for any thing like that and I have found a bunch of functions that can achive this .
these functions are FindFirstChangeNotification ,FindNextChangeNotification And FindCloseChangeNotification .
HANDLE FindFirstChangeNotification(
LPCTSTR lpPathName,
BOOL bWatchSubtree,
DWORD dwNotifyFilter
);
The FindFirstChangeNotification function creates a change notification handle and sets up initial change notification filter conditions. A wait on a notification handle succeeds when a change matching the filter conditions occurs in the specified directory or subtree. However, the function does not indicate the change that satisfied the wait condition.
The first two functions are used in combination with wait functions like WaitForSingleObject which waits until a change notification handle has changed according to dwNotifyFilter spescified in the call of FindCloseChangeNotification .
the good news is this behavior achive what I want exactly but the bad news is it hangs the program till the Notificatoin occure I tried to do this in another Thread but It failed ,I tried to do it in a seperate process of an activex exe but it faild too I tried to find an asynchronous function that can watch the handel and process the chage in a callback function but I didn't find it till now .
if anybody have any idea about that I'll be very happy to exchange ideas with him
thanks


عذرا يا اخي فلم تكن لدى لوحة مفاتيح عربية وقت كتابة السؤال
ما اريد السؤال عنه هو كيفية مراقبة مجلد معين بمعن انه هناك مجلد اريد معرفة اذا ما قام احد بنشخ ملفات اليه او تعديلها او مسحها او انشاء مجلدات بداخله ومراقبة محتواها ايضا بالبحث في ال MSDN وجدت ما يمكنه القيام بذلك ولكنها تعطل البرنامج تماما وجربت اشغلها في Thread لوحدها لم تعمل بالشكل الصحيح
هل قابلك شيئ مشابه ...؟

[خبير البرمجة]

فعلا فعلا انت شخص لايوجد لك وصف

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

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

[LaSer_26]

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

[LaSer_26]

فعلا فعلا انت شخص لايوجد لك وصف

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

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

[IUnKnown]

هل استخدمت الـ API CallBack
هذا هو ما اريده Event يحدث عندما يتم نسخ ملف او حذفه او تعديله وعمل مجلد داخل المجلد الذي تتم مراقبته

[LaSer_26]

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

[IUnKnown]

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

[LaSer_26]

حسنا لما لا تجرب ان تستخدم ملفات Dll&ocx أنا أستخدمها بكثره لانها لا تأثر على سرعة البرنامج وتوفر الوقت

[IUnKnown]

لم اجد dll او OCX تقوم بهذه الوظيفة ... هل اجد لديك ؟

[LaSer_26]

سأجدها لك انشاء الله لكن أريد بعض التفصيل لكي أستطيع ان اتخيل المشكله معك

[IUnKnown]

المشكلة زي ما قلت بالضبط
مجلد عايز اراقبه بالكامل هو ومجلداته الفرعية
اي عملية I/O فيه محتاج يجيلي event وانا اعالجها
نسخ ملف او حذفه او تعديله
عمل مجلد فرعي داخل هذا المجلد
انا عندي shared folder انا ومجموعة تانية بنحد فيه التعديلات والتقارير
واريد ان اعرض رساله مثلا عند اضافة ملف او تعديله ... الخ

[LaSer_26]

المشكلة زي ما قلت بالضبط
مجلد عايز اراقبه بالكامل هو ومجلداته الفرعية
اي عملية I/O فيه محتاج يجيلي event وانا اعالجها
نسخ ملف او حذفه او تعديله
عمل مجلد فرعي داخل هذا المجلد
انا عندي shared folder انا ومجموعة تانية بنحد فيه التعديلات والتقارير
واريد ان اعرض رساله مثلا عند اضافة ملف او تعديله ... الخ
طيب معلش حسالك عن حاجه لأن الوضع لسه غامض شويه أنته بتقول
(اي عملية I/O فيه محتاج يجيلي event وانا اعالجها)
هذه الجمله تحتوي على أكثر من معنى
المعنى الاول مثلا عند حذف سجل معين تظهر لك رساله هل تريد حذف الملف بمعنى انها رسالة تاكيد وهذا ينطبق أيضا على الكوبي والتعديل ظهور رساله تأكيد قبل أجراء العمليه
والمعنى الثاني
أنك تضع فولدر معين يحتوي على قاعدة بيانات لكن اكثر من واحد بيشتغل على نفس القعده أو بمعنى أدق شير فولدر وأكثر من مستخدم بيعدل عليها وبيضيف فيها لكنك تريد قبل أجراء أي عمليه تظهر لك رساله تاكد أذا كنت تريد فعل ذلك ام لا حتى لو كان المعدل او المضيف من جهاز أخر
ويوجد معنى ثالث وأظن انه الأصوب ان تريد تقرير شامل عن التغيرات التي حدثت وذلك أمر سهل عن طريق أستخدام الخاصيه report

قل لي هل انا على صواب الأن وفي انهي نقطه بالظبط

[IUnKnown]

انا لا اريد تقارير
ولا حتى confirmaion
مجرد اعلام انه حدث تغيير
كما ان الامر لا علاقة له بقواعد البيانات مجرد file system operations

[LaSer_26]

والله يا أخي أنا أول مره أسمع بأعلام خاص بالفولدر انا أعرف الأيفينت evint في قواعد البيانات فقط لكن event خاص بفولدر هذه لا علم لي بها ولا أظن أن تجد شيء من هذا القبيل

[IUnKnown]

يا اخي انا وجدتها بالفعل عن طريق ال API وهي تعمل بشكل اكثر من ممتاز ولكن مشكلتها انها تهنج البرنامج كأن البرنامج يدور في infinit loop حتى ياتيه الـ Event تلك فقط هي المشكلة
انا ابحث عن حل لها
تجد الكثير من التفاصيل بخصوص هذا الموضوع هنا (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/obtaining_directory_change_notifications.asp)

[LaSer_26]

حسنا أدخل ألى هذا الموقع وستجد ما تريد
http://www.planet-source-code.com

[IUnKnown]

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

[alashkar]

السلام عليكم

أولا مشكووووووووووووور جدا على المساعدة الطيبة منك ...

سؤالي : كيف يمكن أن أربط ملف ريجيستري بزر معين في البرنامج ؟؟؟؟

لاني بجهز برنامج ... البرنامج جاهز و ملف الريجستري جاهز .. و قمت بربط الملف بزر ... لكن عند الضغط على الزر يظهر أولا رسالة الريجيستري عادي , وعند الضغط على Ok تظهر رسالة خطأ ...

فساعدني من فضلك ..

[LaSer_26]

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

[LaSer_26]

كود يقوم بحماية برنامجك حيث يعمل عدد من المرات (تحددها بنفسك) ثم يتوقف نهائيا عن العمل ، وهو يشبه طريقة عمل الـ(register) في البرامج المشهورة




Private Sub Form_Load()
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 3 Then ' الرقم (3) يحدد عدد مرات التشغيل
MsgBox "انتهت مدة تشغيل البرنامج .. عليك بشراء النسخة الاصلية"
Unload FRM '
End If
End Sub

عرض صندوق حوار Open With


كود:

Private Sub Command1_Click() Dim x As Long x = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL C:\vbzoom.log") End Sub

لإنهاء صلاحيات برنامجك التجريبي بعد30 يوماً فقط


[code]
Dim startdate As String
Dim differenceofdate
Dim TRACEDATE As String
Dim newdate
Dim chk

If GetSetting(App.Title, "Startup", "counter", "") = "" Then
SaveSetting App.Title, "Startup", "counter", 1
SaveSetting App.Title, "Startup", "Started", Format(Date, "mm dd yyyy")
SaveSetting App.Title, "Startup", "Last Used", Format(Date, "mm dd yyyy")
lblcnt.Caption = "1"

ElseIf GetSetting(App.Title, "Startup", "counter", "") = "31" Then

MsgBox "شكراً لستخدامك هذا البرنامج " & Chr(10) + Chr(1) & "الرجاء إيقاف عمل هذا البرنامج او سيتم فقدان كل المعلومات التي قمت بإدخالها ", vbCritical, "شكراً لك "

End

Else
TRACEDATE = GetSetting(App.Title, "Startup", "Last Used", "")
chk = DateDiff("d", CDate(TRACEDATE), Now)
If chk < 0 Then 'CHECK IF THE DATE WAS CHANGE which is lesser than the PREVIOUS DATE WHERE THE SYSTEM USED.

MsgBox "لم يتم العثور على تاريخ النظام لديك !! " & Chr(10) + Chr(13) & " الرجاء تغييرة الأن وإلا لن يكون بإمكانك إستخدام هذا البرنامج لاحقاً", vbCritical, "تاريخ مفقود"

End
Else
startdate = GetSetting(App.Title, "Startup", "Started", "")
differenceofdate = DateDiff("d", startdate, Now)
If differenceofdate <> 0 Then
lblcnt.Caption = differenceofdate + 1
SaveSetting App.Title, "Startup", "Last Used", Format(Now, "MM DD YYYY")
SaveSetting App.Title, "Startup", "counter", differenceofdate + 1
End If
If differenceofdate = 0 Then
lblcnt.Caption = GetSetting(App.Title, "Startup", "Counter", "")
End If
End If
End If
End Sub

[hhafid]

كيفية التمكن من ربظ برنامجي بالvb 6.0 مع قاعدة البيانات Access الموجودة على حاسوب آخر مرتبط بالأنترنيت
وشكرا

[alashkar]

مشكوووووور على المساعدة ....

لكن مش دي الاجابة اللي أنا عاوزها ...

أنا أقصد ان أنا معي ملف ريجستري و لكن عاوز أربطه بزر في البرنامج ...

أي أنه عند الضغط على الزر.. يعمل ملف الريجستري .. ( و كأني أشغل ملف الريجستري من الويندوز عادي ) ...
يارب تكون فهمت قصدي ....

[LaSer_26]

أه انته قصدك عايز تعمل زورار تدوس عليه يفتح الريجستري بتاع الوندوز ؟

[LaSer_26]

كيفية التمكن من ربظ برنامجي بالvb 6.0 مع قاعدة البيانات Access الموجودة على حاسوب آخر مرتبط بالأنترنيت
وشكرا
انته تحتاج ألى شبكه وراروتر وخطين dsl

[IUnKnown]

مشكوووووور على المساعدة ....

لكن مش دي الاجابة اللي أنا عاوزها ...

أنا أقصد ان أنا معي ملف ريجستري و لكن عاوز أربطه بزر في البرنامج ...

أي أنه عند الضغط على الزر.. يعمل ملف الريجستري .. ( و كأني أشغل ملف الريجستري من الويندوز عادي ) ...
يارب تكون فهمت قصدي ....
يمكنك اضافة هذا الكود في الزر
هذه الجملة في بداية الفورم في الdeclarations

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

هذه الجملة في الزر

Private Sub cmdReg_Click()
ShellExecute Me.hwnd, vbNullString, "c:\regfile.reg", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

[waelouf]

شكرا عزيزي LaSer_26 على هذا الكورس الجميل جدا

ولكنى عندى سؤالين ارجو ان تجيب عليهم
اولا: كيف يمكننى ان اربط بين ال visual vasic 6 بملف من قاعده البيانات من access ؟
ثانيا: كيف يمكن ان اختار بيانات عشوائيه random من ملف الـ access بشرط عدم التكرار ؟

وشكرا مره اخرى على هذا الشرح الرائع

[LaSer_26]

ادخل إلى هذا الرابط وستجد أجابه لكل أسالتك وبشكل مفصل جدا
http://www.bramjnet.com/vb3/showthread.php?t=41588

[alashkar]

لا ... أنا أقصد اني عاوز اعمل زر أدوس عليه ... يشغلي ملف امتداده reg.

[IUnKnown]

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

[alashkar]

يعني انت مثلا عندك ملف امتداده reg.

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

أنا عاوز بأة أضغط على زر في البرنامج فيقوم بتشغيل الملف .. و كأن الزر عبارة عن Shortcut

يارب تكون فهمت ...

[LaSer_26]

أنا فهمت قصدك ودي ممكن أستخدامها بالامر open files حشوفلك ليها كود وححطهولك

[LaSer_26]

جرب هذا الكود

Public Property Get Program() As String
' Returns: the current value of the Program property
' Source: Total VB SourceBook 6

Program = m_strProgram

End Property

Public Property Let Program(strValue As String)
' strValue: Set the value for the Program property
' Source: Total VB SourceBook 6

m_strProgram = strValue

End Property

[LaSer_26]

' Example code for CProgramSettings
'
' To try this example, do the following:
' 1. Create a new form
' 2. Create a command button 'cmdSetTime'
' 3. Create a command button 'cmdReadTime'
' 4. Paste all the code from this example to the new form's module.
' 5. Run the form

Private mProgramSettings As CProgramSettings

Private Sub Form_Load()
Dim lngLeft As Long
Dim lngTop As Long

Set mProgramSettings = New CProgramSettings

' Set property settings to determine where the settings will
' be saved. In this example, the settings to into the same location
' used by the VB SaveSetting/GetSettings routines. This could be your
' company name, or the name of another known company such as "Microsoft"

With mProgramSettings
.RootKey = psrHKEY_LOCAL_MACHINE
.MainBranch = "SOFTWARE"
.RegBase = "FMS"
.Program = "Test CProgramSettings"
.Section = "Settings"

' If this form has been run before, the FormLeft and FormTop
' values will have been previously saved to the registry
lngLeft = CLng(.ReadEntry("FormLeft", "0"))
lngTop = CLng(.ReadEntry("FormTop", "0"))

End With

Me.Left = lngLeft
Me.Top = lngTop

End Sub

Private Sub Form_Unload(Cancel As Integer)
' Save current settings to use the next time the form is opened

With mProgramSettings
.WriteEntry "FormLeft", CStr(Me.Left)
.WriteEntry "FormTop", CStr(Me.Top)
End With

End Sub


Private Sub cmdSetTime_Click()
' Write an entry to the registry
mProgramSettings.WriteEntry "Time", "Current Time: " & Now
End Sub

Private Sub cmdReadTime_Click()
Dim strEntry As String

' Read an entry from the registry
strEntry = mProgramSettings.ReadEntry("Time", "Time not entered yet")
MsgBox strEntry

End Sub

[alashkar]

مشكوووووووووووور ...
بس للو سمحت أضع الكود دة فين ؟؟؟

[LaSer_26]

مشكوووووووووووور ...
بس للو سمحت أضع الكود دة فين ؟؟؟
ياريت لو تقرأ المكتوب كويس انا كتبتلك الخطوات أهيه وكمان متتوقعش أنني حديك كود تنقلو كوبي وبيست انته خدت الفكره انته عليك تبلورها وتظبطها على البرنامج بتاعك عموما دي الخطوات
To try this example, do the following:
' 1. Create a new form
' 2. Create a command button 'cmdSetTime'
' 3. Create a command button 'cmdReadTime'
' 4. Paste all the code from this example to the new form's module.
' 5. Run the form

[waelouf]

شكرا" جداااااا

[LaSer_26]

شكرا" جداااااا
اهلان بك وأي سؤال اخر انا تحت أمرك :)

[alashkar]

مشكووووووووووور حبيبي على الاهتمام ...!!!!

[LaSer_26]

خد راحتك يا صديقي وانا تحت أمرك في أي وقت

[abedo07]

assalam 3alakom c'est abdelhalim de Maroc coment je peux bloker (alt+sup+ctrl) fin de tache pendant le defilement de mon application sous VB? et merci d'avance mon e.mail (abedo07@caramail.com

[meromake]

ممكن امثلة عن انشاء قواعد بيانات وجداول و جداول استعلام وتقارير بالكريستل ريبورت مع هاتين المكتبتين لاهمية الموضوع جداً
وياريت اذا ربنا كرمك ضيف المكتبة Adox2.8 مع الامثلة وشكرا

[LaSer_26]

ممكن امثلة عن انشاء قواعد بيانات وجداول و جداول استعلام وتقارير بالكريستل ريبورت مع هاتين المكتبتين لاهمية الموضوع جداً
وياريت اذا ربنا كرمك ضيف المكتبة Adox2.8 مع الامثلة وشكرا
في سلسلة دروسي المتعلقه بالفجيوال ستجد اجابة سؤالك أما بخصوص المكتبه adox2.8 فأرجو منك توضيح المساله اكثر حيث يوجد اكثر من طريقه للتعامل مع قواعد البيانات

[waeelahmed]

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

لدى سؤال أعتقد أنه بسيط جداً جداً إن شاء الله.

بخصوص الرسائل msgbox لو اخترت ان يظهر بالرسالة مفاتيح yes و no فتظهر المفاتيح اللغة الانجليزية ،، سؤالى هو إزاى تبقى عربى نعم , لا ؟؟؟؟

[LaSer_26]

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

لدى سؤال أعتقد أنه بسيط جداً جداً إن شاء الله.

بخصوص الرسائل msgbox لو اخترت ان يظهر بالرسالة مفاتيح yes و no فتظهر المفاتيح اللغة الانجليزية ،، سؤالى هو إزاى تبقى عربى نعم , لا ؟؟؟؟
غير ال CAPTION من لوحة الخصائص الخاصه بزر RADIO OPTION واكتب فيها ما يحلو لك

[waeelahmed]

مشكور أخى على ردك بس الرسالة ملهاش علاقة نهائياً بأى radio option
اخى الكريم كمثال لدى ما يلى:


Dim Response As Integer

Response = MsgBox("how are you??",36,"helth")
Select Case Response
Case vbYes
MsgBox "لقد اخترت نعم"
Case vbNo
MsgBox "لقد اخترت لا"
End Select

عند التنفيذ تظهر الرسالة تحتوى على مفتاحين yes , no
ازاى اخليهم نعم , لا

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

[LaSer_26]

ضع لي صوره لشكل الرساله وساحاول جاهدا

[brae0000]

بسم الله الرحمن الرحيم

سؤال للساده الافاضل اساتذتنا فى المنتدى ....

اريد ان اعرف اذا اردت ان اعرف مكان لون معين فى الشاشه وانا اعرف رقم اللون واريد من البرنامج ان يحول الشاشه الى بكسلات ثم يبحث عن اللون المطلوب ثم يعطينى مكانه من الشاشه .. x y

انا احترت فى هذا الكود واحببت ان اسال الخبراء ... فهل من معين ....؟؟؟

[waeelahmed]

مشكور أخى وهذه صورة الرسالة
http://kolhaga.topcities.com/msgbox.jpg
Dim Response As Integer

Response = MsgBox("how are you??",36,"helth")
Select Case Response
Case vbYes
MsgBox "لقد اخترت نعم"
Case vbNo
MsgBox "لقد اخترت لا"
End Select

[LaSer_26]

بسم الله الرحمن الرحيم

سؤال للساده الافاضل اساتذتنا فى المنتدى ....

اريد ان اعرف اذا اردت ان اعرف مكان لون معين فى الشاشه وانا اعرف رقم اللون واريد من البرنامج ان يحول الشاشه الى بكسلات ثم يبحث عن اللون المطلوب ثم يعطينى مكانه من الشاشه .. x y

انا احترت فى هذا الكود واحببت ان اسال الخبراء ... فهل من معين ....؟؟؟
انا كان عندي نموذج للموضوع أللي بتكلم عننو حدورلك عليه في الاسطوانات الخاصه بتاعتي وحرفعهولك تابع معي

[LaSer_26]

مشكور أخى وهذه صورة الرسالة
http://kolhaga.topcities.com/msgbox.jpg
Dim Response As Integer

Response = MsgBox("how are you??",36,"helth")
Select Case Response
Case vbYes
MsgBox "لقد اخترت نعم"
Case vbNo
MsgBox "لقد اخترت لا"
End Select

اخي الكريم انته حاططلي الكود انا عايز صورة الرساله بعد التشغيل وانشاء الله نلاقي الحل سوا

[waeelahmed]

أخى رابط آخر للصورة
http://9q9q.com/Feb/1140419114.jpg
http://kolhaga.topcities.com/msgbox.jpg

[LaSer_26]

أخى رابط آخر للصورة
http://9q9q.com/Feb/1140419114.jpg
http://kolhaga.topcities.com/msgbox.jpg
كده تمام جرب في الكود ده
Case vbYes
بدل yes اكتب نعم

[امينو]

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

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

[LaSer_26]

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

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

[brae0000]

الاخ العزيز LaSer_26
انا ما زلت منتظر الكود بتاع البحث عن لون معين فى الشاشه ...
وانا عندى اقتراح ....
من كلامك باين ان عندك كنوز من الاكواد الخاصه بيك على اسطوانات وانا عارف انك ابو الكرم كله .....
ممكن تقترح على اصحاب المنتدى انهم يرفعوها على سيرفر المنتدى وصدقنى هاتبقى فايده كبيره لناس كتييير ....
وانت عارف المبتدئين فى البرمجه زى حالاتى بيتمنوا حاجه زى ديه ....
وجزاك الله خيرا وجعل ما تفيدنا به من علمك فى ميزان حسناتك ...
وماتنساش تبحث لى عن كود اللون ...
لك جزيل الشكر ....

[LaSer_26]

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

[waeelahmed]

كده تمام جرب في الكود ده
Case vbYes
بدل yes اكتب نعم


أخى LaSer_26 أولاً مشكور على مجهودك
ثانياً سؤال الأول أنت بتهزر معايا ولا بتتكلم بجد ؟؟؟!!!http://www.bramjnet.com/vb3/images/smilies/mad.gif

اغير ازاى التغيير اللى انت بتقول عليه ده عمر البرنامج مهيشتغل علشان vbYes هى من متغيرات الدالة msgbox

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

مشكور مرة أخرى

وياريت لو حد يعرف مطلوبى يرد عليه ؟؟؟ جزاكم الله كل خير

[LaSer_26]

أخى LaSer_26 أولاً مشكور على مجهودك
ثانياً سؤال الأول أنت بتهزر معايا ولا بتتكلم بجد ؟؟؟!!!http://www.bramjnet.com/vb3/images/smilies/mad.gif

اغير ازاى التغيير اللى انت بتقول عليه ده عمر البرنامج مهيشتغل علشان vbYes هى من متغيرات الدالة msgbox

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

مشكور مرة أخرى

وياريت لو حد يعرف مطلوبى يرد عليه ؟؟؟ جزاكم الله كل خير

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

[LaSer_26]

الاخ العزيز LaSer_26
انا ما زلت منتظر الكود بتاع البحث عن لون معين فى الشاشه ...
وانا عندى اقتراح ....
من كلامك باين ان عندك كنوز من الاكواد الخاصه بيك على اسطوانات وانا عارف انك ابو الكرم كله .....
ممكن تقترح على اصحاب المنتدى انهم يرفعوها على سيرفر المنتدى وصدقنى هاتبقى فايده كبيره لناس كتييير ....
وانت عارف المبتدئين فى البرمجه زى حالاتى بيتمنوا حاجه زى ديه ....
وجزاك الله خيرا وجعل ما تفيدنا به من علمك فى ميزان حسناتك ...
وماتنساش تبحث لى عن كود اللون ...
لك جزيل الشكر ....
بالنسبه لك أخي المحترم وضعت لك نموذج في المرفقات خاص بالالوان والرسم أرجو أن يكون مفيدا لك وأي استفسار أنا تحت أمرك

[brae0000]

مشكور اخى على اهتمامك وجزاك الله خيرا ..
انا عندى سؤال تانى لو سمحت ....
انا عايز اعرف طريقة التعامل مع دالة post message
انا اعرف انها مختلفه عن ] دالة send message
يا ريت لو عندك اى امثله عليها او كتاب بيتكلم عنها ترفعهولى ....
وربنا يخليك للغلابه ....
اما بالنسبه لاقتراحى بتاع رفع الاسطوانات .. ممكن حضرتك تعمل موضوع باسمك فى قسم الاقتراحات او تبعت رساله خاصه لاى مشرف من مشرفين المنتدى وتعرض عليه الفكره انا عارف ان الموضوع هاياخد جهد كبير منك بس ان شاء الله كله فى ميزان حساناتك ....
وعلى فكره انا كمان عندى اسطوانة اكواد سورس بلانت 2002 كامله وعندى اسطوانة تعليم بيزيك فيديو صوت وصوره ومستعد ارفعهم بس صاحب الموقع يوافق ..
وهذه صدقه جاريه (( علم ينتفع به ))
ولك جزيل الشكر ...

[LaSer_26]

مشكور اخى على اهتمامك وجزاك الله خيرا ..
انا عندى سؤال تانى لو سمحت ....
انا عايز اعرف طريقة التعامل مع دالة post message
انا اعرف انها مختلفه عن ] دالة send message
يا ريت لو عندك اى امثله عليها او كتاب بيتكلم عنها ترفعهولى ....
وربنا يخليك للغلابه ....
اما بالنسبه لاقتراحى بتاع رفع الاسطوانات .. ممكن حضرتك تعمل موضوع باسمك فى قسم الاقتراحات او تبعت رساله خاصه لاى مشرف من مشرفين المنتدى وتعرض عليه الفكره انا عارف ان الموضوع هاياخد جهد كبير منك بس ان شاء الله كله فى ميزان حساناتك ....
وعلى فكره انا كمان عندى اسطوانة اكواد سورس بلانت 2002 كامله وعندى اسطوانة تعليم بيزيك فيديو صوت وصوره ومستعد ارفعهم بس صاحب الموقع يوافق ..
وهذه صدقه جاريه (( علم ينتفع به ))
ولك جزيل الشكر ...


بالنسبه للداله post massege أنا لم اتعرض لها مباشره لكن سابحث لك عن فكرة التعامل معها وساجدها لك بازن الله اما بخصوص الأقتراح الخاص برفع الأسطوانات للمنتدى حسنا سافعل كما طلبت منني وسأضع فجيوال بيسك أستديو 6 كاملا مع الأسطوانتين الخاصتين بال MSDN وربنا يكرم ولو تعرف موقع كويس للرفع يبقى ممتاز جدا أنا حصلت على برنامج ضغطلي أسطوانة الفجيوال بيك من 650 ميجا وخلاها 212 ميجا وبعد فك الضغط ترجع لمساحتها الطبيعيه ودي حتوفر وقت كتير في الرفع

[waeelahmed]

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

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

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

مشكور مرة أخرى أخى وبالفعل لم أقصد التبجح
سلام عليكم ورحمة الله وبركاته

[jolicoeur-3]

waeelahmed

chouf ya akhi hada lazer la yaf9ah chi fi al VB .ana lamma 9araat roudoud bita3ou lait inou majawebch 3ala wala wahed ijaba mou9ni3a . ana hadik il jawab wa ana 3andi ljawab ila ay had katab soual hia abdaa m3ak akhi waeelahmed
------------------------------------------------------
inta moumkine te3mil form jadid hatkhalih howa il MSGBOX

code :
privaye sub command1_click()
form2.show vbmodal
end sub

inta taba3an hati3mil form (Form2) 3ala chakl MSGBOX
ou hatersoum fiha 2 commands il oula oktoub fiha (yes) we tania hatiktoub fiha (no) ok ya sadi9i ana 3aref ini inta fhimtini . merci

[jolicoeur-3]

hada code ili bye3mil icone f barre . wa m3ah il code ili bi ya3ti X Y bi ta3 ilmouse wi l color ili mahtoute fou9ha . ok hatla9i il projet fi almorfa9at ma3a moutamaniat sadi9okoum Jolicoeur-3 from morocco

[jolicoeur-3]

da machrou3 sarghir hatla9i fih exemple 3ala ili 9oultou ilak . wa choukran merci

[LaSer_26]

waeelahmed

waeelahmed
------------------------------------------------------
inta moumkine te3mil form jadid hatkhalih howa il MSGBOX

code :
privaye sub command1_click()
form2.show vbmodal
end sub

inta taba3an hati3mil form (Form2) 3ala chakl MSGBOX
ou hatersoum fiha 2 commands il oula oktoub fiha (yes) we tania hatiktoub fiha (no) ok ya sadi9i ana 3aref ini inta fhimtini . merci
هيه دي الاجابه ؟؟؟؟ روح اتعلم برمجه وبعدين تعاله اكلم ربنا يشفيك

[ahmed_elhady]

يا اخى طلب ممكن البرنامج نفسه

[LaSer_26]

يا اخى طلب ممكن البرنامج نفسه
والله يا اخي أنا بقالي أسبوع جربت فيه 20 موقع رفع وكلهوم كفخوني انا برفع الأسطوانه الكامله 650 أستديو ومضغوطه لحد 212 ميجا بس مواقع الرفع تعباني وبازن الله حلاقي حل

[waeelahmed]

مشكور أخى jolicoeur-3 على ردودك أنا فعلاً كنت عارف موضوع إنى أعمل الرسالة عن طريق فورم تانى بس أنا كنت شفت واحد عاملها عن طريق الرسالة نفسها مش عن طريق فورم

هو ده اللى انا كنت عايز اعرفه ،، لكن بما أنه مفيش مجيب فخلاص حلك فى عمل الرسائل عن طريق فورم تانى هو اللى اتبعه.

مشكــــور مرة أخرى

أخى أحمد رابط للفيجوال بيسك
رابط (1) بس حجمه صغير شوية 70 ميجا (http://www.fapiko.com/raiden/Programs/visualbasic6.zip)

رابط (2) الفيجوال بيسك 6 كامل بأحدث التحديثات حجم الملف حوالى 350 بعد الفك حوالى 700 ميجا (http://thugie.thelastgun.com/Visual-Studio-6.0.ISO-IND.rar)

[khaledzoro]

هذة اول مشاركة لي في هذا المنتدي الجميل
يس بجد مجهود رائع رائع
هل تعرف تساعدني في برمجةbarcode reader
حيث هذا هو مشروع تارخي ان شاء الله
وشكرا لهتمامكم

[LaSer_26]

هذة اول مشاركة لي في هذا المنتدي الجميل
يس بجد مجهود رائع رائع
هل تعرف تساعدني في برمجةbarcode reader
حيث هذا هو مشروع تارخي ان شاء الله
وشكرا لهتمامكم
شكرا لك أخي الكريم وبالر كود فعلان من اهم أساليب البرمجه ومهم جدا وانا بقالي فتره بحاول أجمع أكبر قدر من المعلومات عنه وححطلك قريبا بعض النماذج والاكواد والشروحات له لانني انا أيضا في حاجه له فساضع لك ما وقع بيدي وتمنياتي لك بالتوفيق

[محمد الحالمي]

اريد ان اصمم ادة بحث في برنامج
فيجول بيسك ولاكن لا ادري ماهو كود البحث في قاعدة البيانات ...
مثلا انا اريد تصميم برنامج حسابي لأحد الشركات اريد عندما يبحث عن اسم في مربع البحث يطلع فاتورة تفصيلية عن كل معومات هذا الاسم ومتي هذا الشخص وفي اي يوم اخذ شئ من هذة الشركة
ارجو انك تفهم قصدي
:bye:

[LaSer_26]

اه فهمت قصدك وستجد الحل في دورتي الخاصه باسم دوره في الفجيوال بيسك 6 أقرا وأسال وناقش وأي سؤال انا حاضر

[fadi_alhamead]

السلام عيليكم أود لو أستطيع معرة طريقة تغير شكل أيقونه الملف التنفيذي لبرنامجي المصمم على الفيجوال بيسك 6
وشكرا

[LaSer_26]

السلام عيليكم أود لو أستطيع معرة طريقة تغير شكل أيقونه الملف التنفيذي لبرنامجي المصمم على الفيجوال بيسك 6
وشكرا
أسهل طريقه وأبسطها أعمل رات كليلك على الأيقونه واختار شينج أيكون وبعدها حدد شكل الأيكونه وبعد تغييرها أدخل على الفجيوال بيسك ومن القائمه فايل اختر MAKE MY PROJECT EXE وبكده حتظبط معاك

[khaledzoro]

شكرا علي ردك الجميل واهتمامكم السريع
ممكن تكلمني عليzozo_dody@hotmail.com
وشكرا جزيلا لاهتمام

[LaSer_26]

شكرا علي ردك الجميل واهتمامكم السريع
ممكن تكلمني عليzozo_dody@hotmail.com
وشكرا جزيلا لاهتمام
شكرا لك يا اخي ويشرفني التعرف عليك وأضافتك في الماسنجر :bye:

[savage]

Dear Sir
please get this code into your form
you need label1 label2 label 3
and command1 command2 command3
and list1
open empty project and write down all code bellow

Dim hChangeHandle As Long
Dim hWatched As Long
Dim terminateFlag As Long

Private Const INFINITE As Long = &HFFFFFFFF
Private Const FILE_NOTIFY_CHANGE_FILE_NAME As Long = &H1
Private Const FILE_NOTIFY_CHANGE_DIR_NAME As Long = &H2
Private Const FILE_NOTIFY_CHANGE_ATTRIBUTES As Long = &H4
Private Const FILE_NOTIFY_CHANGE_SIZE As Long = &H8
Private Const FILE_NOTIFY_CHANGE_LAST_WRITE As Long = &H10
Private Const FILE_NOTIFY_CHANGE_LAST_ACCESS As Long = &H20
Private Const FILE_NOTIFY_CHANGE_CREATION As Long = &H40
Private Const FILE_NOTIFY_CHANGE_SECURITY As Long = &H100
Private Const FILE_NOTIFY_FLAGS = FILE_NOTIFY_CHANGE_ATTRIBUTES Or _
FILE_NOTIFY_CHANGE_FILE_NAME Or _
FILE_NOTIFY_CHANGE_LAST_WRITE

Private Declare Function FindFirstChangeNotification Lib "kernel32" _
Alias "FindFirstChangeNotificationA" _
(ByVal lpPathName As String, _
ByVal bWatchSubtree As Long, _
ByVal dwNotifyFilter As Long) As Long

Private Declare Function FindCloseChangeNotification Lib "kernel32" _
(ByVal hChangeHandle As Long) As Long

Private Declare Function FindNextChangeNotification Lib "kernel32" _
(ByVal hChangeHandle As Long) As Long

Private Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Const WAIT_OBJECT_0 As Long = &H0
Private Const WAIT_ABANDONED As Long = &H80
Private Const WAIT_IO_COMPLETION As Long = &HC0
Private Const WAIT_TIMEOUT As Long = &H102
Private Const STATUS_PENDING As Long = &H103



Private Sub Form_Load()

Label2.Caption = " type the path to watch in the box bellow and check the check box if you want to include SubDir Then Press 'Begin Watch'"

End Sub


Private Sub Command1_Click()

Dim watchPath As String
Dim watchStatus As Long

If Dir(Text1.Text) <> "" Then
If Right(Text1.Text, 1) <> "\" Then Text1.Text = Text1.Text + "\"
watchPath = Text1.Text
terminateFlag = False
Command1.Enabled = False

Label2.Caption = "Using Explorer and Notepad, create, modify, rename, delete or change the attributes of a any file in the watched directory."""
Label2.Caption = Label2.Caption + " if you want to enclude sub directories please check the box"

'get the first file text attributes to the listbox (if any)
WatchChangeAction watchPath

'show a label1.Caption = to indicate the watch is starting
Label1.Caption = "Beginning watching of folder " & watchPath & " .. press OK"

'create a watched directory
hWatched = WatchCreate(watchPath, FILE_NOTIFY_FLAGS)

'poll the watched folder
watchStatus = WatchDirectory(hWatched, 100)

'if WatchDirectory exited with watchStatus = 0,
'then there was a change in the folder.
If watchStatus = 0 Then

'update the listbox for the first file found in the
'folder and indicate a change took place.
WatchChangeAction watchPath

Label1.Caption = "The watched directory has been changed. Resuming watch..."

'(perform actions)
'this is where you'd actually put code to perform a
'task based on the folder changing.

'now go into a second loop, this time calling the
'FindNextChangeNotification API, again exiting if
'watchStatus indicates the terminate flag was set
Do
watchStatus = WatchResume(hWatched, 100)

If watchStatus = -1 Then

'watchStatus must have exited with the terminate flag
Label1.Caption = "Watching has been terminated for " & watchPath

Else

WatchChangeAction watchPath
Label1.Caption = "The watched directory has been changed again."

'(perform actions)
'this is where you'd actually put code to perform a
'task based on the folder changing.

End If

Loop While watchStatus = 0


Else
'watchStatus must have exited with the terminate flag
Label1.Caption = "Watching has been terminated for " & watchPath

End If
Else
Label1.Caption = "Directory does not exisit"
End If

End Sub


Private Sub Command2_Click()

'clean up by deleting the handle to the watched directory
Call WatchDelete(hWatched)
hWatched = 0

Command1.Enabled = True
Label2.Caption = "Press 'Begin Watch'"

End Sub


Private Sub Command3_Click()

If hWatched > 0 Then Call WatchDelete(hWatched)
Unload Me

End Sub


Private Function WatchCreate(lpPathName As String, flags As Long) As Long

'FindFirstChangeNotification members:
'
' lpPathName: folder to watch
' bWatchSubtree:
' True = watch specified folder and its sub folders
' False = watch the specified folder only
' flags: OR'd combination of the FILE_NOTIFY_ flags to apply

WatchCreate = FindFirstChangeNotification(lpPathName, Check1.Value, flags)

End Function


Private Sub WatchDelete(hWatched As Long)

terminateFlag = True
DoEvents

Call FindCloseChangeNotification(hWatched)

End Sub


Private Function WatchDirectory(hWatched As Long, interval As Long) As Long

'Poll the watched folder.
'The Do..Loop will exit when:
' r = 0, indicating a change has occurred
' terminateFlag = True, set by the WatchDelete routine

Dim r As Long

Do

r = WaitForSingleObject(hWatched, interval)
DoEvents

Loop While r <> 0 And terminateFlag = False

WatchDirectory = r

End Function


Private Function WatchResume(hWatched As Long, interval) As Boolean

Dim r As Long

r = FindNextChangeNotification(hWatched)

Do

r = WaitForSingleObject(hWatched, interval)
DoEvents

Loop While r <> 0 And terminateFlag = False

WatchResume = r

End Function


Private Sub WatchChangeAction(fPath As String)

Dim fName As String

With List1

.Clear

fName = Dir(fPath)

If Len(fName) > 0 Then

.AddItem "path: " & vbTab & fPath
.AddItem "file: " & vbTab & fName
.AddItem "size: " & vbTab & FileLen(fPath & "\" & fName)
.AddItem "attr: " & vbTab & GetAttr(fPath & "\" & fName)

End If
End With


End Sub

you can download the example project from here (http://www.bramjnet.com/vb3/attachment.php?attachmentid=17470&stc=1&d=1142268089)

[LaSer_26]

ممكن توضح يا اخ سافاج أنته طالب أيه بالظبط ؟؟؟
او أيه الغرض من كل أللي انته حاططو ده !!!!

[hany_java]

السلام عليكم
اخى الحبيب عندى سؤال محير
بعمل برنامج بيتصل بداتا بيس وبيعرض بيانات فى textbox ومن ضمن هذه البيانات بيانات مكتوبه بلغات مختلفه صينى تركى روسى يابانى
وانا عاوز الطريقه اللى اضمن بيها ان البرنامج يعرض النص كما هو لانه فى بعض اللغات بيعرض علامات استفهام بدلاً من النص
انا كنت واجهت هذه المشكله لما اشتغلت بasp والصفحه عربى عن طريق كتابه سطر ال unicode
ولكن لا اعرف حل لهذه المشكله فى الفيجوال بيسك 6
وجزاءك الله خيراً

[IUnKnown]

Savage
thanks for you update
but i didn't work as expected
I have created new files new folders updated files and neither of those actions has been logged
but any how thanks for being interested

[LaSer_26]

السلام عليكم
اخى الحبيب عندى سؤال محير
بعمل برنامج بيتصل بداتا بيس وبيعرض بيانات فى textbox ومن ضمن هذه البيانات بيانات مكتوبه بلغات مختلفه صينى تركى روسى يابانى
وانا عاوز الطريقه اللى اضمن بيها ان البرنامج يعرض النص كما هو لانه فى بعض اللغات بيعرض علامات استفهام بدلاً من النص
انا كنت واجهت هذه المشكله لما اشتغلت بasp والصفحه عربى عن طريق كتابه سطر ال unicode
ولكن لا اعرف حل لهذه المشكله فى الفيجوال بيسك 6
وجزاءك الله خيراً
اعتقد يا صديقي ان حل هذه المشكله من الوندوز نفسه وليس من الفجيوال يعني مثلا لازم يكون الوندوز عندك مجهز لأستقبال اللغه المطلوبه وبذلك يستطيع التعامل معها ويمكنك ذلك من الأختيار لانجويتش اوبشن في الكنترول بانل

[hany_java]

السلام عليكم
شكراً لأهتمامك وبأمانه لا كنت اتوقع الرد بهذه السرعه
بس يا اخى انا اعتقد انه انشاء الله يوجد حل للموضوع ده
فى الفيجوال بيسك
طيب سؤال اخر لو عندى الfont اللى بيكتب يابانى ازاى احلى الtextbox يشوف الفونت ده
علماً بان الطريقه
text1.fontname = "hhhh.ttf
لم تنفع معى"
text1.font =c:/hhh.ttf
ايضاً لم تنفع

[IUnKnown]

الاخ هاني
يمكنك تجربة
Dim fnt As New StdFont
fnt.Name = "Arial"
fnt.Charset = 128
fnt.Size = 15
Set Text1.Font = fnt

هذه الطريقة لضبط الكتابة باللغة اليابانية تحديدا
يمكنك البحث في ال MSDN عن قيم اخري لـ Charset لتناسب كل لغة

[savage]

الاخ IUknown
FindChangeNotification returen value is true or false
it will not containd the changed value
or what is changed
but it will be true if the monitored directory have anyvchange since montoring starats
so if you want to log any change happend with folder you need a function mo monitor your key (Keylogger)
function to get focused windows (enumewindows)
and get last modified files
to monitor allchanged
or simply make a screen capture function with bitblt functions but it in timer when change occur start that timer for aperiod and you can merge all pictures to an avi file to play movie of change
if you want i will write a program to do so for you

[IUnKnown]

Savage,
I have used this function before and I know its capabilities
sure i know it gets u just a notiification about there is a change bot not the change itself. but this is not what ur program does
i have written a program before and it was working OK about reciving the notifications. but it hangs till a notification happens .that was my problem. i've tried urs but id didnot even do that.
about a screen capture program to watch what is the change. this isnot a good idea .the best idea is to watch the file system itself . cos i don't want an open window it is not a good approach.
but any way i'm glad that there was someone interested in that subject
thanks.

[savage]

يعطيكم العافية جميعا و الاخ العزيز Laser_26 خصوصا
انا اعمل على برنامج لحماية الجهاز و واجهتني مشكلة عويصة و هي
انا استطيع القراءة و الكتابة و التعديل و كافة العمليات على الريجيستري و لمن كيف استطيع تغير الصلاحيات حاولت بكل الطرق و اود لو انا احدا يشرح لي الطريقة و انا له من الشاكرين
"اللهم لا علم لنا اللا ما علمتنا"

[LaSer_26]

انته عايز حاجه زي ال مالتي يوزر كده صح

[savage]

انا اللي بدي اياه انو انشئ key في الريجيستري بس و لا اي برنامج تاني يقدر يقراء منه
بعرف اعملها يدوي زي ما تعمل رايت كليك على اي كي و تختار permissions
خلي صح عند read only
و اعمل اوكي عندها لا يمكن ح>ف الكي نهائيا و ممكن تعماDeny access all
وهيك لا يمنكن القراءة منه او حذفه نهائيا

[hadrawy]

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

[LaSer_26]

انا اللي بدي اياه انو انشئ key في الريجيستري بس و لا اي برنامج تاني يقدر يقراء منه
بعرف اعملها يدوي زي ما تعمل رايت كليك على اي كي و تختار permissions
خلي صح عند read only
و اعمل اوكي عندها لا يمكن ح>ف الكي نهائيا و ممكن تعماDeny access all
وهيك لا يمنكن القراءة منه او حذفه نهائيا
موضوع شيق فعلان يا سافاج باشا اعتقد انته عايز تعمل حمايه للبرنامج بتاعك والله الجزئيه دي فيها شغل كتير وانواع مختلفه للحمايات انا شخصيا بستخدم طريقة تشغيل البرنامج بعدد المرات يعني لو البرنامج عايزو نسخه تجريبيه يشتغل 5 مرات مثلا ويقف ويطلب شراء البرنامج او يطلب سيريال علشان يشتغل كامل مكمل

[LaSer_26]

السلام عليكم ورحمه الله وبركاته
ياريت يا اخى لو فيه مساعده عاجله
عايز اعرف طريقه لعمل شغل جرافيك فى الفيجوال بيسيك 6 لمشروع التخرج بتاعى
يعنى مثل تغير شكل الماوس او اى شئ
ولكن ارجو سرعه الرد
وشكرا ليك
والله ممكن تراجع موضوعي الخاص بال skin للفجيوال بيسك وستجده هنا في قسم البرمجه

[savage]

المشكلة انا عامل ريجيستري تريسر يعني اي برنامج بكتب او بيقراء او بيحذف اي شيئ بالريجيستري بيوصلني نوتيفاي على البرنامج بس المشكلة بتكون في هاي النوعية من الكييز

[savage]

اخي العزيز
انا عامل برنامج سيكرين سيفر حلو انشاء الله يعجبك خذ منه السورس كود اللي بيعجبك
و حمله عندك
http://www.bramjnet.com/vb3/showthread.php?t=62969

و اذا حاب تعمل اففك على برنامجك بدون وساطة اي برنامج OCX
استخدم function
animatewindow
سهلة و بتعملك حركات روشه بدل ما تعمل show hide
جرب هاي الدالة اكثر من رائعة
و اذا حاب برفع مثال عليها من عيوني

http://www.bramjnet.com/vb3/showthread.php?t=62969

[LaSer_26]

والله يا أخ سفاج انا حابب أستفيد منك في طريقة حماية البرامج عن طريق ال ocx وكمان انا سامع عن طريقه للحمايه عباره عن سيريال متغير وبيكون مربوط بالتاريخ أو بمعادله حسابيه لو عندك نموذج او شرح للنقطه دي يبقى خدمتني اخر خدمه

[savage]

اخي الكريم من عيوني
انا عامل برنامج حلو واعتبره هدية
مني
هاد البرنامج عبارة عن CreditCard genetaror
ومحمي بنظال الهاردوير key
على الفيجوال بيسك
برفعلك البرنامج و انشاء الله بتحبه بس بليز لا تستعمله بغير محلة
و انت فاهم علي اكيد و اذا ما قدرت تفك الكود
ابعتلي رقم الهاردوير كي تاعك و ان بعطيك السيريال كود و اذا عجبكم كثير برفعلكم السورس كود
حمل البرنامج من هنا (http://www.bramjnet.com/vb3/attachment.php?attachmentid=17662&stc=1&d=1142501321)

[hany_java]

السلام عليكم
الاخ IUnKnown
متشكر لك جداً كنت قد فقد الامل
عموماً الطريقه بتاعتك تبدوا ممتازه مع انها لم تؤدى الى اى تغيير فى النتيجه
يعنى مثلاً اللغه اليابانه تظهر كما هى علامات استفهام
بس الغريبه بقى ان فى الاسبانى بعض الحروف تحولت يابانى
وانا لا امزح والله
بس انا متأكد انى ساصل للحل باستخدام الطريقه التى تقول عليها
ممكن طلب اخير لو عندك طريقه ادون لود بيها ال msdn لأنها مش عندى يكون كتر خيرك
وشكراً

[IUnKnown]

Hany,
I suggest you use the MSDN online, currently I don't have a site that you can download from However you can serach for any Visual Studio6 Cds it is always with them
Attached the output of the program when I run from My laptop
Thanks


sorry for writing in English, but my laptop keyboard does not have arabic characters

[hany_java]

شكراً لك مره اخرى
ممكن تبعت لى السورس كود للفورم ده
و كمان عاوز اعرف الكلام ده فى الاصل يابانى ولا انت حولته بس
فاهمنى
شكراً

[IUnKnown]

Hany
the form is attached. I dont know japanese I just run the program then change the laguage from the keyboars then type any thing
HTH

[thelast_pharon]

Hiiiiii
I Have Problem With Random Files
Can U Help Me?
Sherif

[savage]

for random files you need to idintify var as record
for example we need a random file for student info to do so
write this code

dim Student as type
StNo as long
StName as String
StAddress as string
stTel as string
end type

'now define a variable with tpye of student
Dim Savage as student
' we need to initilaize ali information so
savage.Stno=1
savage.StName="Mahmoud" 'my real name
savage.STaddress="Zarqa Jordan" 'my real address
savage.StTel="0796403362" 'my real telephone
'now we need to open file with random access to write new student so
Open "c:\student.std" for random access Write as #1
Put #1,,savage ' we use put for write and get for read we leave record no with no value to be sure it will append to the file not to modify that record
close #1 ' we finish add the student
' and when we want to read from the file for a student as by student no we do
'lets talk we wantto search for student no 1 then
dim SreachStd as student
dim searchForstdNo as long
dim found as boolean
searchForstdNo=1 'you can change thsi value as you want to search for
Open "c:\student.std" for random access read as #1
found=false
while not eof(1) ' to make a loop for searching
get #1,,Searchstd
if tmpstd.stno=searchForstdNo then
msgbox "StudentFound"
found=true
goto 10
endif
wend
if not found then
msgbox "no student found for thsi student no"
10:close #1

و اي اشي اخر او حاب اعرف اكثر انا حاضر

[LaSer_26]

شكرا أخ savage على مجهودك الرائع لمساعدة الاخرين

[savage]

شكرا أخ savage على مجهودك الرائع لمساعدة الاخرين
شكرا على مروروك و كلملتك و احنا كلنا في خدمة اخوانا

[دموع الفراق]

«®°·.¸.•°°·.¸¸.•°°·.¸.•°®»السلام عليكم ورحمة الله وبركاته«®°·.¸.•°°·.¸¸.•°°·.¸.•°®»
ارجوا مساعدتي في عمل مشروع تعليمي باستخدام برنامج الفجوال بيسك ومشاهدة نماذج لاعمال مستخدم فيها نفس البرنامج



تقبلوا خالص تحياتي
أخوكم

[savage]

اخي الكريم يمكنك
الليك لينك لتحميل سيدي كامل للفيجوال بيسك سروس كود مضغوط بحجم 55 ميجا
تحميل سيدي سورس كود كامل من هنا (http://rapidshare.de/files/16131917/MICROSOFT_Visual_Basic_Source_Utilities.rar) اتمنا ان يعجبك

[hany_java]

السلام عليكم
عندى سؤال مهم
كنت قد سالت سابقاً عن كيف اجعل الtext box يقرأ لغات اخرى من غير ان تظهر لى علامات استفهام ومشكور كل من حاول مساعدتى
ولكن عندما توصلت للحل وجد مشكله اخرى ان الفيجوال بيسك لا يستطيع التعرف الا على الداتا بيس اكسيس 97 فهل هناك طريقه ليتعرف على اكسيس 2000 او 2003
وكلم جزيل الشكر والتقدير

[IUnKnown]

السلام عليكم
عندى سؤال مهم
كنت قد سالت سابقاً عن كيف اجعل الtext box يقرأ لغات اخرى من غير ان تظهر لى علامات استفهام ومشكور كل من حاول مساعدتى
ولكن عندما توصلت للحل وجد مشكله اخرى ان الفيجوال بيسك لا يستطيع التعرف الا على الداتا بيس اكسيس 97 فهل هناك طريقه ليتعرف على اكسيس 2000 او 2003
وكلم جزيل الشكر والتقدير

ماذا تستخدم للدخول على قاعدة البيانات؟ ADO or DAO or RDO

[LaSer_26]

السلام عليكم
عندى سؤال مهم
كنت قد سالت سابقاً عن كيف اجعل الtext box يقرأ لغات اخرى من غير ان تظهر لى علامات استفهام ومشكور كل من حاول مساعدتى
ولكن عندما توصلت للحل وجد مشكله اخرى ان الفيجوال بيسك لا يستطيع التعرف الا على الداتا بيس اكسيس 97 فهل هناك طريقه ليتعرف على اكسيس 2000 او 2003
وكلم جزيل الشكر والتقدير
الفجيوال بيسك 6 يتعامل مع أوفيس 97 أو 2000 لكن ما بعد ذلك مثل 2003 لا يتعامل معها أبدا أللا لو قمت بربط قاعدة البيانات من خلال الكود وليس ال ado وما شابه

[IUnKnown]

الاخ ليزر ( تصحيح بسيط)
فيجوال بيسك 6 يستطيع التعامل مع اي قاعدة بيانات وذلك من خلال ال library الخاصة بها
الكود التالي باستخدام ADO لفتح داتابيس اكسس 2003


Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DB.mdb;Persist Security Info=False"


بالطبع ستقوم باستبدال C:\DB.mdb بقاعدة البيانات الخاصة بك
لا تنس ان تضع فى ال project refrences ال Microsoft Activex Data Objects 2.5 وهي المكتبة الخاصة بالـADO

[savage]

صديقي اذا اعتدت استخدام ال control data
فهذا المنترول لا يتتطيع فتح ملفات الاكسس التي بعد 97
مثلا 2000 xp 2003 و Beta ver of office 12 or office 2007
لذالك اذا ارتد استخدام قواعد بيانتات من هذه الصيغة او الفئة يمكنك استخدام Microsoft active data object
و ذلك باختيار components من قائمة Project
او استخدام الاختصار CTRL+T
و ضع صح في الصنوق المجاور ل Microsoft active data object
و استخدام
انظر الصور في المرفقات
الصورة الاولى
http://www.bramjnet.com/vb3/attachment.php?attachmentid=18427&stc=1&d=1143370942

الصورة الثانية

http://www.bramjnet.com/vb3/attachment.php?attachmentid=18428&stc=1&d=1143370942
الصورة الثالثة

http://www.bramjnet.com/vb3/attachment.php?attachmentid=18430&stc=1&d=1143370942

[IUnKnown]

as from over 10 years experience , I have NOT seen the ADODC used in a real world application.in a running business

[savage]

of course man becouse in real businis they dont allowed access becouse of its restriction and limition recored and low of security
so no real work will be done that way but here alot of users use data control for making data base and most of them use access 97
so i tried to make it easy for them to use such a control like that and its never mean i use it sweet heart
thank for your nice replay
and

[LaSer_26]

الاخ ليزر ( تصحيح بسيط)
فيجوال بيسك 6 يستطيع التعامل مع اي قاعدة بيانات وذلك من خلال ال library الخاصة بها
الكود التالي باستخدام ADO لفتح داتابيس اكسس 2003


Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DB.mdb;Persist Security Info=False"


بالطبع ستقوم باستبدال C:\DB.mdb بقاعدة البيانات الخاصة بك
لا تنس ان تضع فى ال project refrences ال Microsoft Activex Data Objects 2.5 وهي المكتبة الخاصة بالـADO




شكرا على المعلومه انا أعرف ان الفجيوال بيسك 6 يتعامل مع اي قاعدة بيانات لكن أذا تم ربطها بالكود وليس عن طريق تحديد قاعدة البيانات من خصائص ال ado هذا ما كنت أقصده

[fhad2006]

الاخ المحترم اسا الله ان يوفقك وان يسددخطاك الى الامام
ودي اعرف الفروق بين لغة السي++ والفجوال بيسك ولغة السي شارب
ارجو مساعدتي في هذاا الموضوع
ولك مني جزيل الشكر والامتنان

[LaSer_26]

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

[hany_java]

شكراً لكم جميعاً
وخاصهsavage IUnKnown LaSer_26
وجزاكم الله خير جزاء
هجرب واحاول وارد عليكم
المشكله بس ان البرامج الذى اعمل على تعديله مربوط فعلاً بقاعده بيانات على الاكسيس 97 ومش عارف ايه الطريقه المعمول بيها الربط ده
بس عموماً شكراً لكم واذا سامحتوا لى ساجرب واقول لكم على النتيجه

[LaSer_26]

خد راحتك يا هاني و تحت امرك في أي وقت

[fatima_ak]

بسم الله الرحمن الرحيم
أنا بحاجة ماسة للمساعدة :
السؤال كالتالي ___ :
كيف نستطيع برمجيا برمجة scroll bar لمجموعة من textboxes لعرض 20 صف من ال text boxes وكل صف فيه 4 أعمدة من صناديق النص - في كل نقرة على ال scroll bar العمودي يتم فقط عرض ال 20 صف مع العلم لدي 50 صف .
بمعني لدي text boxes array وأريد عرض كل 20 صف مرة واحدة .

أرجو الرد في أقرب وقت ..
مسألة حياة أو موت

[savage]

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

[fatima_ak]

هذا الملف يوضح ما أقصده .:

[IUnKnown]

بسم الله الرحمن الرحيم
أنا بحاجة ماسة للمساعدة :
السؤال كالتالي ___ :
كيف نستطيع برمجيا برمجة scroll bar لمجموعة من textboxes لعرض 20 صف من ال text boxes وكل صف فيه 4 أعمدة من صناديق النص - في كل نقرة على ال scroll bar العمودي يتم فقط عرض ال 20 صف مع العلم لدي 50 صف .
بمعني لدي text boxes array وأريد عرض كل 20 صف مرة واحدة .

أرجو الرد في أقرب وقت ..
مسألة حياة أو موت

اذا كانت المسألة في سكرول بار يتحكم في ظهور مربعات النص فالحل في المرفقات

[fatima_ak]

جزاك الله خير الجزاء يا أخي
الله يبارك فيك والله خدمتني خدمة كبيرة

[fatima_ak]

بسم الله الرحمن الرحيم
بعد أن أنزلت المرفقة تبين أن ال picture box لا يكفي الا الى 30 سطر من ال text box وأنا أريد أن أدخل على الأقل 50 صف ؟؟؟!!!
أرجو المساعدة اذا حد عارف
شكرا

[IUnKnown]

يوجد picInner ,picOuter
الداخلية هي التي تحتوى على الـ text boxes فعلا والخارجية هي ما يظهر فقط وتحتوى على ال Scrollbar وهي التي يتم الـ Scrolling على اساس الفرق في الارتفاع بينها وبين الداخلية
يمكنك زيادة ارتفاع الداخلية الى ماشئت ووضع مربعات نص الي الحد الذي تريدين وحتى تستطيعي التحكم بسهولة من الخصائص Properties اجعى ال Top للداخلية = -500 او 1000 خاصية Height زيديه حتى تصلي القيمة المناسبة التي تمكنك من اضافة المزيد من ال textboxes ثم بعد نهاية التصميم قومي بوضع top = 0 للداخلية

انصحك باستخدام VS Flex Grid Pro 8.0 بدلا من هذه الطريقة المعقدة

[fatima_ak]

شكرا
فكرت في ال flex grid ولكنها لا تستطيع ادخال البيانات مباشرة الا برمجيا ولو انها تفعل ذلك لاستخدمتها من الأول .
جزاك الله كل الخير

[عبد-الباسط]

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

[IUnKnown]

شكرا
فكرت في ال flex grid ولكنها لا تستطيع ادخال البيانات مباشرة الا برمجيا ولو انها تفعل ذلك لاستخدمتها من الأول .
جزاك الله كل الخير

انا لا أقصد ال MSFlex بل أقصد ال VS flex
من هنا (http://download.pchome.net/php/tdownload2.php?sid=649&url=/development/database/Flex7.0.1.151eval.EXE&svr=2&typ=1)

[fatima_ak]

أخي الكريم
الرابط لا يعمل !!!!!!!!!!!!!!!!!!

[fatima_ak]

أخي الرابط لم يعمل معي !!!!!!!!!!!!
الرجاء ارفاقه مرة أخرى

[IUnKnown]

أخي الرابط لم يعمل معي !!!!!!!!!!!!
الرجاء ارفاقه مرة أخرى

الاخت
يمكنك زيارة هذا الموقع وتحميل النسخة التجريبية ثم استخدام احد هذه الارقالم للتسجيل
S740101-JA-123456
S740174-PD-270924
الموقع من هنا (http://www.bramjnet.com/vb3/www.componentone.com)

[fatima_ak]

شكرااااااااااااااااااا

[AlOmmda]

هنا المزيد من الشركه المنتجه للـ Flex7 http://download2.componentone.com/pub/oldstuff/

[black_tiger_2006]

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

سؤالى اخى الكريم عن تامين قاعدة بيانات مصممة بالاكسيس عن طريق انشاء كلمة مرور لقاعدة البيانات وحمايتها والسؤال هو باستخدام تقنية Ado كيف تفتح قاعدة البيانات المربوطة ببرنامج الفاجوال بيزك عن طريق ادخال كلمة مرور قاعدة البيانات فى البرنامج نفسة ارجو يكون السؤال واضح وارجو الاجابة وشكرا

[black_tiger_2006]

waaelahmed انا عارف الاجابة على سؤالك بس حاول تعرفها بنفسك عشان الانسان لما بيوصل لشىء بنفسة بيثبت فى عقلة ومش بينساة

[ebnalhjaj]

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

[iesa-05]

احتاج اخى الحبيب الى مثال جاهز عن المسنجر الوهمى يلى يقوم بحفظ الباسورد واليوزر نيم على هيئة مستند نصى على اى قرص من الاقراص وبارك الله فيك يا خبيرنا

[bougis]

السلام عليكم ورحمة الله وبركاتة
لو ممكن متال تستخدم فىه dao مع datagrid و flexgrid
جزاك الله خير الجزاء يا أخ:bye: :bye: :bye: :bye: :eyelove: :eyelove: :eyelove: :eyelove:

[joojo13]

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

[chilz]

هلا اخي :
هل استطيع تحويل برامج ال vb إلى برامج جوالsis.

[kobre98]

مشكور على هذا الموضوع
انا عندي سؤال
هلقيت عندنا صندوقي نص فيهم رقمان بدي امسهم لما اضغط على زر ممكن تقلي شو الجملة البرمجية اللي اكتبها للزر

[حواء من هذه الأرض]

ttp://www.jojokw.net/uploading1/ap.GIFانا عندي سؤال كيفاكتب الاكواد ما هي القواعد العامة لكتابة الاكواد...
وكيف اسوي وابرمج الحركة التالية في الفيجول بيسك كما في الصورة

[حواء من هذه الأرض]

حواء من هذه الأرضانا عندي سؤال كيفاكتب الاكواد ما هي القواعد العامة لكتابة الاكواد...
وكيف اسوي وابرمج الحركة التالية في الفيجول بيسك كما في الصورة
http://www.jojokw.net/uploading1/ap.GIF

[saadation]

لو سمحت يا اخي انا مبتادئ في الفيجوال بيسك لكن انا حبب اللغة دي فا انا في البداية من الاختبارات وانا عملت المشروع تمام لكن الكود الخاص بالتخزين مش عارف اعملو صح فى كل الحالات من text box و richtxt اتمني لو تعرفني الكود الصحيح وياريت احد المبرميجين يعطيني اميلو بليز علشان يساعدني واتمني ان يكون كلامي وصلكو
وياريت علشان انا قربت احس باليأس اجو المساعدة

[Never]

السلام عليكم عندي سؤال هو كيفيه برمجه مخارج الكمبيوتر مثل بورت الجويستيك عندما يضغط عليها المستخدم تسجل نقطه في لابل بالبرنامج مثلا . مخرج سلك النت تليفون بحيث اصمم برنامج يحسب زمن المكالمه عندما يرفع المستخدم السماعة ويفتح الخط !
ولك جزيل الشكر
اخوكم Never

[brae0000]

مشكور على هذا الموضوع

[أنصار الله]

السلام عليكم ورحمة الله
ممكن سؤال عن كيفية صناعة التقارير بواسطة الرسم علي البيكتشر مش الكريستال ريبورت
ويا ريت كتاب يعلم الرسم علي الفورم او البيكتشر بوكس

[@...Khalefa]

السلام عليكم عندي سؤال هو كيفيه برمجه مخارج الكمبيوتر مثل بورت الجويستيك عندما يضغط عليها المستخدم تسجل نقطه في لابل بالبرنامج مثلا . مخرج سلك النت تليفون بحيث اصمم برنامج يحسب زمن المكالمه عندما يرفع المستخدم السماعة ويفتح الخط !
ولك جزيل الشكر
اخوكم Never

!This ActiveX component may help you

[Black_knight-1]

كيف ممكن تحويل الاحرف الى ارقام و بلعكس بين مربعي نصوص
وشكرا

[@...Khalefa]

كيف ممكن تحويل الاحرف الى ارقام و بلعكس بين مربعي نصوص
وشكرا

ياريت لو توضح بمثال

[mr.VB]

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

ولك جزيل الشكر

[feky1]

سؤال لو سمحت أخ ليز
بصراحه انا مش عارف أسأل أزاى بس يارب أقدر أوصلك اللى انا عوزه
شوفت برنامج المطاعم مثلاً
اللى بيكتب الزبون هياخد كذا
مثلاً
واحد أرز
واحد ملوخيه
واحد كفته
وهكذا
أزاى انا أعمل كده فى البرنامج بتاعى
بمعنى أخر
أنا هحط 3 تكست علشان الراجل يكتب فيهم اللى الزبون خده
بس أفرض الزبون أخد 4 حاجات يبقى أيه العمل
يارب أكون وصلتلك انا عاوز أيه
وياريت لو يكون الجواب مع مثال
وشكراً

[hakimino2002]

السلام عليكم
اخي العزيز كيف يمكنني رؤية صفحة ذات امتداد html. في التكست بوكست
وشكرا

[أبو بشار 2006]

أولا: هل يدعم الفيجوال بيسك 6 أو .net اللغة العربية ؟

ثانيا : بلغة الفيجوال بيسك 6 أو .net كيف يمكنني عمل نص باللغة العربية وتحته خط

مثلا آيات قرآنية والقارئ يتلو الآيات و خط يلاحق التلاوة تحت الآيات وعلى يمين الفورم زر
بحث يبحث في نص الايات

أي إذا وضعت كلمة موجودة في آية يبحث في الآيات التي تحمل نفس الكلمة

أريد الكود لو سمحت

. أفيدوني جزاكم الله خيرا

[مسلم]

ممكن واحد منكم يشرح لي الكود هذا للـ VB.....انا اعرف وظيفته ولكني كلما احاول ان اعرف كيف الكود يعمل ماقدر استوعب:

If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." Then
e.Handled = True
==============================
(If (e.KeyChar < "0" OrElse e.KeyChar > "9"
هذا الكود على حسب فهمي يبين انه اذا فيه اي رقم اقل من الصفر واكبر من التسعة فلا تسمح له بالظهور على خانة التعبئة....لكن العجيب عندما اضع في خانة التعبئة رقم اكبر من تسعة, يظهر لي ولكن اقل من الواحد لايظهر! كيف هذا؟

AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <>"."

وهذا الكود يقول (: واسمح للمستخدم ان يضغط Back Space اذا اراد وان يضع النقطة ولكن العجيب انه يوجد اشارة لاااا وهي <>!! فكيف يسمح للمستخدم استخدام الـ Backspace ووضع النقطة. ممكن التوضيح

ان شاء الله تكونوا فهمتوا قصدي.....ارجو المساعدة

[@...Khalefa]

أولا: هل يدعم الفيجوال بيسك 6 أو .net اللغة العربية ؟

ثانيا : بلغة الفيجوال بيسك 6 أو .net كيف يمكنني عمل نص باللغة العربية وتحته خط

مثلا آيات قرآنية والقارئ يتلو الآيات و خط يلاحق التلاوة تحت الآيات وعلى يمين الفورم زر
بحث يبحث في نص الايات

أي إذا وضعت كلمة موجودة في آية يبحث في الآيات التي تحمل نفس الكلمة

أريد الكود لو سمحت

. أفيدوني جزاكم الله خيرا

بسم الله

http://www.bramjnet.com/vb3/showthread.php?t=159171

[ar.younes]

salut a tous, comment on peut creer une application qui peut se gérer sur le réseau local

[اشرف صلاح الدين]

كيف اكتب كود لتحديد ميعاد معين في يوم معين بصوت تنبيهي وشكراً

[اشرف صلاح الدين]

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

[memouz]

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

[shady mohamed rashad]

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

ارجو المساعده ضرورى


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

اخوك شادى