تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اريد التعديل ع كود للكتابه ع صورة
#1
سلام عليكم



اريد من الاخوة مساعدتي

اناا معي كود لكتابه ع صورة 
ولكن اريد بعد كتابه ع صورة ان تتحول الي رابط تحميل مباشر

معي كود لتحويل صورة الي رابط مباشر بطريقة السحب والاسقاط

ولكن كل مااريده بعد الكتابه على صورة ان تتحول صورة الي رابط مباشر 

كود للكتابه ع صورة

PHP كود :
Dim image As Image
        Dim graphics 
As Graphics
        Dim font 
As Font
        Dim point 
As PointF

        
' Load image
        image = Drawing.Image.FromFile("add.jpg")
        ' 
Create graphics from image
        graphics 
Drawing.Graphics.FromImage(image)
 
       ' Create font
        font = New Font("Times New Roman", 80.0F)
        ' 
Create text position
        point 
= New PointF(150150)
 
       ' Draw text
        graphics.DrawString("emad", font, Brushes.White, point)
        ' 
Save image
        image
.Save("my_sample_output.jpg")
 
       ' Open generated image file in default image viewer installed in Windows
        Process.Start("my_sample_output.jpg") 

وهنا مشروع كامل لرفع صورة عن طريق سحب والاسقاط برابط مباشر

PHP كود :
Imports System.Net
Imports System
.Text
Imports System
.IO
Imports System
.Text.RegularExpressions

Public Class Form1
    Public Sub 
New()
 
       InitializeComponent()
 
       Control.CheckForIllegalCrossThreadCalls False
    End Sub
    Dim ClientId 
As String "66665db7b4b0608"
 
   Dim Dictionner As New Dictionary(Of WebClientListViewItem)

 
   Private Sub Completed(sender As ObjectAs UploadValuesCompletedEventArgs)
 
       Dim Result As String = (New UTF8Encoding).GetString(e.Result)
 
       If e.Cancelled True Then
            lvfiles
.Items(Dictionner.Item(sender).Index).SubItems(1).ForeColor Color.RoyalBlue
            lvfiles
.Items(Dictionner.Item(sender).Index).SubItems(1).Text "Cancelled"
 
       ElseIf e.Error IsNot Nothing Then
            lvfiles
.Items(Dictionner.Item(sender).Index).SubItems(1).ForeColor Color.Red
            lvfiles
.Items(Dictionner.Item(sender).Index).SubItems(1).Text "Error"
 
       ElseIf e.Result IsNot Nothing Then
            Dim K 
As Match Regex.Match(Result",""link"":""(.*?)""}")
 
           lvfiles.Items(Dictionner.Item(sender).Index).ToolTipText K.Groups(1).Value.Replace("\", "")
            lvfiles.Items(Dictionner.Item(sender).Index).SubItems(1).ForeColor = Color.Green
            lvfiles.Items(Dictionner.Item(sender).Index).SubItems(1).Text = "
SucessfullyUploaded"
        End If

    End Sub
    Private Sub Progress(sender As Object, e As UploadProgressChangedEventArgs)
        On Error Resume Next
        lvfiles.Items(Dictionner.Item(sender).Index).SubItems(1).ForeColor = Color.Blue
        lvfiles.Items(Dictionner.Item(sender).Index).SubItems(1).Text = e.ProgressPercentage & "
%"
    End Sub

    Private Sub lvfiles_DoubleClick(sender As Object, e As EventArgs) Handles lvfiles.DoubleClick
        If Not lvfiles.FocusedItem.SubItems(1).ForeColor = Color.Green Then : Exit Sub : End If
        Clipboard.SetText(lvfiles.FocusedItem.ToolTipText, TextDataFormat.Text)
        TextBox1.Text = (lvfiles.FocusedItem.ToolTipText)
        MsgBox("
Link Copied", MsgBoxStyle.Information)
    End Sub

    Private Sub lvfiles_DragDrop(sender As Object, e As DragEventArgs) Handles lvfiles.DragDrop


        Try
            Dim FilePath As String = e.Data.GetData(DataFormats.FileDrop)(0)

            Dim NIcon As Icon = Icon.ExtractAssociatedIcon(FilePath)
            ImageList1.Images.Add(NIcon)
            Dim itm As New ListViewItem
            itm.UseItemStyleForSubItems = False
            itm.Text = Path.GetFileName(FilePath)
            itm.SubItems.Add("
Uploading...").ForeColor = ColorTranslator.FromHtml("#3b4451")
 
           itm.ImageIndex ImageList1.Images.Count 1
            lvfiles
.Items.Add(itm)

 
           Dim w As New WebClient()
 
           w.Headers.Add("Authorization""Client-ID " ClientId)
 
           AddHandler w.UploadValuesCompletedAddressOf Completed
            AddHandler w
.UploadProgressChangedAddressOf Progress
            Dim Keys 
As New System.Collections.Specialized.NameValueCollection
            Keys
.Add("image"Convert.ToBase64String(File.ReadAllBytes(FilePath)))
 
           w.UploadValuesAsync(New Uri("https://api.imgur.com/3/image"), Keys)
 
           Dictionner.Add(witm)
 
       Catch ex As Exception
            MsgBox
(ex.Message)
 
       End Try
 
   End Sub

    Private Sub lvfiles_DragEnter
(sender As ObjectAs DragEventArgsHandles lvfiles.DragEnter
        If e
.Data.GetDataPresent(DataFormats.FileDropThen
            e
.Effect DragDropEffects.All
        End 
If
 
   End Sub

    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load

    End Sub

    Private Sub lvfiles_SelectedIndexChanged
(sender As ObjectAs EventArgsHandles lvfiles.SelectedIndexChanged

    End Sub

End 
Class 
اريد فقط تحويل صورة المكتوبه لرابط مباشر وشكرا
الرد
تم الشكر بواسطة:
#2
الرججاء االرد
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#3
الررججاءء مساععدتتيي للضضرروررة ااالققصوي
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5 , asemshahen5
#4
السلام عليكم اخي الكريم
صدقا لم اوفر جهدا لايجاد حل لمشكلتك لكني لم اوفق لان المعضلة هي تحويل الصورة المعدلة الى link
لدي فكرة قم بتجربتها علك تصل الى مرادك (ان اعجبتك)
بعدجلب صورة ما ثم الكتابة عليها .. قم بانشاء حدث Click على الصورة وهذا الحدث يقوم بتنفيد رابط وهو الرابط الذي تريد ان ينفذ عند الضغط عليها
اتمنى لو استطيع مساعدتك اكثر
دمت بخير
الرد
تم الشكر بواسطة: سعود , asemshahen5 , عبد العزيز البسكري
#5
ووكيف يتم ذللك؟؟
الرد
تم الشكر بواسطة: ابراهيم ايبو
#6
السلام عليكم اخي الكريم 

البرمجة هي منهج تفكير وليست اكواد فقط ... الاكواد تجدها اينما تشاء لكن الافكار هي من يخلق  منك مبرمجا

وهذا مايميز الغرب عنا ... هم دائما يبحثون عن افكار برمجية 

اليك الفكرة التي ذكرتها لك في مثال


الملفات المرفقة
.rar   تابع الرسم والالوان9.rar (الحجم : 235.21 ك ب / التحميلات : 17)
الرد
تم الشكر بواسطة: سعود , عبد العزيز البسكري , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [نقاش] التعديل علي قاعده بيانات sql عن بعد abo3li8555 1 31 , 06:32 PM
آخر رد: asemshahen5
  [سؤال] اريد المساعده بخصوص التعرف علي اللغه العربيه في صفحه HTML اليوم السابع 2 75 08-11-19, 03:20 AM
آخر رد: اليوم السابع
  اريد التعديل البسيط علي مشروعي اليوم السابع 8 189 07-11-19, 12:07 PM
آخر رد: اليوم السابع
  لو سمحتم اخوانى فى المنتدى الكريم اريد كود بحث خالد كامل1 6 146 07-11-19, 02:08 AM
آخر رد: asemshahen5
  [VB.NET] لو سمحتوا اريد عمل برنامج يرسل رسائل علي لينك للفيس بوك Waelstar011 1 134 05-11-19, 03:04 PM
آخر رد: Waelstar011
  اريد سورس كود مثل شاشة الأصناف بالصور new_programer 1 122 01-11-19, 05:08 AM
آخر رد: Rabeea Qbaha
Exclamation [VB.NET] ثلاثة ايام من المحاولة , >الفاشلة< : كود تصوير 60 صورة في الثانية SnTnt 8 219 29-10-19, 12:04 AM
آخر رد: SnTnt
  [VB.NET] بعد تعبئة خانة معينة منع التعديل في النموذج khairallah 3 134 15-10-19, 03:51 PM
آخر رد: elgokr
  اذا امكن احدكم من مساعدتي اريد مثل الصوره لمنع تكرار الاسم mostafa12 2 216 15-10-19, 05:20 AM
آخر رد: mostafa12
  [VB.NET] تحديد مكان في صورة اللورد محمود 7 215 12-10-19, 03:36 AM
آخر رد: ميدو الفنان

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


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