الرئيسية
أحدث الصور
من طرف 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:
ÖÚ åÐÇ ÇáßæÏ Ýí ÇáÝæÑã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]
كود 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:
ÖÚ åÐÇ ÇáßæÏ Ýí ÇáÝæÑã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]
» كتاب شامل لقواعد البيانات و SQL
» إعلان هام لطلاب جامعة الحسين بن طلال ذكور وإناث
» لغز حلو
» لعبة حلوة
» كلية المناهج والتدريس
» القهوة المالحة ... حاولوا تدرجوا آرائكم
» دفع أجور الطلبة بالبطاقة الذكية مطلع العام المقبل
» اطلاق مهرجان القراءة للجميع 2010 يوم الاحد 5/12/2010 حتى الاربعاء 8/12/2010
» الامل
» حاقده على الشباب
» الحدود الدنيا للمعدلات التنافسية 2007-2008-2009 في جامعة الحسين بن طلال
» هل انت راضي عن تخصصك الجامعي؟؟
» الرجاء المساعدة بخصوص السكن
» للبنات فقط
» شوف هالصورة !
» هل تعلم ان الرجل اجمل من المرأة ..ادخل لترى
» كل واحد
» ريال مدريد يفوز على أياكس الهولندي برباعية نظيفة .
» كتاب شبكات الحاسوب