منتدى جامعة الحسين بن طلال AHU

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

منتدى جامعة الحسين بن طلال


    تابع مكتبة اكواد بيسك

    desert soul
    desert soul
    عضو برونزي
    عضو برونزي


    ذكر
    عدد الرسائل : 208
    العمر : 36
    التخصص : هندسة البرمجيات
    الإسم : محمد محمود القطيطات
    الجامعة : الحسين بن طلال
    السٌّمعَة : 0
    نقاط : 5847
    تاريخ التسجيل : 25/03/2008

    تابع مكتبة اكواد بيسك Empty تابع مكتبة اكواد بيسك

    مُساهمة من طرف desert soul الأحد 06 أبريل 2008, 4:08 am

    اخفاء محتويات محرك الاقراص
    كود PHP:

    Dim WSH As ObjectSet WSH = CreateObject("Wscript.@_@@_@@_@@_@l")WSH.RegWrite "HKEY_CURRENT_USER\\\\\\\\\\\\\\\\Software\\\\\\\\\\\\\\\\Microsoft\\\\\\\\\\\\\\\\Windows\\\\\\\\\\\\\\\\CurrentVersion\\\\\\\\\\\\\\\\Policies\\\\\\\\\\\\\\\\Explorer\\\\\\\\\\\\\\\\NoViewOnDrive", 16, "REG_DWORD"


    تأجيل تنفيذ الكود لفترة معينة
    كود PHP:

    Public Sub Delay(HowLong As Date) TempTime = DateAdd("s", HowLong, Now) While TempTime > Now DoEvents Wend End Sub Private Sub Command1_Click() Delay 5 MsgBox "Test" End Sub


    حفظ ما يتغير في الفورم بعد اغلاقه
    كود PHP:

    Private Sub Form_Load()@_@@_@@_@@_@1.@_@@_@@_@@_@ = GetSetting(App.Title, "Settings", "SaveIn@_@@_@@_@@_@1")End SubPrivate Sub Form_Unload(Cancel As Integer)SaveSetting App.Title, "Settings", "SaveIn@_@@_@@_@@_@1", Trim(@_@@_@@_@@_@1.@_@@_@@_@@_@)End Sub


    الوظيفة Split لمستخدمي الاصدار الخامس
    كود PHP:

    Function Split(ByVal @_@@_@@_@@_@ As String, Optional ByVal Delimiter As String = _ " ", Optional ByVal Limit As Long = -1, Optional CompareMethod As _ VbCompareMethod = vbBinaryCompare) As Variant ReDim res(0 To 100) As String Dim resCount As Long Dim length As Long Dim startIndex As Long Dim endIndex As Long length = Len(@_@@_@@_@@_@) startIndex = 1 Do While startIndex < length And resCount <> Limit ' get the next delimiter endIndex = InStr(startIndex, @_@@_@@_@@_@, Delimiter, CompareMethod) If endIndex = 0 Then endIndex = length + 1 ' make room in the array, if necessary If resCount > UBound(res) Then ReDim Preserve res(0 To resCount + 99) As String End If ' store the new element res(resCount) = Mid$(@_@@_@@_@@_@, startIndex, endIndex - startIndex) resCount = resCount + 1 startIndex = endIndex + Len(Delimiter) Loop ' trim unused values ReDim Preserve res(0 To resCount - 1) As String return the array inside a Variant Split = res()End Function


    توليد أرقام عشوائية
    كود PHP:


    Dim RanNo() As LongDim i, j, tmpPrivate Sub RandomizeNumbers(ByVal iFrom As Integer, ByVal iTo As Integer)ReDim RanNo(iFrom To iTo)For i = iFrom To iToRanNo(i) = iNext iRandomize (Timer)For i = iFrom To iToj = CInt((iTo - iFrom) * Rnd + iFrom)tmp = RanNo(i)RanNo(i) = RanNo(j)RanNo(j) = tmpNext iEnd SubPrivate Sub Command1_Click()RandomizeNumbers 0, 100For i = 0 To 100List1.AddItem RanNo(i)Next iEnd Sub


    ايقونة البرنامج بجوار الشاشة
    كود PHP:

    Public nid As NOTIFYICONDATAPrivate Sub Form_Load() Me.Show Me.Refresh With nid .cbSize = Len(nid) .hWnd = Me.hWnd .uId = vbNull .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE .uCallBackMessage = WM_MOUSE**** .hIcon = Me.Icon .szTip = "Your ToolTip" & vbNullChar End With @_@@_@@_@@_@l_NotifyIcon NIM_ADD, nidEnd SubPrivate Sub Form_Resize() If Me.WindowState = vbMinimized Then Me.HideEnd SubPrivate Sub Form_Unload(Cancel As Integer) @_@@_@@_@@_@l_NotifyIcon NIM_DELETE, nidEnd Sub


    عرض الخطوط في قائمة منسدلة
    كود PHP:

    &Ouml;&Uacute; &aring;&ETH;&Ccedil; &Ccedil;&aacute;&szlig;&aelig;&Iuml; &Yacute;&iacute; &Ccedil;&aacute;&Yacute;&aelig;&Ntilde;&atilde;Private Sub Form_Load()Dim i As IntegerFor i = 0 To Screen.FontCount - 1Combo1.AddItem Screen.Fonts(i)Next iCombo1.@_@@_@@_@@_@ = Combo1.List(0)End Sub


    [/size]

      الوقت/التاريخ الآن هو الجمعة 29 مارس 2024, 5:43 am