تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية تحويل مشروع من c# الى vb.net
#1
السلام عليكم و رحمة الله  وبركاتو
عندى مشروع  بعملو  باللغة C# و عايز حد يساعنى يكون VB.NEt مع الشرح لو سمحتو
  Huh  و اكون شاكر ليكم جدا شباب


الملفات المرفقة
.rar   IMWindow.rar (الحجم : 64.78 ك ب / التحميلات : 34)
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}
تم الشكر بواسطة:
#2
عاوز تعمل شات ؟
الرد }}
تم الشكر بواسطة:
#3
ايوه اخى الكريم
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}
تم الشكر بواسطة:
#4
اشتغل على SignalR
انا مجربها ولها امثلة كثيرة جدا
الرد }}
تم الشكر بواسطة: محمد كريّم , sendbad100 , sendbad100 , alims
#5
أغلب الظن هو أنك تجيد اللغتين
عايز مساعدة في تحوبل الكود ليه بقي؟
عموما المشكلة الوحيدة التي قد تقابلك في تحويل الكود هي Handlers و Delegates فأسلوب كتابتهم مختلف في اللغتين

الكلاس EmoticonMenuItem


PHP كود :
Public Class EmoticonMenuItem
    Inherits MenuItem

    Private 
Const ICON_WIDTH As Integer 19
    Private 
Const ICON_HEIGHT As Integer 19
    Private 
Const ICON_MARGIN As Integer 4
    Private _backgroundColor 
As Color
    Private _selectionColor 
As Color
    Private _selectionBorderColor 
As Color
    Private _image 
As Image

    Public Sub 
New(img As Image)
 
       Me.New()
 
       Me._image _image
    End Sub

    Public Sub 
New()
 
       MyBase.OwnerDraw True
        Me
._backgroundColor SystemColors.ControlLightLight
        Me
._selectionColor Color.FromArgb(5000150)
 
       Me._selectionBorderColor SystemColors.Highlight
    End Sub

    Public Property Image
() As Image
        Get
            Return Me
._image
        End Get
        Set
(value As Image)
 
           Me._image value
        End Set
    End Property

    Protected Overrides Sub OnDrawItem
(As DrawItemEventArgs)
 
       'MyBase.OnDrawItem(e)
        Dim g As Graphics = e.Graphics
        Dim bounds As Rectangle = e.Bounds
        Dim selected As Boolean = (e.State And DrawItemState.Selected) <> DrawItemState.None
        Me.DrawBackground(g, bounds, selected)
        If Me._image IsNot Nothing Then
            Dim x As Integer = CInt(bounds.X + (bounds.Width - ICON_WIDTH) / 2)
            Dim y As Integer = CInt(bounds.Y + (bounds.Height - ICON_HEIGHT) / 2)
            g.DrawImage(Me._image, x, y)

        End If
    End Sub

    Protected Overrides Sub OnMeasureItem(e As MeasureItemEventArgs)
        '
MyBase.OnMeasureItem(e)
 
       e.ItemHeight 17
        e
.ItemWidth 23
    End Sub

    Private Sub DrawBackground
(As Graphicsbounds As Rectangleselected As Boolean)
 
       If selected Then
            g
.FillRectangle(New SolidBrush(Me._selectionColor), bounds)
 
           g.DrawRectangle(New Pen(Me._selectionBorderColor), bounds.Xbounds.Ybounds.Width 1bounds.Height 1)
 
       Else
            g
.FillRectangle(New SolidBrush(Me._backgroundColor), bounds)
 
       End If
 
   End Sub

End 
Class 

الكلاس RtfCodes
أضف فورم عادي جدا للمشروع و اعطه الاسم RtfCodes
واكتب الكود بالشكل التالي
PHP كود :
Imports System.Text

Public Class RtfCodes

    Private line 
As Integer
    Private sb 
As StringBuilder

    Public Sub 
New(owner As Form)

 
       ' This call is required by the designer.
        InitializeComponent()

        ' 
Add any initialization after the InitializeComponent() call.
 
       MyBase.Owner owner
        MyBase
.Width owner.Width
        MyBase
.Height owner.Height 2
        MyBase
.StartPosition FormStartPosition.Manual
        MyBase
.Location = New Point(MyBase.Owner.Location.XMyBase.Owner.Location.MyBase.Height SystemInformation.CaptionHeight)

 
   End Sub

    Public Sub AppendText
(As String)
 
       Me.line += 1
        Me
.sb = New StringBuilder()
 
       Me.sb.Append("<")
 
       Me.sb.Append("Line ")
 
       Me.sb.Append(Me.line)
 
       Me.sb.Append(">")
 
       Me.sb.Append(" ")
 
       Me.sb.Append(s)
 
       Me.TextBox1.Text += sb.ToString
    End Sub

End 
Class 


الكلاس الأخير IMWindow
مشكلتك هنا انك بتستخدم مكتبة اسمها Khendys.Controls.ExRichTextBox
غليك ان تضيف المكتبة الي ToolBox الخاصة بالفيجوال استوديو و ذلك لسهولة سحبها الي الفورم و حتي تتفادي كتابة كل شئ باستخدام الكود
ثم عليك أن تضيف بقية الكونترول الأخري و تضبط أماكنهم علي الفورم

أيضا عليك أن تضيف صور Emoctions الي Resources المشروع و تملأها كالتالي


PHP كود :
   Private Sub GetEmoctions()
 
       Me.emoticons = New Image(8) {}
 
       Me.emoticons(0) = My.Resources.AngelSmile
        Me
.emoticons(1) = My.Resources.AngrySmile
        Me
.emoticons(2) = My.Resources.Beer
        Me
.emoticons(3) = My.Resources.BrokenHeart
        Me
.emoticons(4) = My.Resources.ConfusedSmile
        Me
.emoticons(5) = My.Resources.CrySmile
        Me
.emoticons(6) = My.Resources.DevilSmile
        Me
.emoticons(7) = My.Resources.EmbarassedSmile
        Me
.emoticons(8) = My.Resources.ThumbsUp
    End Sub 
Retired
الرد }}
تم الشكر بواسطة: Sajad , sendbad100 , alims , dubai.eig , dubai.eig
#6
السلام عليكم ورحمة الله

اضافة لما قدمه كلاً من اخوتى اليك السورس + البرنامج بعد التحويل
وتم عمل بعض التغييرات على السورس الرئيسى ليزيد بعض جمالاً

مصدر السورس الرئيسي الخاص بك 

مرفق بالمرفقات الصورس + البرنامج مع صور الرد..

صورة لشكل البرنامج الخاص بالسورس بعد التحويل..

1- صورة للبرنامج عند الاستخدام مع استخدام اختصارات الـ Emoticons


2- صورة لشاشة الـ Emoticons عند الضغط على جملة Emoticons


3- عند الضغط على Font لتغيير تسنيق الخط واللون فى البرنامج


4- لاظهار واخفاء شاشة RtfCodes


بالنهاية اتمنى تحويل السورس مع تعديل بعض التعديلات ان يكون كما تريد

تحياتى لك
وتمنياتى لك التوفيق


الملفات المرفقة
.zip   صور الرد.zip (الحجم : 31.3 ك ب / التحميلات : 5)
.zip   Pro IMWindows.zip (الحجم : 68.7 ك ب / التحميلات : 14)
.zip   IMWindow.zip (الحجم : 303.65 ك ب / التحميلات : 36)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة: sendbad100 , الوايلي , alims , dubai.eig , dubai.eig


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيفية التعديل علي firebase من خلال auth ميدو الفنان 2 316 12-06-22, 01:36 AM
آخر رد: أبو خالد الشكري
  مطلوب تحويل كود من vba الى vb.net Lathe1 3 265 06-06-22, 09:59 PM
آخر رد: رمضان272
Question كيفية زيادة وانقاص الارقام العشرية في C# و VB.NET silverlord 4 315 29-05-22, 02:49 AM
آخر رد: silverlord
  [سؤال] استفسار عن تحويل كود طباعة داتا قريد فيو من اليسار لليمين Marwan9990 15 6,285 25-05-22, 11:39 PM
آخر رد: atefkhalf2004
  تحويل كود الى جافا saidhamed 1 204 25-05-22, 10:29 PM
آخر رد: asmarsou
  [اقتراح] اقتراح ببدء التدريب لاعداد مشروع محاسبى متكامل ERP من الصفر DR.YASER 17 2,319 25-05-22, 05:32 PM
آخر رد: DR.YASER
  مطلوب تحويل كود من vba الى vb.net Lathe1 2 209 21-05-22, 10:29 AM
آخر رد: Lathe1
  [VB.NET] نقاش تحويل المشاريع بتقنية vbnet للعمل على الأنظمة الأخرى Kit909 3 368 11-05-22, 05:22 AM
آخر رد: Kit909
  [VB.NET] تحويل مشروع من اصدار فيجوال بيسك لأصدار احدث على رمضان أبو احمد 1 367 09-05-22, 09:16 PM
آخر رد: ابراهيم ايبو
  كيفية استخدام autocomplete for textbox الماجيك مسعد 2 337 08-05-22, 09:31 PM
آخر رد: الماجيك مسعد

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


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