موسوعة أكواد الفيجول بيسك

هذا الكود لتجزئة جملة نصية باختيار الحرف الفاصل

Dim str As String
Dim x() As String

str = "موقع#ومنتديات#المشاغب"
x() = Split(str, "#")

For Each y In x()
MsgBox y
Next

هذا الكود لمعرفة مجلد الويندوز

Dim winPath As String
winPath = Environ$("windir")
MsgBox winPath

تنفيذ الأمر بعد فترة معينة
لنفرض أنك تريد تنفيذ الأمر تحت الزر المضغوط عليه بعد خمس ثوان من ضغط المستخدم للزر وليس بعد ضغطه للزر فوراً ، هذا المثال يوضح ذلك حيث يقوم بعرض رسالة للمستخدم بعد مرور خمس ثوان على ضغطه الزر :

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 "أهلا بك"
End Sub

إبطال مفعول زر x الواقع في زاوية الفورم
قم بإضافة الكود التالي في أي مكان فارغ في الفورم الذي تريد منع ظهور علامة X فيه :

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub

لتعبة صندوق القائمة المنسدلة ComboBox بمحتويات ملف معين

قم بإضافة الكود التالي ، ولا تنسى تغيير مسار الملف :

Private Sub Command1_Click()
Dim sline As String
nfile = FreeFile
Combo1.Clear
Open "c:\windows\desktop\books.txt" For Input As #nfile
While Not EOF(1)
Line Input #nfile, sline
Combo1.AddItem sline
Wend
End Sub

فتح ملف نصي تلقائيا في الـمفكرة

قم بإضافة الكود التالي مع تغيير المسار


Private Sub Command1_Click()
Shell "notepad.exe" & " " & "C:\boot.ini", vbNormalFocus
End Sub

هذا الكود لحذف الرموز التي تحددها انت من جملة نصية

Public Function Clean(sString As String) As String
Dim nLength As Integer
Dim nStart As Integer
Dim sOne As String
Dim sNoWay As String '
sNoWay = " ',-.()!_$*<>/\?;:=+" ' الحروف المراد حذفها
If Not IsNull(sString) Then
nLength = Len(sString)
nStart = 1
Do While nStart <= nLength
sOne = Mid(sString, nStart, 1)
If InStr(1, sNoWay, sOne, vbTextCompare) = 0 Then
Clean = Clean & sOne
End If
nStart = nStart + 1
Loop
End If
End Function
Private Sub Command1_Click()
MsgBox Clean("موقع--ومنتديات=المشاغب")
End Sub

هذا الكود يقوم بتوليد 100 رقم بين 0 و 100 (بدون تكرار)
قم بإضافة زر كوماند على الفورم (command1) وقائمة (list1) ، واضف الكود التالي :

Dim RanNo() As Long
Private Sub RandomizeNumbers(ByVal iFrom As Integer, ByVal iTo As Integer)
ReDim RanNo(iFrom To iTo)
For i = iFrom To iTo
RanNo(i) = i
Next i
Randomize (Timer)
For i = iFrom To iTo
j = CInt((iTo - iFrom) * Rnd + iFrom)
tmp = RanNo(i)
RanNo(i) = RanNo(j)
RanNo(j) = tmp
Next i
End Sub
Private Sub Command1_Click()
List1.Clear
RandomizeNumbers 0, 100
For i = 0 To 100
List1.AddItem RanNo(i)
Next i
End Sub

هذا الكود يقوم بتحميل جميع خطوط الكمبيوتر المتوفرة عندك في صندوق القائمة المنسدلة ComboBox

Private Sub Form_Load()
Dim i As Integer
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
Next i
Combo1.Text = Combo1.List(0)
End Sub

هذا الكود يقوم بتحميل جميع خطوط الكمبيوتر المتوفرة عندك في صندوق القائمة المنسدلة ComboBox

Private Sub Form_Load()
Dim i As Integer
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
Next i
Combo1.Text = Combo1.List(0)
End Sub

الله يعطيك العافيه يا عمو سام