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

شباب أي سؤال عن الفيجوال بيسك أو الفلاش أنا مستعد
ولتأكيد إحترافي بالبرمجه أرجوا تحميل برنامجي
http://www.bastr3.com/bastr3_.exe
وللمزيد من المساعده حول البرنامج أنظر الصفحة
http://www.bastr3.com
للإتصال :
bas24u@hotmail.com
بسام العيساوي 0096277952590

Assalamu Alaykom,

Let's see - this my previuos thread, I posted it here

My Question is...
How can I display all folders (even hidden/system folders) in the DirListBox ?

some notes to make things more clear:
- I can get the hidden folders by other ways, BUT I need to display them in the DirListBox.
- There's no property for the DirListBox concern hidden items as for FileListBox.

If any one can help me, I really appreciate it.

peace

وين اخونا جاوب على السؤال ؟
اذا ماجيت في ظرف يومين اعذرني بتدخل وارد ...
اممممممممم شكلك مبرمج محترف ,.,
بس اذا ماتعرف انجليش هذي ترجمة رد اخونا باختصار
يبي الاداة DirListBox في الفيجوال بيسك ( مستعرض الملفات ) ,,,
يوريه حتى الملفات المخفية و ملفات النظام ...
ياليت تجاوب في اسرع وقت ...

I didn't say hidden files! I said hidden folders

Hi;
The DirListBox is not useful in this case as I know.
You can use the Open dialog box or the Save dialog box by using the CommonDialog, so this work the same as Windows Explorer. I mean if the user choose from folder options to show the hidden and system files and folders it will show them at runtime, else it will not.

قريبا بعد العيد سأرد على هذا الموضوع
توقعت يكون في أسئله أكثر من هذا السؤال
أنا آسف على التأخير بس لآني كنت مسافر مده عشر أيام
رح أرد على السؤال بعد العيد مباشرة وإللي عنده أسئله يسأل
وشكرا لك

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

السلام عليكم إخواني الأعزاء

في البدايه بحب أحكيلكم إنو البرمجة مش كود بتم حفظه وإنما ذكاء ودمج أكواد للوصول إلى مانريد

السؤال الذي طرح علينا هو إظهار الفولدرات المخفيه في الكنترول دير وقال أحد المشاركين أن هذا مستحيل ولكن لاشيء مستحيل مع الذكاء :)

ماقمت به في هذا المثال هو دراسه الكنترول دير وجدت أنه يظهر جميع الملفات والفولدرات الظاهرة أما المخفيه فلا يمكنه إظهارها .. إذن يجب علينا إظهار الفولدرات المخفيه ويمكن إظهارها عن طريق الدوس بالجمله التاليه

dir /A

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

dir /A >>c:\bas.txt

والفيجوال بيسك يمكنه فتح الملفات وقرائة مابها ولذلك قمت بفتح الملف الناتج ولاحظت أنه كل فولدر يكون مكتوب قبله

<Dir> Name Folder

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

وبعد إنتهاء العمليه السابقه أقوم بشطب الملفات التي قمت بتحريرها

وهنا شرح الكود وبتمنى ماتحكوا إنو في شي مستحيل لآنو مامستحيل إلا المستحيل

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

****************************************************************************

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

*****************************************************************************



Option Explicit

'هذا الإي بي آي لتنفيذ البرامج وكأنها على رن _تنفيذ في قائمة إبدأ
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 '

'هنا عرفت مصفوفه لمعرفه الفولدرات التي لها خاصيه الإختفاء أو الهيدين بالإنجليزي
Dim ArrTD(1000) As String

'هنا عرفت متغير لآعرف كم عدد الفولدرات التي قمت بإظهارها لسهوله إخفائها مرة أخرى
Dim KI As Integer

'في الكود الخاص بالدي آي أر عند الحدث شينج كما نرى نكتب هذا الكود
Private Sub Dir1_Change()

'هذه الجمله تكتب في حين وجد خطأ لايمكن تجنبه وقمت بوضعها لآن هناك خطأ في تغيير خاصيه الإظهار والإخفاء في المصفوفه صفر عند أول تنفيذ وسترى ذلك فيما بعد
On Error Resume Next
Dim intFreeFile As Integer
Dim PathBSM, DDir As String
Dim TextLine As String
Dim YT As Integer

'هنا قمت بعمل دوال للمرور بكل الفولدرات التي تم إظهارها في المرة السابقه وإخفاؤها من جديد
For YT = 0 To KI
FileSystem.SetAttr ArrTD(YT), vbHidden
Next YT
KI = 0
intFreeFile = FreeFile

'هنا قمت بالتأكد من أن الفولدر على الرووت أم داخل فولدر آخر وذلك لأنه إذا كان على الروت سيكون كما يلي C:\ وفي هذه الحاله إذا زدت باك سلاش سيعطيني إرور كبير بتمنى تكون فهمت شو القصد من هاي الحركة
If Len(Dir1.Path) < 4 Then
PathBSM = Dir1.Path & "bas.bat"
DDir = Dir1.Path
Else
PathBSM = Dir1.Path & "\bas.bat"
DDir = Dir1.Path & "\"
End If

'هنا أقوم بكتابه ملف تنفيذي ليعطيني الفولدرات المخفيه والظاهره جميعها في ملف تكست على السي إسمه باس
Open PathBSM For Output As intFreeFile
Print #intFreeFile, "dir /A >>c:\bas.txt"
Close #intFreeFile


'هنا أقوم بتنفيذ الملف التنفيذي على الدوس كما شرحنا سابقا
ShellExecute Me.hwnd, "open", PathBSM, "", "c:", 0


10:

'هنا أقوم بتنضيف الخطأ لكي لايبقى في دوامه ويتم تعليق البرنامج
Err.Clear
DoEvents

'هنا أقوم بفتح الملف الناتج عن الملف التنفيذي السابق ويحتوي هذا الملف على أسماء الفولدرات والملفات المخفيه والظاهرة
Open "c:\bas.txt" For Input As #1 ' Open file.

'هنا أسأل إذا كان الملف تم إنشاؤة أم مازال ينشأ وهذه الطريقه غير فعاله ولكن هذا مااستطعت فعله وإذا مازال لم ينشأ نعود إلى الرقم عشرة في الأعلى وهكذا حتى يتم الإنشاء
If Err.Number = 53 Then GoTo 10


Do While Not EOF(1) ' Loop until end of file.

'هنا أقوم بقراءه الملف سطر سطر
Line Input #1, TextLine ' Read line into variable.

'هنا قمت بعمل دوال يمشي على جميع الحروف في السطر الذي قمت بأخذه ويأخذ خمسه حروف في كل مرة
For YT = 1 To Len(TextLine)

'هنا أسأل إذا كانت الحروف الخمسه تساوي كلمة دير أقوم بإقتطاع بعد هذه الحروف عشرة حروف لآنها فراغات وآخذ الكلمة وهي إسم الفولدر وأسأل إذا كان هذا الفولدر مخفي أي يساوي الرقم 18 إذن
If UCase(Mid(TextLine, YT, 5)) = UCase("<Dir>") Then
If FileSystem.GetAttr(DDir & Mid(TextLine, YT + 15)) = 18 Then

'أول شيء هو إظهار هذا الفولدر
FileSystem.SetAttr DDir & Mid(TextLine, YT + 15), vbNormal

'ثاني شيء تخزين إسمه والباث لكي أستطيع إخفاؤة بعد الخروج من الفولدر
ArrTD(KI) = DDir & Mid(TextLine, YT + 15)

'ثالث شيء زيادة العداد الخاص بالمصفوفه رقما واحدا للفولدر الذي يليه إن وجد
KI = KI + 1
End If
End If
Next YT
Loop

'هنا أقوم بإغلاق الملف باس دوت تكست
Close #1 ' Close file.

'وهنا أخيرا أقوم بحذف الملفين الذين قمت بإنتاجهما لكي لايلاحظ المستخدم الخطة التي إستخدمتها :)
Kill PathBSM
Kill "c:\bas.txt"

'هنا أقوم بعمليه تحديث للكنترول دير لإظهار الملفات التي كانت مخفيه بالأول
Dir1.Refresh

End Sub

Private Sub Drive1_Change()

'هذا الأمر لشبك الكنترول درايف مع الكنترول دير
Dir1.Path = Drive1.Drive
End Sub

قم بتنزيل الحل السابق من هنا

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

وراح أكون ممنون

ممكن بسرعة



:biggthump

' |\/\/\/\/\/|

' | |

' | | bassam al-essawi

' | | http://www.bastr3.com

' | __ __| Email:bas24u@hotmail.com..

' | / \/ \

' | (o )o )

' /C \__/ --.

' \_ , -'

' | '\_______)

' | _)

' | |

' /`-----'\

' / \

General:

Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2

'هذه الجملة للتحقق من أن المؤشر فوق الآيكون على الستاتس بار
Private Const WM_MOUSEMOVE = &H200


Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4



'جملة الكليك اليسار .
Private Const WM_LBUTTONDBLCLK = &H203 'دبل كليك
Private Const WM_LBUTTONDOWN = &H201 'الضغط على زر الماوس
Private Const WM_LBUTTONUP = &H202 'رفع الضغط عن زر الماوس

'جملة الكليك اليمين .
Private Const WM_RBUTTONDBLCLK = &H206 'Double-click
Private Const WM_RBUTTONDOWN = &H204 'Button down
Private Const WM_RBUTTONUP = &H205 'Button up

'إستدعاء آه بي آي .
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Dim nid As NOTIFYICONDATA

'أكتب هذا الكود عند الفورم بالحدث لود أو تحميل بالعربي
'إذا كان عندك فورم إم دي آي لازم تكتب هذا الكود في الإم دي آي لود
Private Sub Form_Load()
Me.Hide
nid.cbSize = Len(nid)
nid.hwnd = Me.hwnd
nid.uId = vbNull
nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
nid.uCallBackMessage = WM_MOUSEMOVE
nid.hIcon = Me.Icon
'هذا السطر للكلمة أو الكلام إللي رح يطلع لما تترك المؤشر على الآيكون في الستاتس بار زي شرح صغير
nid.szTip = "My System Tray Message" & vbNullChar

'يتم إستدعاء Shell_NotifyIcon لإضافة آيكون على الستاتس بار
Shell_NotifyIcon NIM_ADD, nid
End Sub

'قم بعمل منيو عن طريق menu editor
' أول جزء من المنيو قم بجعل الخصائص لها كالتالي >> Caption"Menu" name "M"
' قم بإنشاء منيو فرعيه بالخصائص التاليه >> "Exit" name "Ex"
'إجعل الخاصيه "visibility" من صندوق الخيارات مخفيه

'في الحدث حركة المؤشر على الفورم أكتب مايلي :)
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long
Dim sFilter As String
msg = X / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDOWN
' أكتب الشيفرة التي تريد إذا كان الحدث للمؤشر ضغط
Case WM_LBUTTONUP
' إذا كان الحدث أب
Case WM_LBUTTONDBLCLK
' إذا كان الحدث دبل كليك للزر الأيسر للفأره
Me.Show
Case WM_RBUTTONDOWN
' إذا كان الزر الأيمن للفأره مضغوط
Case WM_RBUTTONUP
' عن رفع الزر الأيمن من الضغط
Me.PopupMenu m 'إستدعاء المنيو
Case WM_RBUTTONDBLCLK
' عند الضغط دبل كليك بالزر الأيمين للفأرة
End Select
End Sub

'تكتب هذه الشيفرة في حالة إغلاق البرنامج
Private Sub Form_Unload(Cancel As Integer)
'نخفي الفورم ونقوم بإلغاء إغلاق البرنامج
Me.Hide
Cancel = 1
End Sub

'عند المنيو الفرعيه الخاصة بالخروج نكتب الشيفرة التاليه
Private Sub Ex_Click()
'ليتم إزاله الآيكون من الستاتس بار
Shell_NotifyIcon NIM_DELETE, nid
End
End Sub

Private Sub Sh_F_Click()
Me.Show
End Sub


الحل السابق مرفق بملف الكود وشكرا :)

:cool: كيف يمكنني أن أدرج فلاش في الفيجوال بيسك ؟

أريد رد سريع أخوي وشكراً لك :ciao:

السلام عليكم

عندي كم سؤال .........................

1.كيف نربط بين الفيجول بيسك نت و برامج الأوفيس(الشفره).

2.كيف نحول .swi إلى .swf او gif او spi .

:reporter:

من يدلني على كود منع نسخ برامج ال vb

pleaseeeeeeeeeeeeeeeeeeeeee:ciao:

السلام عليكم
لو سمحتم أريد أداة sendmail للفيجوال بيسك
وشكرا

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

[[[[ Qute ]]]]-------------------------------------------------------------
I can get the hidden folders by other ways, BUT I need to display them in the DirListBox
--------------------------------------------------------------------------
عاى أية حال شكرا على المحاولة

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

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

الســــــلام عيكم:
أتمنى الرد بسرعة......
كيف أحذف عددة عناصر من القائمةList دفعة واحدة..........
هذا الكود...يحذف عنصر واحد
x = list1.listindex
list1.removeitem x
بس كيف أحذف عددة عناصر مع بعض؟؟؟؟؟؟؟؟

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


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



اخوك المخلص
طنـــــــطل :ciao:

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

لو سمحت أنا أول مرة اشترك بالمنتدى وأنا أقوم بعمل برنامج من خلال VB.Net وهذا البرنامج يقوم بعرض الجدول الذي تم انشاؤه من خلال برنامج الأكسس وأنا أريد كود عرض السجل التالي ,السجل السابق،السجل الأول ,السجل الأخير:biggthump :biggthump :biggthump
:reporter: :reporter: :reporter: :wow: :31: :31: fifi_86@maktoob.com

الرجاء ارسال رد قبل نهاية الأسبوع:vereymad: :vereymad: وشكرا

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

جزاكم الله خيرا برجاء الرد سريع جدا:(

السلام عليكم ورحمة الله وبركاته
اخى الكريم يامحترف الفجوال انا عندي صوره واريد ان اعمل لها تحسين على مستوى البكسل
(بعد تحويل الصوره الى اللون الرمادي)
وانواع التحسين المطلوبه هي :
1- السطوع brightness: وهي زيادة شدة الاضاءه في الصوره ويتم ذلك باستخدام المعادله التاليه
N=P+C
N:البكسل الجديدة , P:البكسل الاصلية , C: قيمة ثابته .
(بشرط الا تتجاوز البكسل الجديدة 255)
2- التعتيم Darkness: ويقصد بها زيادة تعتيم الصورة والمعادله
N=P-C
(بشرط لاتتجاوز قيمة البكسل الجديدة القيمة صفر(0) )
3- التباين: وهو مقدرا توزيع الرمادي في الصورة , فكلما كان توزيع قيم تدرجات الرمادي في الصورة متضاربه كلما كان التباين افضل , وكلما كانت الصورة تميل الى البياض أو السواد يكون التباين اقل.
4- عكس الصورة Negative:
وعادتا مايتم استخدام هذه الطريقه في الصورة الثنائيه بعكس قيم الصفر الى واحد وبالنسبه لتدرج الرمادي يتم بالمعادلة التالية:
( N=(2^L-1
حيث L عدد البت في البكسل
5- العتبة thresholding :
عباره عن قيمة تفصل بين مجموعة قيم وعادتا ماتستخدم للتحويل من الرمادي الى الثنائي ويمكن ان يكون للصورة اكثر من عتبة(النقطة هذه بالذات لم افهمها مطلقا )
انا مجتاجة احول هذه العبارات الى كود برمجي بالفجوال اعتقد لازم نستخدم ست بكسل وجت بكسل
المهم ارجو الرد السريع اذ امكن وانا فصلت الموضوع من اجل ان يستفيد الجميع :D


ولكم جزيييييييييييييييييل الشكر والتقدرير

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

بالفيجوال بيسيك ولازلت مبتدئ فعندي كثير جداً من الأسئلة لذلك كن صبور معي

فربما بنظرك هذه الاسئلة تافهة لكن بالنسبة للمبتدئ هي اسئلة هامة منها علي سبيل المثال:-

1- عند كتابة الكود beep فانه يصدر صوت فهل هناك كود اخر يصدر صوت اخر؟

2- عند اضافة command button هل استطيع تغير الون الفونت بداخلة؟

3- واسئلة كتيرة ومش عارف ليه رد ومش عارف حد هيرد علية ولا لا!
:vereymad: :vereymad: :vereymad:
:17: :17:
:12:

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


اخي انا اريد معرفة كيفية عمل الحدث resize تبع الفورم

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


وشكرا

اخوك المبرمج زيد

أخي هاك الكود :

كود:

---

 
Private Sub Form_Resize()
Text1.Left = (Me.Width - Text1.Width) / 2
Text1.Top = (Me.Height - Text1.Height) / 2
End Sub

---

وإذا بتحب أي خدمة ثانية أنا بالمرصاد :biggthump ( خبرة 5 سنوات )

أخي nehad4472

بالنسبة لك :
1 - أولاً الأمر Beep هو لإصدار صوت من سماعة الجهاز ( بدون السماعة الخارجية )
ويمكنك أن تلعب به بواسطة الـ API الخاصة به وهو

كود:

---

 
Private Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

---

ويمكنك تحديد درجة التردد والمدة كما في الكود التالي :

كود:

---

 
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Beep 1000, 1000
End Sub

---

أو بإمكانك تشغيل صوت من ملف أنت تختاره بواسطة الدالة sndPlaySound كما
في المثال التالي :

كود:

---

 
 
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Command1_Click()
sndPlaySound "c:\1.wav", 3
End Sub

---

حيث أنه يوجد زر Command1 عندك على الفورم .

2 - بالنسبة للزر تستطيع تغيير لونه فقط يعني الخارجي وذلك
بضبط الخاصية Style على القيمة 1 يعني Graphical وتغيير لون الخلفية
أما بالنسبة للون الخط فوالله ما عندي علم بذلك

أما أنت يا أخي AHMEDASHRAF

فكيفية التعامل مع البار هي من خلال أهم قيمة وهي Value

فمثلاً إذا أردت معرفة قيمته بإمكانك كتابة الكود التالي :

كود:

---

 
Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
End Sub

---

وقس على ذلك ما شئت

ممكن ativex لو سمحت

لو سمحت
انا عندي فلاش وابغى اعدل علية
المشكلة ان الفلاش مكتوب باللغة العربية واذا فتحتة علشان اعدل علية تخرب اللغة
والفلاش 2004 الي عندي لايدعم اللغة العربية

ابي برنامج او اي شي يخلي الفلاش 2004 يدعم اللغة العربية

ومشكووور

يعني مافيش رد على سؤالي :17:

أنا والله ما عندي خبرة في الفلاش ...



وما أقدر أساعدك !!