حيلة العاجز:)

Sat, 29 Apr 2023 02:52:08 +0000

السلام عليكم ورحمة الله وبركاته

لما تعبت من انجاز محرر شبه متكامل بسبب ضعفي في جافاسكريبت لجات للمستخدم بان اساله ان يكتب اللون المطلوب او الحجم

PHP كود :
<script>
        function b() {
            var txt = getSelection();
            var ed = document.getElementById("editor");
            ed.innerHTML = ed.innerHTML.replace(txt, "" + txt + "");
        }
        function italic() {
            var txt = getSelection();
            var ed = document.getElementById("editor");
            ed.innerHTML = ed.innerHTML.replace(txt, "" + txt + "");
        }
        function und() {
            var txt = getSelection();
            var ed = document.getElementById("editor");
            ed.innerHTML = ed.innerHTML.replace(txt, "" + txt + "");
        }
        function strong() {
            var txt = getSelection();
            var ed = document.getElementById("editor");
            ed.innerHTML = ed.innerHTML.replace(txt, "" + txt + "");
        }
        function dsize() {
            var s = prompt("اكتب الحجم");
            var txt = getSelection();
            var ed = document.getElementById("editor");
            ed.innerHTML = ed.innerHTML.replace(txt, "+ s + "px;'>" + txt + "");
        }
        function dcolor() {
            var s = prompt("اكتب اللون");
            var txt = getSelection();
            var ed = document.getElementById("editor");
            ed.innerHTML = ed.innerHTML.replace(txt, "+ s + ";'>" + txt + "");
        }

        function dbcolor() {
            var s = prompt("اكتب اللون");
            var txt = getSelection();
            var ed = document.getElementById("editor");
            ed.innerHTML = ed.innerHTML.replace(txt, "+ s + ";'>" + txt + "");
        }

        function pos() {
            var s = prompt("اكتب الموضع");
            var txt = getSelection();
            var ed = document.getElementById("editor");
            ed.innerHTML = ed.innerHTML.replace(txt, "+ s + ";'>" + txt + "
");
        }

        function cls() {
            var ed = document.getElementById("editor");
            ed.innerHTML = ed.innerText;
        }

    script> 

سميت الموقع او المنتدى الجديد اللذي لم يولد بعد بـ cssforum لكن لم تزبط(تضبط) معنا قصدي بـ css انه يناسب كل الشاشات().
واللكن الاهم هو انه اخف من ناحية الاستعلامات صح فيها كثير لكن اقل بكثير من الاول.

قوالب جاهزة للتحميل

Wed, 04 Dec 2019 20:33:34 +0000

وجدتها في موقع
موقع أراثيمز
لم أعرف لأي لغة برمجة

جعل النص Wrap في زر الامر

Thu, 05 Jan 2017 19:09:36 +0000

السلام عليكم ورحمة الله وبركاته

اخواني الكرام هذا ال style خاص بجع النص ملتف اي wrap في زر الامر

كود :
.mybutton

        {

          white-space: normal;                      

          vertical-align:middle;          

          text-align:center;

          font-size:12px;

          width:70px;

          height:40px;

        }

بالتوفيق

Session Timeout

Tue, 08 Nov 2016 13:14:44 +0000

السلام عليكم

How to Set Session Timeout in ASP.Net

يتم ذلك بخطوتين :
1_ في ملف Config

PHP كود :
<configuration>
  <system.web>
    <sessionState mode="InProc" cookieless="true"timeout="60"/>
    sessionState>
  system.web>
configuration> 

2_ في ملف Global

PHP كود :
void Session_Start(object sender, EventArgs e)
{
Session.Timeout = 60;
} 

يعطيكم العافية

كود تحميل وعرض الصور ( للمبتدئين ) مع طباعة صورة فوق صورة أو كتابة على الصور

Tue, 17 Jun 2014 10:36:20 +0000

السلام عليكم ورحمة الله وبركاته
*- قم بانشاء مشروع ويب جديد ( للمبتدئين)
قم بعمل مجلد في نفس المشروع وسمه
Marked
* قم بانشاء مجلد اخر وسمه
Images
* قم باضافة صورة كعلامة مائية على الصور وسمها
fi.png انقل الصورة الى المجلد Images
المجلد Marked سنحفظ فيه الصورة بعد التميل وطباعة العلامة عليه.

*- اسمح كل ما في كود html للصفحة وانسخ الكود التالي - اسم الصفحة Default

PHP كود :
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>

DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">

    <title>title>
    <style type="text/css">

        #mar1
        {
            width: 927px;
        }
        style>
    <link href="zxy.css" rel="stylesheet" type="text/css" />
head>
<body>
    <form id="form1" runat="server">
    <div align="center" dir="rtl">

        <asp:TextBox ID="TextBox1" runat="server">asp:TextBox>

        <asp:FileUpload ID="FileUpload1" runat="server" style="width: 217px" />
        <asp:Button ID="btnAddImageAsWaterMark" runat="server" 
            onclick="btnAddImageAsWaterMark_Click" Text="????? ??????" Height="22px" />
    
        <br />
    <asp:Image ID="Image1" runat="server" Height="83px" Width="254px" 
            CssClass="Example_A" />

        <br />
    
        <asp:HyperLink ID="hp" runat="server">asp:HyperLink>

        <div id="Block1" align="center" class="Example_D" dir="rtl" 
            style="border-left: 1px solid #D8D7D8; border-right: 1px solid #D8D7D8; border-top: 1px solid #D8D7D8; background-position: 50% bottom; height: auto; background-image: url('images/down.png'); background-repeat: repeat-x; background-color: #FFFFFF; width: 1015px; border-bottom-color: #D8D7D8;">
            <br />
        <table id="TabelM" bgcolor="White" cellpadding="0" 
            cellspacing="0" dir="rtl" 
            
                style="width: 95%; height: 120px; list-style-position: inside; font-size: 12pt;">
            <tr>
                <td align="right" dir="rtl" valign="top" style="text-align: center">
                    <asp:Label ID="Label6" runat="server" Text="??? ?????">asp:Label>
<asp:DataList ID="DataList1" runat="server" RepeatColumns="10" Height="93px" 
            Width="937px" BackColor="White" style="text-align: center">
        <FooterStyle HorizontalAlign="Center" VerticalAlign="Middle" />
        <ItemTemplate>
            &nbsp;<a href='<%#Eval("FileName") %>' target ="_blank" ">Example_D" bottom" 
                src='<%#Eval("FileName") %>' style=" height: 50px; width: 50px">
            
        Center" VerticalAlign="Middle" />

مكان الاستفهامات نص رسالة بالعربي .
نأتي لصفحة الكود
نمسح كل ما في صفحة الكود وننسخ التالي

PHP كود :
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.IO
Imports System.Data

Partial Public Class _Default
    Inherits System.Web.UI.Page
    Dim gf As String = ""
    Dim filename As String = ""

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        ShoImages(Server.MapPath("~/marked/"), "marked/")
    End Sub
    Protected Sub btnAddImageAsWaterMark_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAddImageAsWaterMark.Click
        Static c
        c = c + 1
        If c > 1 Then Exit Sub
        ' gf = "gif" Or gf = "GIF" Or ?????? ??? ????? ???? ????? ???????? 
        gf = Right(FileUpload1.FileName, 3)
        If gf = "png" Or gf = "PNG" Or gf = "jpg" Or gf = "JPG" Or gf = "BMP" Or gf = "bmp" Then
            Dim imageByte As Byte() = FileUpload1.FileBytes
            Dim memStream As New MemoryStream(imageByte)
            Dim img As System.Drawing.Image = System.Drawing.Image.FromStream(memStream)
            Dim Mars As System.Drawing.Image = System.Drawing.Image.FromFile(Server.MapPath("images/fi.png"))
            Dim wdth As Integer = Mars.Width
            Dim higt As Integer = Mars.Height
            Mars.Dispose()
            '?????? ??????? ??????? ??? ??????
            Dim waterMarkimage As System.Drawing.Image = System.Drawing.Image.FromFile(Server.MapPath("images/fi.png"))
            Dim opacity As Graphics = System.Drawing.Graphics.FromImage(waterMarkimage)
            Dim imageRect As New Rectangle(0, 0, waterMarkimage.Width, waterMarkimage.Height)
            Dim brush As Brush = New TextureBrush(waterMarkimage, imageRect)
            opacity.FillRectangle(brush, imageRect)
            opacity.Save()
            Dim g As Graphics = System.Drawing.Graphics.FromImage(img)
            Dim drawString As [String] = " Ourlab.Net " & Chr(169) & Year(Date.Today)
            '????? ??
            Dim drawFont As New Font("Arial", 10, FontStyle.Bold)
            Dim drawBrush As New SolidBrush(Color.Red)
            '  Dim drawPoint As New PointF(0, (img.Height - wdth) / 2)
            '  g.DrawString(drawString, drawFont, drawBrush, drawPoint)

            ' ????? ???? ??????? ???????
            Dim point As New Point(0, img.Height - higt)
            g.DrawImage(waterMarkimage, point)


            Dim filename As String = Guid.NewGuid().ToString() & "." & gf
            img.Save(Server.MapPath("marked\" & filename))
            opacity.Dispose()
            memStream.Dispose()
            g.Dispose()
            waterMarkimage.Dispose()
            img.Dispose()
            Image1.ImageUrl = ("marked\" & filename)
            ' ??? ???? ??? ?????
            hp.Text = "<a href='" & Image1.ImageUrl & "'target=_blank >" & "Click here" & "a>"
        Else
            Response.Write("<script>alert(' " & " This file " & FileUpload1.FileName & " not image or bad file " & " ')script>")
        End If
        ShoImages(Server.MapPath("~/marked/"), "marked/")
    End Sub
    Private Sub ShoImages(ByVal FilePath As String, ByVal ImgDisplayPath As String)

        Dim dt As New DataTable()

        dt.Columns.Add("FileName", GetType(System.String))

        dt.Columns.Add("Size", GetType(System.String))

        Dim dr As DataRow = Nothing

        Dim dir As New System.IO.DirectoryInfo(FilePath)
        For Each fi As System.IO.FileInfo In dir.GetFiles()
            dr = dt.NewRow()

            dr(0) = ImgDisplayPath & fi.Name.ToString()

            dr(1) = fi.Length.ToString("N0")
            ''N0'formats the number with commas

            dt.Rows.Add(dr)
        Next
        '
        DataList1.DataSource = dt

        DataList1.DataBind()

    End Sub

End Class 

اخيرا شغل المشروع وارفع صورة وحاول ان تتفنن وتغير وتحسن من الكود كما تحب
اذا وجدت اخطاء ارجو تنبيهي لها
فالمثال وجدته على صفحات النت وقمت فقط ببعض التعديلات عليه
وفقني الله واياكم لكل خير

تحميل وتنزيل الملفات الى ومن sql server

Sat, 28 Sep 2013 15:17:21 +0000