اي فكرة تطرأ على بالي اكتبها هنا لمشاركتها فقط و ليس بقصد الابداع ابدا
شغل البرنامج كمسؤول
ctrl+s = للحفظ كصفحة php في مسار السيرفر
ctrl+o
لتشغيل الصفحة من المتصفح
http://127.0.0.1/p.php
اجعلهم(عن نفسي) بجانب بعض واتابع احدى الشروح باليوتيوب ولا اضطر لتحميل المحررات لاني مبرمج تطبيقات سطح مكتب واستطيع الاسنغناء عن اي جزئية اتقن منها ولو ابسط جزء
صباح الخير و كل عام و انتم بخير
الاكواد التالية لمن لا يريد تحميل المرفق:
التالي الموديول للتحقق من مكان الفورم لان الحفظ و التحميل او الاستدعاء للموضع الخاص بالفورم مفعل وحتى لو يحدث خطا واختفى الفورم يتم ضبطه من جديد بالكود:
PHP كود :
Module Module1
Public Sub rep(ByRef f As Form)
Dim ws As Integer = Screen.PrimaryScreen.Bounds.Right
Dim hs As Integer = Screen.PrimaryScreen.Bounds.Bottom
If f.Left < 0 Or f.Right > ws Then f.Left = ws - f.Width
If f.Top < 0 Or f.Bottom > hs Then f.Top = hs - f.Height
End Sub
End Module
PHP كود :
Imports System.Text
Public Class Form1
Dim s As Integer = 12
Dim ax, ay As Integer, dr As Boolean
Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
If e.Button = MouseButtons.Left Then
dr = True
ax = MousePosition.X - Left
ay = MousePosition.Y - Top
End If
End Sub
Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove
If dr Then
Left = MousePosition.X - ax
Top = MousePosition.Y - ay
End If
End Sub
Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp
dr = False
End Sub
Private Sub txtbody_KeyDown(sender As Object, e As KeyEventArgs) Handles txtbody.KeyDown
If e.Control And e.KeyCode = Keys.Add Then
txtbody.Font = New Font("Arial", s, FontStyle.Bold)
s += 5
End If
If e.Control And e.KeyCode = Keys.S Then
IO.File.WriteAllText("C:\inetpub\wwwroot\p.php", txtbody.Text, Encoding.UTF8)
End If
If e.Control And e.KeyCode = Keys.O Then
Process.Start("http://127.0.0.1/p.php")
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
rep(Me)
Me.Text = "run this app as admin , to save click (ctrl+s) , to open page in iis server click (ctrl+o)"
txtbody.Text = IO.File.ReadAllText("C:\inetpub\wwwroot\p.php", Encoding.UTF8)
End Sub
End Class
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
