دراكولا 2002

تغيير لون عنوان النموذج You can globally change any Windows 95 desktop colour using the SetSysColors function. It takes three parameters : The number of colour elements to change, The Color object constant that you want to change and the RGB value. The Declara…

كيف تنشيء شريط تمرير مع نسبة مئوية Sub Command1_Click () picture1.ForeColor = RGB(0, 0, 255) 'use blue bar For i = 0 To 100 Step 2 updateprogress picture1, i Next picture1.Cls 'clear bar at they end End Sub Sub updateprogress (pb As Control, ByVal percent) Dim…

اجراء عملية بحث داخل نص Dim X As Integer X = FindMatch(Text1.Text, Text2.Text) If X = 0 Then MsgBox "Word not found" Else MsgBox "Word found" End If End Sub 1. Create a new function called FindMatch. Add the following code to this function: Function FindMatch(…

كيفية حذف دليل ' Assume that MYDIR is an empty directory or folder. RmDir "MYDIR" ' Remove MYDIR

اعادة تسمية ملف Dim OldName, NewName OldName = "OLDFILE": NewName = "NEWFILE" ' Define file names. Name OldName As NewName ' Rename file. OldName = "C:MYDIROLDFILE": NewName = "C:YOURDIRNEWFILE" Name OldName As NewName ' Move and rename file.

كيفية اعادة تشغيل الجهاز Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Boolean Public Const EWX_FORCE = 4 Public Const EWX_LOGOFF = 0 Public Const EWX_REBOOT = 2 Public Const EWX_SHUTDOWN = 1 ... Dim res As Boo…

استخدام الرقم الحر عند فتح وقراءة ملف Private Sub GetFile(FileName$) Dim nFilenumber% Dim tmpLine$ Text1.Text = "" nFilenumber = FreeFile Open FileName$ For Input As #nFilenumber Do While Not EOF(nFileNumber) Input #nFileNumber, tmpLine Text1.Text = Text1.Text…

الحصول على اسم الملف فقط MsgBox OnlyFileName("c:windowswin.com","") 'gives you 'win.com' Function OnlyFileName(vPath$, vSlash$) As String Dim p% OnlyFileName = vPath For p% = Len(vPath$) To 0 Step -1 If Mid$(vPath$, p%, 1) = vSlash$ Then OnlyFileName = Mid$(vP…

معرفة اذا كان البرنامج شغال Put this code in the load event of the first form that the program loads. If App.PrevInstance = True Then Call MsgBox("This program is already running!",_ vbExclamation) End End If

عمل اتصال بالانترنت Dim res res = Shell("rundll32.exe rnaui.dll,RnaDial " _ & "connection_name", 1)

تظليل النص عند التركيز Public Sub TextSelected() Dim tBox As TextBox Set tBox = Screen.ActiveControl If TypeOf tBox Is TextBox Then tBox.SelStart = 0 tBox.SelLength = Len(tBox) End If End Sub

فتح ملف سطر بعد سطر Do While Not EOF(1) Line Input #1, LineHolder LineHolder = LineHolder + 1 Loop

اضافة سجل الى قاعدة بيانات Private dbCurrent As Database Private recCategories As Recordset Set dbCurrent = OpenDatabase(cFilePathMajor & "Record.mdb", False) Set recCategories = dbCurrent.OpenRecordset("select * from Record") With recCategories .AddNew !Date …

ازالة الصفر من نص Function KillZeros(incoming as string) as string KillZeros = CStr(CInt(incoming)) End Function

حساب عدد سطور مربع نص This method is straightforward: it uses SendMessage to retrieve the number of lines in a textbox. A line to this method is defined as a new line after a word-wrap; it is independent of the number of hard returns in the text. Declarations …

البحث في ليستا كما تكتبها انت By changing the SendMessage Function's "ByVal wParam as Long" to "ByVal wParam as String", we change the search ability from first letter only, to "change-as-we-type" searching. Here's some example code. Start a new Standard EXE p…

قراءة ملف حرف بحرف Do While Not EOF(1) myChar = Input(1, #1) 'one char a line WholeWord = WholeWord & myChar Loop

اضافة بيانات لملف موجود مسبقا Open "C:data.txt" For output As #1 Do While Not EOF(1) Print #1, "Overwrite the file!" Close #1

تغيير خصائص ملف SetAttr "C:data.txt", vbNormal SetAttr "C:data.txt", vbReadOnly

تغيير مؤشر الماوس Screen.MousePointer = 0 'Default Screen.MousePointer = 11 'Hourglass