تقييم الموضوع :
  • 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 ك ب / التحميلات : 44)
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: سعود , عبد العزيز البسكري , asemshahen5 , Codack


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة جيولوجي مبتدئ 3 96 02-08-20, 02:10 AM
آخر رد: ابراهيم ايبو
  التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة جيولوجي مبتدئ 0 30 01-08-20, 07:49 PM
آخر رد: جيولوجي مبتدئ
Exclamation [سؤال] اريد حل لمشكلة في الفيجوال ستوديو 2015 Mina Botros 4 218 30-07-20, 07:54 AM
آخر رد: Mina Botros
  اريد كود فتح متصفح فايرفوكس سلينيوم من خلال VB.NET developermedo111 1 66 29-07-20, 02:41 AM
آخر رد: ابو روضة
  سؤال : هل من الممكن تفريغ الفورم حول صورة لتظهر الصورة فقط بدون خلفية او ظهور الفورم xprogrammer 2 99 28-07-20, 11:17 AM
آخر رد: Anas Mahmoud
  [سؤال] كيف لي أن أقرأ صورة jpg وكتابتها كنص في صندوق نص , معلومات الصورة وبايتات الصورة rafaag777 0 59 23-07-20, 03:56 AM
آخر رد: rafaag777
  [كود] اريد التعديل على الكود وهو عدم التكرار عمور2016 3 132 23-07-20, 01:03 AM
آخر رد: عبد العزيز البسكري
Heart [سؤال] ارجوكم اريد طريقة عمل ملف تنفيذي بالفيجول بيسك 2010 soon 4 4,275 19-07-20, 12:07 AM
آخر رد: rochdi191
  السلام عليكم اريد المساعدة في السلينيوم developermedo111 0 88 18-07-20, 07:58 PM
آخر رد: developermedo111
  [سؤال] اريد كود بحث كومبوبكس وتظهر النتيجة على الشيك بوكس يعني صح او خطا essawq 16 780 13-07-20, 09:03 PM
آخر رد: essawq

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


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