اقدم لكم مكتبة الاكواد
ما ابغى اطول عليكم
اكتبو اي كود عندكم للفيجوال بيسك .net
لا اريد عبارات مثل : شكرا
فتح مايكروسوفت وورد من خلال الفيجوال بيسك
كود :
Option Explicit
Private Sub cmdWord_Click()
Dim pintID As Long
pintID = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE", vbHide)
End Sub
قم بتغيير مسار الملف حسب المطلوب
تدريج اللون داخل الفورم بشكل متحرك
الأدوات:timer عدد 1+PictuerBoxعدد 1
Imports System.Drawing.Drawing2D
Public Class Form1
Private M_M As Single = 0
Private M_D As Single = 0.1
Private Sub PictureBox1_Paint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles _
PictureBox1.Paint
Dim LB As New LinearGradientBrush(New Point(0, 0), New Point _
(Me.ClientSize.Width, 0), Color.Green, Color.Yellow)
Dim CB As New ColorBlend
CB.Colors = New Color() {Color.Green, Color.YellowGreen, Color.Yellow}
CB.Positions = New Single() {0, M_M, 1}
LB.InterpolationColors = CB
e.Graphics.FillRectangle(LB, Me.ClientRectangle)
LB.Dispose()
M_M += M_D
If (M_M > 1) OrElse (M_M < 0) Then M_D = -M_D
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
PictureBox1.Invalidate()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub
End Class
معقولة !!!
1000 مشاهدة ورد 1 ؟؟؟؟!!!!!!!!!
جزاكـ الله خير وباركـ الله فيكـ
وجعله الله في موازين حسناتكـ
واصل ربي يرضى عنكـ
سلام
اولا مشكور جدا على المبادره
ثانيا كنت اتمنى ان يكون لك اسم واضح حتى نناديك به
ثالثا انا متاكد من نيتك الطيبه
رابعا هذه الطريقه لا تفيد في فهرس المنتدى والبحث
رابعا الافضل ان تضع كل كود في موضوع مستقل وبعنوان يدل على عمله ليظهر في فهرس المنتدى والبحث
اخيرا اتمنى ان مثل كثير لديهم هذه الحماس
موفقين
برررررررررافو عليك
الله يعطيك العافيه
المبتدئون يقولون هل من مزيد
thannnnnnnnnnx نتمني المزيد ونتعلم منكم بارك الله فيك
مشكورورورورورورعلى الموضوع الرائئئعع