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


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

    شاطر
    avatar
    desert soul
    عضو برونزي
    عضو برونزي

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

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

    مُساهمة من طرف 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]

      الوقت/التاريخ الآن هو الجمعة 20 أكتوبر 2017, 12:21 am