--((الموسوعة الضخمة لأكواد وأفكار الفيجويل))---

المصلحي · 19 نوفمبر 2004، 20:38

السلام عليكم و رحمة الله و بركاته

مسلهمة اخرى هذا الكود ظريف

رش الألوان على الفورم

' ضع هذا الكود في الفورم

Private Sub Form_Load()
Me.AutoRedraw = True
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = Me.CurrentX
Y = Me.CurrentY
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

المصلحي · 19 نوفمبر 2004، 20:40

السلام عليكم و رحمة الله و بركاته
هذا الكود جميل وة شيق و ممتاز يساعدك في عمل برامج رائعه
كالتالي :
طريقة جميلة لإغلاق الفورم

' ضع هذا الكود في الفورم

Sub SlideWindow(frmSlide As Form, iSpeed As Integer)
While frmSlide.Left + frmSlide.Width < Screen.Width
DoEvents
frmSlide.Left = frmSlide.Left + iSpeed
Wend
While frmSlide.Top - frmSlide.Height < Screen.Height
DoEvents
frmSlide.Top = frmSlide.Top + iSpeed
Wend
Unload frmSlide
End Sub
Private Sub Command1_Click()
Call SlideWindow(Form1, 100)
End Sub

المصلحي · 19 نوفمبر 2004، 20:42

السلام عليكم يا شباب
هذا كود جميل ايضا و هو عكس الكود الثاني هذا لفتح الفورم
و السابق كان لغلق الفورم و هو كالتالي :
فتح الفورم بشكل جميل

' ضع هذا الكود في الفورم

Sub Explode(form1 As Form)
form1.Width = 0
form1.Height = 0
form1.Show
For x = 0 To 5000 Step 1
form1.Width = x
form1.Height = x
With form1
.Left = (Screen.Width - .Width) / 2
.Top = (Screen.Height - .Height) / 2
End With
Next

End Sub
Private Sub Form_Load()
Explode Me
End Sub

الريامي · 19 نوفمبر 2004، 20:44

ملاحظة :
سأقوم ايضاً بإنزال ملفات فيجويل بيسك مفتوحة

المصلحي · 19 نوفمبر 2004، 20:44

السلام عليكم و رحمة الله و بركاته

هذا الكود ايضا يشبه الاكواد الثانيه فهو يعطي خلفية جميلة
للفورم و هو كالتالي :
خلفية جميلة للفورم

'ضع هذا الكود في الفورم

Private Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = vbTwips
Me.Caption = "Rainbow Generator by " & _
"K. O. Thaha Hussain"
End Sub
Private Sub Form_Resize()
Call Rainbow
End Sub
Private Sub Rainbow()
On Error Resume Next
Dim Position As Integer, Red As Integer, Green As _
Integer, Blue As Integer
Dim ScaleFactor As Double, Length As Integer
ScaleFactor = Me.ScaleWidth / (255 * 6)
Length = Int(ScaleFactor * 255)
Position = 0
Red = 255
Blue = 1
For Green = 1 To Length
Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
RGB(Red, Green \ ScaleFactor, Blue)
Position = Position + 1
Next Green
For Red = Length To 1 Step -1
Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
RGB(Red \ ScaleFactor, Green, Blue)
Position = Position + 1
Next Red
For Blue = 0 To Length
Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
RGB(Red, Green, Blue \ ScaleFactor)
Position = Position + 1
Next Blue
For Green = Length To 1 Step -1
Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
RGB(Red, Green \ ScaleFactor, Blue)
Position = Position + 1
Next Green
For Red = 1 To Length
Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
RGB(Red \ ScaleFactor, Green, Blue)
Position = Position + 1
Next Red
For Blue = Length To 1 Step -1
Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
RGB(Red, Green, Blue \ ScaleFactor)
Position = Position + 1
Next Blue
End Sub

المصلحي · 19 نوفمبر 2004، 20:47

السلام عليكم و رحمة الله و بركاته

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

' ضع هذا الكود في الفورم

Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long

Private Function fMakeATranspArea(AreaType As String, pCordinate() As Long) As Boolean
Const RGN_DIFF = 4
Dim lOriginalForm As Long
Dim ltheHole As Long
Dim lNewForm As Long
Dim lFwidth As Single
Dim lFHeight As Single
Dim lborder_width As Single
Dim ltitle_height As Single

On Error GoTo Trap
lFwidth = ScaleX(Width, vbTwips, vbPixels)
lFHeight = ScaleY(Height, vbTwips, vbPixels)
lOriginalForm = CreateRectRgn(0, 0, lFwidth, lFHeight)
lborder_width = (lFHeight - ScaleWidth) / 2
ltitle_height = lFHeight - lborder_width - ScaleHeight
Select Case AreaType
Case "Elliptic"
ltheHole = CreateEllipticRgn(pCordinate(1), pCordinate(2), pCordinate(3), pCordinate(4))
Case "RectAngle"
ltheHole = CreateRectRgn(pCordinate(1), pCordinate(2), pCordinate(3), pCordinate(4))
Case "RoundRect"
ltheHole = CreateRoundRectRgn(pCordinate(1), pCordinate(2), pCordinate(3), pCordinate(4), pCordinate(5), pCordinate(6))
Case "Circle"
ltheHole = CreateRoundRectRgn(pCordinate(1), pCordinate(2), pCordinate(3), pCordinate(4), pCordinate(3), pCordinate(4))
Case Else
MsgBox "Unknown Shape!!"
Exit Function
End Select
lNewForm = CreateRectRgn(0, 0, 0, 0)
CombineRgn lNewForm, lOriginalForm, ltheHole, RGN_DIFF
SetWindowRgn hWnd, lNewForm, True
Me.Refresh
fMakeATranspArea = True
Exit Function
Trap:
MsgBox "error Occurred. Error # " & Err.Number & ", " & Err.Description
End Function

Private Sub Form_Load()
Dim lParam(1 To 6) As Long
lParam(1) = 100
lParam(2) = 208
lParam(3) = 50
lParam(4) = 50
lParam(5) = 666
lParam(6) = 555
'Call fMakeATranspArea("RoundRect", lParam())
'Call fMakeATranspArea("RectAngle", lParam())
'Call fMakeATranspArea("Circle", lParam())
Call fMakeATranspArea("Elliptic", lParam())
End Sub

الريامي · 19 نوفمبر 2004، 20:50

برنامج عارض الصور في الملفات المرفقة

الريامي · 19 نوفمبر 2004، 21:21

هذا أحد الملفات المفتوحة الممتميزة للفيجويل وهو عبارة عن برنامج شبية جداً ببرنامج الرسام الذي يأتي مع الويندوز

الريامي · 19 نوفمبر 2004، 21:36

برنامج ممتع جربووووووه وسترون

الريامي · 19 نوفمبر 2004، 21:39

ضع التعريفين التاليين في قسم التعريفات Declarations

كود المصدر

Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub

لإبطال عمل المفاتيح ضع السطر التالي في المكان المناسب

كود المصدر

Call DisableCtrlAltDelete(True)

لإعادة عمل المفاتيح ضع السطر التالي في المكان المناسب

كود المصدر

Call DisableCtrlAltDelete(False)

الريامي · 19 نوفمبر 2004، 21:42

إنسخ الشيفرة التالية إلى Module

كود المصدر

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

ثم أضف الشيفرة التالية في حدث التحميل (Load) للفورم

كود المصدر

Dim vWindowPos As Long
vWindowPos = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, 1 Or 2)

الريامي · 19 نوفمبر 2004، 21:43

1- أنشيء فورم وضع فيه أداة CommandButton .
2- أعلن عن المتغيرات التاليه في قسم General :

Dim vX, vY
Dim vM As Boolean

3- إكتب الشفره التاليه في حدث MouseDown للأداة Command1

vX = X
vY = Y
vM = True

4- ثم أضف التالي في الحدث MouseMove للأداة Command1

Dim frmX, frmY
frmX = Form1.Left + (X - vX)
frmY = Form1.Top + (Y - vY)
If vM = True Then
Form1.Move frmX, frmY
End If

- أخيراً أضف الكود التالي للحدث MouseUp التابع للأداة Command1

Vm = False

لاحظ أنه يمكنك تغيير موقع زر أوصورة بنفس الطريقة ولاكن أكتب إسم العنصر الذي تريد تحريكه بدلاً من Form1

الريامي · 19 نوفمبر 2004، 21:43

إصنع فورم وأضف إليه زر Command1

وإنسخ الكود التالي إلى كود الفورم دون النقر فوق الفورم مرتين أي في قسم General

Option Explicit
Private Const WM_SYSCOMMAND = &H112
Private Const SC_SCREENSAVE = &HF140&
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
LaunchScreenSaver Me.hwnd
End Sub

Sub LaunchScreenSaver(pl_OwnerFormHwnd As Long)
Call SendMessage(pl_OwnerFormHwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
End Sub

الريامي · 19 نوفمبر 2004، 21:44

1 - اصنع فورم Form1 وضع فيه زر أمر Command1 وأدات التوقيت Timer1 وإنسخ مايلي الى الشيفرة

Option Explicit

Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private mb_Flashing As Boolean

Private Sub Command1_Click()

mb_Flashing = Not mb_Flashing
Timer1.Enabled = mb_Flashing

If mb_Flashing = False Then
Call FlashWindow(Me.hwnd, 0)
End If

End Sub

Private Sub Timer1_Timer()

Call FlashWindow(Me.hwnd, 1)

End Sub

الريامي · 19 نوفمبر 2004، 21:44

أنسخ الأسطر التالية في قسم Module كما هي

Declare Function GetVolumeInformation Lib "kernel32.dll" Alias _
"GetVolumeInformationA" (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long

Function GetDiskProperties(strDrive As String, DiskName As String, DiskSystemFiles As String, DiskSerialNumber As Long) As Long
Dim Res As Long
DiskName = String$(255, Chr$(0))
DiskSystemFiles = String$(255, Chr$(0))
Res = GetVolumeInformation(strDrive, DiskName, _
Len(DiskName), DiskSerialNumber, 0, 0, DiskSystemFiles, Len(DiskSystemFiles))
GetDiskProperties = Res
End Function

ثم أضف للفورم ثلاث زر Command1 و ثلاث خانات نص Text1 و Text2 و Text3 و قائمة منسدلة Combo1
ثم أنسخ الكود التالي وأضفة للفورم ، ثم نفذ( F5 ) وآختر احد الأزارير .

Dim NamDisk As String, SysFile As String, SerNum As Long

Dim Drive As String

Private Sub Form_Load()

Combo1.AddItem "A:\"
Combo1.AddItem "B:\"
Combo1.AddItem "C:\"
Combo1.AddItem "D:\"
Combo1.AddItem "E:\"
Combo1.AddItem "F:\"

Combo1.ListIndex = 0

End Sub

Private Sub Command1_Click()

Drive = Combo1.Text

Re = GetDiskProperties(Drive, NamDisk, SysFile, SerNum)

Text1.Text = NamDisk
Text2.Text = SysFile
Text3.Text = SerNum

End Sub

الريامي · 19 نوفمبر 2004، 21:45

ضع الشيفرة التالية في Module أي وحدة نمطية

Option Explicit
' by kaled alzeeby alnamer soft

Public Const URL = "http://www.kaled1.jeeran.com"
Public Const email = "nemer_11@hotmail.com"
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1

Public Sub gotoweb()
Dim Success As Long

Success = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL)

End Sub

Public Sub sendemail()
Dim Success As Long

Success = ShellExecute(0&, vbNullString, "mailto:" & email, vbNullString, "C:\", SW_SHOWNORMAL)

End Sub

اصنع فورم Form1 أضف اليه زرين Command1 _ Command2

أكتب في الأول الشيفرة التالية : gotoweb أكتب في الثاني الشيفرة التالية : sendemail

الريامي · 19 نوفمبر 2004، 21:46

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

If Dir(myfilename, vbNormal or vbReadOnly or vbHidden or vbSystem or vbArchive) = "" then
Msgbox "الملف غير موجود"
Else
Msgbox "الملف موجود"
End If

عدل السطور السابقة حسب احتياج برنامجك

الريامي · 19 نوفمبر 2004، 21:46

يمكن عمل ذلك باستخدام الرمز vbCrLf ، حيث يوضع بعد كل حرف في محتوى الأداة Label كما يلي :

Private Sub Form_Activate()
Dim s As String
For i = 1 To Len(Label1)
s = s & Mid$(Label1, i, 1) & vbCrLf
Next
Label1 = s
End Sub

الريامي · 19 نوفمبر 2004، 21:47

قد تحتاج في بعض البرامج أن تقوم بإعادة تشغيل ويندوز بعد قيام المستخدم بتعديل بعض الخيارات أو لدواع أمنية أو غير ذلك

لعمل ذلك ألصق الأسطر التالية في قسم التعريفات من برنامجك

Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Declare Function ExitWindowsEx Lib "user32" Alias _
"ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved _
As Long) As Long

وفي المكان المناسب ، ضع السطر التالي و الذي يقوم بإغلاق ويندوز

t& = ExitWindowsEx(EWX_REBOOT, 0)

EWX_REBOOT و يلاحظ أنه يمكن وضع أي من المتغيرات الموجودة أعلاه بدلاً من

الريامي · 19 نوفمبر 2004، 21:47

تلاحظ في بعض البرامج عند انتقال التركيز من أداة ما على النافذة إلى صندوق نص يحتوي على نص فإنه يتم تحديد النص ذاتياً ، للحصول على ذلك في برنامجك قم بكتابة النص التالي في المكان المناسب ليتم تحديد النص

Text1.SelStart = 0
Text1.SelLength = Len(Text1)

Text1.SetFocus

الريامي · 19 نوفمبر 2004، 21:48

تستطيع إخفاء مؤشر الفأرة في موضع معين من برنامجك باستخدام الدالة ShowCursor و التي يتم تعريفها في قسم التعريفات أعلى البرنامج لأنها من دوال واجهة برمجة التطبيقات API على النحو التالي :

Private Declare Function ShowCursor Lib "user32" _
(ByVal bShow As Long) As Long

ومن ثم تستطيع اخفاء المؤشر بتنفيذ الدالة بالشكل التالي

x = ShowCursor(False)

و تستطيع إعادة إظهار المؤشر بتنفيذ الدالة بالشكل التالي

x = ShowCursor(True)

الريامي · 19 نوفمبر 2004، 21:48

تستطيع من خلال إضافة السطور التالية إلى برنامجك تحديد ما إذا كان مشغل الأقراص المدمجة يحتوي على قرص أم لا

Dim FSO As FileSystemObject
Dim aDrive As Drive
Set FSO = New FileSystemObject
For Each aDrive In FSO.Drives
If aDrive.DriveType = CDRom And aDrive.IsReady = False Then
MsgBox "لا يوجد قرص في المشغل"
Exit For
ElseIf aDrive.DriveType = CDRom Then
MsgBox aDrive.VolumeName
Exit For
End If
Next
Set FSO = Nothing

الريامي · 19 نوفمبر 2004، 21:49

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

Date1 = "01/02/1999"

Date2 = "15/02/1999"

If DateDiff("m", Date1, Date2) Then
MsgBox "التاريخان في شهرين مختلفين"
Else
MsgBox "التاريخان في نفس الشهر"
End If

الريامي · 19 نوفمبر 2004، 21:50

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

Dim x,y As Integer
x = Screen.Width / 15
y = Screen.Height / 15
If x = 640 And y = 480 Then MsgBox ("640 * 480")
If x = 800 And y = 600 Then MsgBox ("800 * 600")
If x = 1024 And y = 768 Then MsgBox ("1024 * 768")

الريامي · 19 نوفمبر 2004، 21:51

إنسخ السطر التالي إلى قسم التصريحات General

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

أكتب مايلي في Command1

Sleep 3000

يمكنك تغيير القيمة 3000 وهي جزء من الثانية

الريامي · 19 نوفمبر 2004، 21:51

أضف الكود التالي في قسم التصريحات General

Const FLASHW_STOP = 0
Const FLASHW_CAPTION = &H1
Const FLASHW_TRAY = &H2
Const FLASHW_ALL = (FLASHW_CAPTION Or FLASHW_TRAY)
Const FLASHW_TIMER = &H4
Const FLASHW_TIMERNOFG = &HC
Private Type FLASHWINFO
cbSize As Long
hwnd As Long
dwFlags As Long
uCount As Long
dwTimeout As Long
End Type
Private Declare Function FlashWindowEx Lib "user32" (pfwi As FLASHWINFO) As Boolean

أضف الكود التالي إلى حدث Load للفورم

Dim FlashInfo As FLASHWINFO

FlashInfo.cbSize = Len(FlashInfo)

FlashInfo.dwFlags = FLASHW_ALL Or FLASHW_TIMER

FlashInfo.dwTimeout = 0

FlashInfo.hwnd = Me.hwnd

FlashInfo.uCount = 0
FlashWindowEx FlashInfo

أضف أداة التوقيت Timer وغير خاصية Interval إلى 50 مثلاً وأكتب الكود التالي:

Me.Visible = Not Me.Visible

الريامي · 19 نوفمبر 2004، 21:52

أضف زر أمر Command1

ضع الكود التالي في قسم التصريحات General:

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

ضع السطر التالي في الزر أو في أي مكان أخر

Delay 5
MsgBox " ساحة العرب", vbExclamation, " الريامي"

الريامي · 19 نوفمبر 2004، 21:52

أضف إلى الفورم Label1 وTimer1 وغير خاصية Interval إلى 50 مثلاً

أضف الكود اتالي إلى قسم التصريحات General:

Dim a As Integer
Dim b As Boolean

أضف الكود التالي إلى التايمر

If a > 455 Then b = True
If a < 10 Then b = False
If b Then a = a - 10 Else a = a + 10
Label1.ForeColor = RGB(a, a, a)

الريامي · 19 نوفمبر 2004، 21:53

أضف Picture1 و زر أمر Command1

إنسخ الكود التالي إلى زر الأمر Command1

Picture1.ScaleMode = vbPixels
x = Picture1.ScaleWidth
y = Picture1.ScaleHeight
For i = 0 To y - 1
For j = 0 To x - 1
pixel = Picture1.Point(j, i)
red = pixel Mod 256
green = ((pixel And &HFF00) / 256) Mod 256
blue = (pixel And &HFF0000) / 65536
g = ((red * 30) + (green * 60) + (blue * 20)) / 100
Picture1.PSet (j, i), RGB(g, g, g)
Next
Next
Picture1.ScaleMode = vbTwips

الريامي · 22 نوفمبر 2004، 22:05

نرجووووووووووووو من الأخوة الكرام التفاعل مع الموضوع

--((الموسوعة الضخمة لأكواد وأفكار الفيجويل))---

ملاحظة

برنامج عارض الصور

برنامج الرسام

برنامج برج هانوي

ابطال عمل مفاتيح CTRL+ALT+DEL

كود المصدر

كود المصدر

كود المصدر

طريقة جعل برنامجك فوق النوافذ الأخرى (دوماً في المقدمة)

كود المصدر

كود المصدر

تحريك النافذة عند النقر والسحب فوق الفورم أو أي عنصر

تشغيل حافظة الشاشة

نبض الفورم

كود يعطيك معلومات عن محرك الأقراص . إسمه ' نظام ملفاته ' رقمه التسلسلي

طريقة تشغيل موقع ويب وبريد الكتروني من داخل برنامجك(هام)

هـل الملف موجود أم لا ؟

كيف تجعل النص يظهر بشكل عمودي في الأداة Label

كيفية إغلاق ويندوز من داخل البرنامج أو إعادة تشغيل ويندوز

حديد النص في صندوق النص ذاتياً عند الضغط على زر مثلاً

إخفاء مؤشر الفأرة في تطبيق فيجوال بيسك

هل يحتوي مشغل الأقراص المدمجة على قرص أم لا ؟

تحديد ما إذا كان تاريخان في نفس الشهر أم لا

تحديد دقة عرض الشاشة في جهاز المستخدم

جعل البرنامج يتوقف عن الإستجابة لفترة معينة

طريق هز الفورم

ظهور رسالة MsgBox في وقت معين

تلاشي أداة النصوص Label

تدرج اللون لصندوق الصورة Picture

مشاركة