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


الملفات المرفقة
.rar   IMWindow.rar (الحجم : 64.78 ك ب / التحميلات : 43)
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 15)
.zip   IMWindow.zip (الحجم : 303.65 ك ب / التحميلات : 37)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تصميم مشروع لاختار اسم MOHAMMED ALZWI 2 82 25-03-24, 01:32 PM
آخر رد: MOHAMMED ALZWI
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,123 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 3 359 13-01-24, 04:22 AM
آخر رد: dr.programming
  تحويل مشروع من c# الى فيجول بيسك Lathe1 4 718 05-01-24, 01:05 AM
آخر رد: HALIM ELEULMA
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 304 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 268 29-12-23, 10:44 PM
آخر رد: Kamil

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


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