معلومة كل يوم

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

معلومة أخرى وأتمنى أن تكون مفيدة

يمكنك الوصول إلى الأدواة التي على النماذج المختلفة من أي مكان في أي نموذج آخر

على سبيل المثال لو فرضنا بأنك تريد الوصول إلى مربع النص الموجودة في النموذج الخامس تكون كتالي :.

from5.text1.text="i love arab team forum"

أتمنى الكلام يكون مفهوم ومفيد .. :)

ولا تحرمونا من علمكم يا شباب

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

معلومة أخرى ( صارت معلومة كل دقيقة مو كل يوم :) )

طبعاً كلنا يعرف أن البرنامج إذا تعرض لخطأ ما فإنه يظهر الرسالة المعتادة ( أسميها رسالة الموت ) والتي يعقبها موت البرنامج بصورة مفاجأة تصيب المبرمج بإحباط كبير

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

On Error GoTo pfix


pfix:
Err.Clear

مع مراعات أن pfix يمكن تغييرها إلى الاسم الذي تحب وهنا لن يموت البرنامج إلا في بعض الحالات الشاذة التي يمكن أن تعرفها مباشرة عندما تقوم بترجمة البرنامج إلى EXE

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

سلام :)

السلام عليكم

لجعل كائن معين زر مثلا يكون متابعا للماوس دائما نضيف الكود التالي

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Move X, Y
End Sub

السلام عليكم

لمعرفة خصائص class او مكتبة او دالة معينة كل ماعليك فعله هو ضغط مفتاح F2 ,و كتابة اسم الكلاس او المكتبة المعنية

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

أذكر معلومة أخرى ..

يمكن تشغيل زر معين موجود في نموذج آخر بالطريقة التالية :.

form2.command2.value=true

على افتراض أننا نقوم بكتابة هذا الكود في form1 وعلى الزر command1

:) ان شاء الله المعلومة تكون مفيدة

السلام عليكم

عند التعامل مع database و لست متاكدا من انها فارغة ام لا و اعطيت الامر

data1.recordset.movlast

و لم يكن هناك اي record بالداتا سيعطيك البرنامج error

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

هنا عليك اضافة السطر التالي في المكان المتوقع فيه الخطأ

on error resume next

السلام عليكم

لا شك أن الكثير منا لاحظ تلك البرامج التي تتفاعل مع زر الإدخال Enter

خاصة عندما يكون في البرنامج حقول لإدخال البيانات

حسناً أنت بحاجة إلى اختبار الحرف الذي يضغطه المستخدم فإذا كان 13 ( بلغة آسكي طبعاً ) فإنه يتفاعل مع الحدث

أعطي مثال

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

في حدث الضغط على زر الإدخال على مربع النص 1 .. يقوم البرنامج بالانتقال إلى مربع النص الثاني text2

ان شاء الله المعلومة تكون مفيدة

السلام عليكم

لمعرفة مقاس الشاشة اجعل الفورم ياخذ الخاصيةmaximised واقسم عرض الفورم على15 و كذلك ارتفاعه

مثلا

dim x as     integer,y as integer
/15x=form1.width
y=form1.height/15

شكرا للأخوان اللي شاركوا في هذا الموضوع المفيد

اضيف كود لكتابة نص ثلاثي الابعاد

طبعا على الفورم تضع مربع صوره ومربع نص

وفي الحدث

Text1_Change

تضع الكود التالي

Private Sub Text1_Change()

'في البدايه يجب ظبط خاصية الصوره autoredraw
'على القيمه true
'ثانيا عليك ظبط حجم الخط في الصوره

' مسح الصوره
Picture1.Cls

For intCount = 1 To 250
    'لون النص سوف يصبح أصفر
    Picture1.ForeColor = RGB(intCount + 1, intCount + 1, 0)
    
    Picture1.CurrentX = intCount 'التحرك الى مكان النص
    Picture1.CurrentY = intCount
    ' طباعة النص على الصوره
    Picture1.Print Text1.Text
Next intCount

End Sub

مع تحياتي للجميع

السلام عليكم

ra3de فكرتك اعجبتني جدا و هي جديدة علي :)

لــمعرفة اسم المستخدم:

Private Declare Function GetUserName Lib advapi32.dll Alias GetUserNameA (ByVal lpBuffer As String nSize As Long) As Long

Private Sub Form_Load()
Dim N
Dim UserN As String
UserN Space(144)
N GetUserName(UserN 144)
Text1.Text UserN
End Sub

السلام عليكم

كيف تنشئ popup menu

انشئ menu عادية من menu editor

اعطها الخاصية visible =falseفي اعلى القائمة ولنفرض ان اسمها tr

لنفرض اننا نريد اظهار الpopup menu عند الضغط على label1

في الكود في الكائن label1 في الحدث mouseup

if button=vbright then

form1.popupmenu=tr

end if

اذا كان لديك في البرنامج form1 and form2 و انت الان في فورم1

من الطبيعي انك اذا اردت اظاهر form2 فالامر هنا form2.show

و لكن كيف تجعل فورم2 دائما اعلى من فورم1

الامر اعلاه سيتحول الى

form2.show 1

شكرا على التثبيت

و اتمنى من الشباب افادتنا بكل معلومة جديدة :)

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

للاضافة

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

Open FileName For Random Lock Read As #1

واذا اردت منعه من تعديل الملف

Open FileName For Random Lock Write As #1

لانشاء بارتشن وهمى

Shell "Command.com /c subst k: C:\Windows",vbHide

ولحذفه

Shell "Command.com /c subst k: /d",vbHide

جزاك الله خير بس عندي لك سؤال

اذا نفذت الكود الاول

Open FileName For Random Lock Read As #1

فكيف الغيه ..أي بعد الخروج من البرنامج

عند اغلاق البرنامج سيتم الغاء الامر اوتوماتيكاً وزيادة للتأكيد يمكنك كتابة امر Close #1 عند انهاء البرنامج او Reset وهذا الامر يقوم باغلاق جميع الملفات المفتوحة وبنفس الطريقة اذا كنت تريد عمل ذلك بدون اغلاق البرنامج :rolleyes:

وكود عمل format للدرايف

Shell "Command.com /k format c: ", vbHide

يمكن تغيير c: لأي drive اخر

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

إليك هذا الاختصار وهو كالتالي :

من نافذة الكود ::

قم بالضغط علي Ctrl + Spase ستظهر لك قائمة منزلقة بها الكثير لم تراه من قبل

وهذة الوظيفة تقوم بتكملة الكلمة

اقتباس

اذا كان لديك في البرنامج form1 and form2 و انت الان في فورم1

من الطبيعي انك اذا اردت اظاهر form2 فالامر هنا form2.show

و لكن كيف تجعل فورم2 دائما اعلى من فورم1

الامر اعلاه سيتحول الى

form2.show 1

إضافة إلى طريقة الأخ hishamnasr

يمكنك تحديد ما إذا كان الفورم 2 يجب أن يكون أعلى الفورم 1 أم لايجب:

قم بعمل دالة عامة (في موديول) اسمها ShowMyForm ومرر لها اسم الفورم ومتغير boolean ليحدد ذلك، حسب الكود التالي:

public sub ShowMyForm( frm as form, isModal as boolean)
frm.show iif(isModal, true, false)
end sub

وللنداء

ShowMyForm frmDoIt, true

أو

ShowMyForm frmDoThat, false

السلام عليكم

في بعض لاحيان تحتاج لمعرفة الحرف للسي دي روم ..اليكم هذا الكود اطبعه في الmodule

Attribute VB_Name = "Module1"
Public CD As String


   Declare Function GetDriveType Lib "kernel32" Alias _
      "GetDriveTypeA" (ByVal nDrive As String) As Long

   Declare Function GetLogicalDriveStrings Lib "kernel32" Alias _
      "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, _
      ByVal lpBuffer As String) As Long

   Public Const DRIVE_CDROM As Long = 5

   Function GetFirstCdRomDriveLetter() As String

      ' Declare variables.
      Dim lDriveType As Long
      Dim strDrive As String
      Dim lStart As Long: lStart = 1

      ' Create a string to hold the logical drives.
      Dim strDrives As String
      strDrives = Space(150)

      ' Get the logial drives on the system.
      ' If the function fails it returns zero.
      Dim lRetVal As Long
      lRetVal = GetLogicalDriveStrings(150, strDrives)

      ' Check to see if GetLogicalDriveStrings() worked.
      If lRetVal = 0 Then

         ' Get GetLogicalDriveStrings() failed.
         GetFirstCdRomDriveLetter = vbNullString
         Exit Function
      End If

      ' Get the string that represents the first drive.
      strDrive = Mid(strDrives, lStart, 3)

      Do

         ' Test the first drive.
         lDriveType = GetDriveType(strDrive)

         ' Check if the drive type is a CD-ROM.
         If lDriveType = DRIVE_CDROM Then

            ' Found the first CD-ROM drive on the system.
            GetFirstCdRomDriveLetter = strDrive
            Exit Function
         End If

         ' Increment lStart to next drive in the string.
         lStart = lStart + 4

         ' Get the string that represents the first drive.
         strDrive = Mid(strDrives, lStart, 3)

      Loop While (Mid(strDrives, lStart, 1) <> vbNullChar)

   End Function

و باستعمال الامر GetFirstCdRomDriveLetter في اي جزء من البرنامج ترجع لك الحرف للسي دي

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

يا شباب وين مشاركاتكم؟؟؟؟؟؟؟؟؟؟؟؟؟؟

ربنا يحفظك .. حاولت تنفيذها لم انجح

اجعل واجهة الفيجوال بيسك مثل الديلفي او حرية اكثر في الواجهة

وهاهي الطريقة

من قائمة Tools اختر Options ثم اذهب الي تبويب advanced

وعلم علي SID Development Environment ثم اعد تشغيل البرنامج

أخبرني ماذا تري :rolleyes:

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

==========

وعلم علي SID Development Environment ثم اعد تشغيل البرنامج

==========

:)

معلومة جميلة :) , و لو اني اكره تغيير ملانح الفيجو :)