professional VB99

وشكرا لك يا اخ saa على هذا الرد انت طلباتك اوامر إن شاء الله ان مانسيت سوف اسويه او اعطيك موقع يعلمك عليه

شكرا يا اخ وما قصرت ويعطيك العافيه

شكرا لك على هذي المشاركة

نحن يالمحترفون نقدر نتعلم زيادة ولكن المبتدئين من الذي يعلمهم نحن كنا مبتدئين صح وتعلمنا + تعلمنا = الاحتراف هذي القاعدة وشكر ا لكم وشكرا اخ saw

شكرا لكم كلكم بس انا كنت اريد ان اصنع مكتبه من تصميمي لكي انشرها وسوف ينتشر الموقع هذا السبب الذي دفعني لصنع المكتبه

التحكم في رفع الصوت وقصرة ' ضع هذا الكود في الفورم Private Declare Function waveOutSetVolume Lib "Winmm.dll" (ByVal DevID As Integer, ByVal Vol As Long) As Long Sub SetVol(Volume As Long) Dim Vol& Vol = CLng("&H" & Hex(Volume + 65536)) waveOutSetVolume 0, Vol …

تشغيل ملف من نوع ميديا ' ضع هذا الكود في الفورم Private Sub Form_Load() MMControl1.Visible = False MMControl1.DeviceType = "sequencer" MMControl1.FileName = ("c:\FileName.mid") MMControl1.Command = "open" MMControl1.Command = "play" End Sub

تشغيل ملف فيديو في Picture ' ضع هذا الكود في الفورم Private Sub Form_Load() MMControl1.FileName = ("c:\FileName.dat") MMControl1.Command = "open" MMControl1.hWndDisplay = Picture1.hWnd End Sub

فتح السيدي روم وإغلاقة ' ضع هذا الكود في الفورم Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Pub…

أخفاء شريط المهام ' ضع هذا الكود في الموديول Private Const SWP_HIDEWINDOW = &H80 Private Const SWP_SHOWWINDOW = &H40 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Privat…

منع المسافة في مربع النص 'ضع هذا الكود في الفورم Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then KeyAscii = 0 End If End Sub

مربع نص ثلاثي أبعاد 'ضع هذا الكود في الفورم '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…

طباعة النص على النموذج بألوان مختلفة 'ضع هذا الكود في الفورم Sub Form_Paint() Dim i As Integer, X As Integer, Y As Integer Dim C As String Cls For i = 0 To 91 X = CurrentX Y = CurrentY C = Chr(i) 'Line -(X + TextWidth(C), Y = TextHeight(C)), _ QBColor(Rnd * 16…

السماح بإدخال تاريخ فقط في مربع النص ' ضع هذا الكود في الفورم Dim i As Integer Dim t1 As String Dim t2 As String Public Sub AutoDate(TextBoxName As TextBox, ByVal keyasci As Integer) If Val(keyasci) = 8 Then If TextBoxName.Text = Empty Then i = 0 Else i = i - …

السماح بكتابة أرقام فقط داخل مربع النص ' ضع هذا الكود في الفورم Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0 End If End Sub

السماح بكتابة حروف إنجليزية فقط في مربع النص ' ضع هذا الكود في الفورم Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii >= Asc("a") And KeyAscii <= Asc("z")) Or (KeyAscii >= Asc("A") And KeyAscii <= Asc("Z")) Then Else KeyAscii = 0 End If End Sub

إنشاء مربع نص وقت تنفيذ البرنامج ' ضع هذا الكود في الفورم Private Sub Form_Load() Form1.Controls.Add "VB.textbox", "Textcreate", Form1 Form1!Textcreate.Visible = True End Sub

تحويل الاحرف من كبيرة الى صغيرة والعكس ' ضع هذا الكود في الفورم Private Sub Command1_Click() x = Text1.Text y = UCase(Left(x, Len(x))) Text1.Text = y End Sub Private Sub Command2_Click() x = Text1.Text y = LCase(Left(x, Len(x))) Text1.Text = y End Sub

أكواد النسخ والقص واللصق ' ضع هذا الكود في الفورم Private Sub Command1_Click() Clipboard.Clear Clipboard.SetText text1 End Sub Private Sub Command2_Click() Clipboard.Clear Clipboard.SetText text1 text1 ="" End Sub Private Sub Command3_Click() text1 = Clipboard…

جعل خلفيه النص تومض ' ضع هذا الكود في الفورم Private Sub Timer1_Timer() Static COL COL = COL + 10 If COL > 510 Then COL = 0 Label1.BackColor = RGB(Abs(COL - 255), 0, 0) Label2.BackColor = RGB(0, Abs(COL - 255), 0) Label3.BackColor = RGB(0, 0, Abs(COL - 255)) L…