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

[bas24u]

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

[LastBinary]

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

[Y a z e e d]

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

[LastBinary]

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

[M_MohabS]

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.

[bas24u]

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

[bas24u]

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

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

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

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

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

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

[bas24u]

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

[بارييت]

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

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

[بارييت]

ممكن بسرعة

[bas24u]

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

' | |

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


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

[salmanway]

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

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

[huss@in]

السلام عليكم

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

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

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

[سيف طارق]

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

pleaseeeeeeeeeeeeeeeeeeeeee

[رياض]

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