منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اي فكرة تطرأ على بالي اكتبها هنا لمشاركتها فقط و ليس بقصد الابداع ابدا Smile

شغل البرنامج كمسؤول

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 

تعديل:: اضافة كود تقليل حجم الخط

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سعود