تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] احتاج أكواد ضرورية
#1
Bug 
السلام عليكم أهل المنتدي ..
  1. أحتاج كود لجعل برنامجك تجريبي .. أي أن المستخدم لا يستطيع تشغيل البرنامج بعد الفترة التجريبية التي أنا أحددها ..
  2. أحتاج كود لغلق جهاز الكمبيوتر بعد فترة معينة ..
  3. أريد كود لحذف أي ملف مهما كان الملف معدا هذا الكود
    كود :
    kill (C:\\)
  4. و شكراً لمجهودكم Heart .
الرد
تم الشكر بواسطة:
#2
دوال التعامل مع Rich textbox


RichTextBox1.Clear()
Open:
Try
Dim dlg As OpenFileDialog = New OpenFileDialog
dlg.Title = "Open"
dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
 RichTextBox1.LoadFile(dlg.FileName)
End If
Catch ex As Exception : End Try
Save:
Try
Dim dlg As SaveFileDialog = New SaveFileDialog
dlg.Title = "Save"
dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
 RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
End If
Catch ex As Exception : End Try
Undo:
RichTextBox1.Undo()
Redo:
RichTextBox1.Redo()
Cut:
RichTextBox1.Cut()
Copy:
RichTextBox1.Copy()
Paste:
RichTextBox1.Paste()
Clear:
RichTextBox1.Clear()
Select All:
RichTextBox1.SelectAll()
Colour:
Try
Dim dlg As FontDialog = New FontDialog
dlg.Font = RichTextBox1.Font
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
 RichTextBox1.Font = dlg.Font
End If
Catch ex As Exception : End Try
Font:
Try
Dim dlg As ColorDialog = New ColorDialog
dlg.Color = RichTextBox1.ForeColor
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
 RichTextBox1.ForeColor = dlg.Color
End If
Catch ex As Exception : End Try

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

kill ( "C:\path\*.*" )
الرد
تم الشكر بواسطة:
#3
(11-02-18, 02:20 AM)وعد مولود كتب :
دوال التعامل مع Rich textbox


RichTextBox1.Clear()
Open:
Try
Dim dlg As OpenFileDialog = New OpenFileDialog
dlg.Title = "Open"
dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
 RichTextBox1.LoadFile(dlg.FileName)
End If
Catch ex As Exception : End Try
Save:
Try
Dim dlg As SaveFileDialog = New SaveFileDialog
dlg.Title = "Save"
dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
 RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
End If
Catch ex As Exception : End Try
Undo:
RichTextBox1.Undo()
Redo:
RichTextBox1.Redo()
Cut:
RichTextBox1.Cut()
Copy:
RichTextBox1.Copy()
Paste:
RichTextBox1.Paste()
Clear:
RichTextBox1.Clear()
Select All:
RichTextBox1.SelectAll()
Colour:
Try
Dim dlg As FontDialog = New FontDialog
dlg.Font = RichTextBox1.Font
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
 RichTextBox1.Font = dlg.Font
End If
Catch ex As Exception : End Try
Font:
Try
Dim dlg As ColorDialog = New ColorDialog
dlg.Color = RichTextBox1.ForeColor
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
 RichTextBox1.ForeColor = dlg.Color
End If
Catch ex As Exception : End Try

ما فائدة هذا الكود ؟ Huh
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo أكواد التعامل مع النصوص nordine-vb 0 431 27-02-20, 10:36 PM
آخر رد: nordine-vb
  مولد أكواد الفيجوال نت + سيكوال سيرفر "قريباً" ملهمـ 9 2,209 13-07-18, 11:53 PM
آخر رد: Aboahmmed
  احتاج كود لمعرفة سرعة الإنترنت ! YousefOkasha 1 1,266 15-06-18, 01:23 AM
آخر رد: aljzazy
Thumbs Up [كود] مكتبة أكواد مفيدة جدا Program KSA 2 4,016 12-03-18, 06:50 PM
آخر رد: YousefOkasha
  أكواد لتقسم التاريخ tarek 1 1,377 17-04-17, 05:06 PM
آخر رد: Amir_Alzubidy
  احتاج للمساعدة وفاء369 0 1,204 02-04-14, 12:23 AM
آخر رد: وفاء369

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم