+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : أمثلة و أكواد للتعامل مع دوال Api (/showthread.php?tid=6087)
الصفحات:
1
2
أمثلة و أكواد للتعامل مع دوال Api - RaggiTech - 17-10-12
كاتب المشاركة : نور نبهان
تأخير برنامجك لمدة معينة Sleep
تأخير برنامجك لمدة معينة Sleep
كود :
'في الموديول
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'في الفورم
Private Sub Form_Load()
Call Sleep(1000)
End Subأمثلة و أكواد للتعامل مع دوال Api - RaggiTech - 17-10-12
كاتب المشاركة : نور نبهان
النسخ و النقل من خلال الدوال
النسخ و النقل من خلال الدوال
كود :
Private Declare Function CopyFile Lib "kernel32" Alias _
"CopyFileA" (ByVal lpExistingFileName As String, ByVal _
lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Declare Function MoveFile Lib "kernel32" Alias _
"MoveFileA" (ByVal lpExistingFileName As String, ByVal _
lpNewFileName As String) As Long
Sub CopyMove()
Dim strSource As String
Dim strTarget As String
Dim lngRetVal As Long
strSource = "C:\yfile.txt"
strTarget = "C:\indows\yfile.txt"
'// Copy File
lngRetVal = CopyFile(Trim$(strSource), Trim(strTarget), False)
If lngRetVal Then
MsgBox "File copied!"
Else
MsgBox "Error. File not moved!"
End If
'// Move File
lngRetVal = MoveFile(Trim$(strSource), Trim(strTarget))
If lngRetVal Then
MsgBox "File moved!"
Else
MsgBox "Error. File not moved!"
End If
End Subأمثلة و أكواد للتعامل مع دوال Api - RaggiTech - 17-10-12
أمثلة و أكواد للتعامل مع دوال Api - RaggiTech - 17-10-12
أمثلة و أكواد للتعامل مع دوال Api - RaggiTech - 17-10-12