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







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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 91 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 274 18-01-24, 05:04 PM
آخر رد: loay775
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 431 09-01-24, 08:40 PM
آخر رد: new_programer
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] كود التعديل Abdellatif 6 396 21-12-23, 02:01 PM
آخر رد: Abdellatif
  كود التعديل لم ينجح معي melad2002 4 298 16-12-23, 12:22 AM
آخر رد: anes
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 360 08-11-23, 08:16 AM
آخر رد: justforit

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


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