13-02-17, 09:10 AM
بسم الله الرحمان الرحيم
واجهتني مشكلة كيفية نقل هذا الكود من
Form2
الي
Form1
الكود المتواجد في Form2 هو كتالي
كود :
Public Class Form2
Private fm1 As String
Private fm2 As String
Private fm3 As String
Private fm4 As String
Private fm5 As String
Private Sub msg_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles msg.TextChanged
Try
Me.msg.ScrollBars = ScrollBars.Vertical
Dim strArray As String() = Me.msg.Text.Split(New Char() {"#"c})
Me.fm1 = strArray(0)
Me.fm2 = strArray(1)
Me.fm3 = strArray(2)
Me.fm4 = strArray(3)
Me.fm5 = strArray(4)
Catch
End Try
End Sub
End Class
الكود في Form1 هنا المشكلة
كود :
emad1.Send(String.Concat(New String() {"<message to='", Me.room.Text, "@conference.nimbuzz.com' type='groupchat'><body>", Form2.fm1, "</body><html xmlns='http://jabber.org/protocol/xhtml-im'><body xmlns='http://www.w3.org/1999/xhtml'><p><em>false</em><strong>true</strong><span style='", color0, "'/></p></body></html></message>"}))
صورة للمشكلة
ارجو افادتي وشكراً