هارون
عدد الرسائل : 54 sms : <!--- MySMS By AlBa7ar Semauae.com --><form method="POST" action="--WEBBOT-SELF--"> <!--webbot bot="SaveResults" u-file="fpweb:///_private/form_results.csv" s-format="TEXT/CSV" s-label-fields="TRUE" --><fieldset style="padding: 2; width:208; height:104"> <legend><b>My SMS</b></legend> <marquee onmouseover="this.stop()" onmouseout="this.start()" direction="up" scrolldelay="2" scrollamount="1" style="text-align: center; font-family: Tahoma; " height="78">$post[field5]</marquee></fieldset></form><!--- MySMS By AlBa7ar Semauae.com --> تاريخ التسجيل : 14/02/2008
| موضوع: أكواد فجول بيسك12 الخميس مارس 06, 2008 10:58 am | |
| دالة التقريب لاقرب جزء من المائة Private Sub Command1_Click() MsgBox Round(12.8815, 2) End Sub Function Round(nValue As Double, nDigits As _ Integer) As Double Round = Int(nValue * (10 ^ nDigits) + _ 0.5) / (10 ^ nDigits) End Function ~~~~~~~~~~~~~~~~~~~~~~~~~ كود يصنع ابعاد ثلاثية للليبل و التست 'Set form's AutoRedraw property toTrue Sub PaintControl3D(frm As Form, Ctl As Control) ' This Sub draws lines around controls to make them 3d
' darkgrey, upper - horizontal frm.Line (Ctl.Left, Ctl.Top - 15)-(Ctl.Left + _ Ctl.Width, Ctl.Top - 15), &H808080, BF ' darkgrey, left - vertical frm.Line (Ctl.Left - 15, Ctl.Top)-(Ctl.Left - 15, _ Ctl.Top + Ctl.Height), &H808080, BF ' white, right - vertical frm.Line (Ctl.Left + Ctl.Width, Ctl.Top)- _ (Ctl.Left + Ctl.Width, Ctl.Top + Ctl.Height), &HFFFFFF, BF ' white, lower - horizontal frm.Line (Ctl.Left, Ctl.Top + Ctl.Height)- _ (Ctl.Left + Ctl.Width, Ctl.Top + Ctl.Height), &HFFFFFF, BF
End Sub
Sub PaintForm3D(frm As Form) ' This Sub draws lines around the Form to make it 3d
' white, upper - horizontal frm.Line (0, 0)-(frm.ScaleWidth, 0), &HFFFFFF, BF ' white, left - vertical frm.Line (0, 0)-(0, frm.ScaleHeight), &HFFFFFF, BF ' darkgrey, right - vertical frm.Line (frm.ScaleWidth - 15, 0)-(frm.ScaleWidth - 15, _ frm.Height), &H808080, BF ' darkgrey, lower - horizontal frm.Line (0, frm.ScaleHeight - 15)-(frm.ScaleWidth, _ frm.ScaleHeight - 15), &H808080, BF
End Sub
'DEMO USAGE 'Add 1 label and 1 textbox
Private Sub Form_Load()
Me.AutoRedraw = True PaintForm3D Me PaintControl3D Me, Label1 'Label1 is name of label PaintControl3D Me, Text1 'Text1 is name of textbox
End Sub ~~~~~~~~~~~~~~~~~~~~~~~~~ لإيقاف لوحة المفاتيح والماوس عن العمل وإعادتها للعمل مرة اخرى Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Activate() DoEvents ' إيقاف لوحة المفاتيح والماوس عن العمل BlockInput True ' الانتظار عشر ثواني Sleep 10000 ' إعادة لوحة المفاتيح والماوس للعمل مرة أخرى BlockInput False End Sub ~~~~~~~~~~~~~~~~~~~~~~~~~ اختبار إذا كان البرنامج لا يشتغل من القرص المدمج فإنه يقوم بإنهائه Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" _ (ByVal nDrive As String) As Long
Private Sub Form_Load() Dim driveType As Long driveType = GetDriveType(Mid(App.Path, 1, 3)) If driveType <> 5 Then 'إنهاء البرنامج إذا كان لايشتغل من القرص المدمج End End If End Sub ~~~~~~~~~~~~~~~~~~~~~~~~~ تحويل اي حرف إلى حرف ASCII Dim temp as String temp=asc(text1.text) MsgBox temp | |
|