تقييم الموضوع :
  • 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 ك ب / التحميلات : 8)
الرد
تم الشكر بواسطة: سعود , عبد العزيز البسكري , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الرجاء المساعده فى عمل زر يقوم بتغيير صورة الفورم الى صورة اخرى من Resources على زهران 8 178 منذ 11 ساعة مضت
آخر رد: alshandodi
  [Acces2010] اريد مساعدة فى حل هذا الخطأ Mina Botros 10 161 15-09-19, 02:15 AM
آخر رد: Mina Botros
Exclamation [سؤال] اريد انشاء كريستال ريبورت بدون قاعدة بيانات NewUser 3 121 13-09-19, 02:44 AM
آخر رد: Rabeea Qbaha
  كيفية نقل صورة الى ملف وورد الرائد 3 94 11-09-19, 06:45 PM
آخر رد: الرائد
  اريد كود ضرورى خالد كامل1 4 124 05-09-19, 03:55 PM
آخر رد: خالد كامل1
  [سؤال] لدي جدول به اسعار اريد السعر من خلال رقم الكلاس مرفق الكود dametucorazon 5 187 01-09-19, 03:44 PM
آخر رد: dametucorazon
  [سؤال] اريد طريقة فعالة لحذف Webbrowser cache قبل تحميل صفحة جديدة dametucorazon 2 116 27-08-19, 07:16 PM
آخر رد: dametucorazon
  [VB.NET] اريد مساعدة في حل مشكله صغيرة e-coder 2 119 24-08-19, 06:04 AM
آخر رد: youcef3zino
  محتاج مساعدة على التعديل على بوتن Mohamed Magdy 0 74 23-08-19, 07:03 PM
آخر رد: Mohamed Magdy
  [كود] اريد كود تغير لون مؤشر الكتابه في التكست بوكس اليوم السابع 1 113 20-08-19, 12:56 AM
آخر رد: اسامه الهرماوي

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


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