Font Dialog Box

T

Tripic

Member
Joined
Jul 29, 2005
Messages
19
Programming Experience
Beginner
Hello all i am new to vb.net and at that any programing out side of pgp mysql and html. Anyways the problem that i am running into is as follows i have set up a basic socket chat aplication and am now trying to add font options a can get the font Dialog Box to apear but cant seem to get the fontt to apply to my text when i type in the text box any ideas would be greatly apreciated thanks in advance

Tripic
IRC = ucandevelopments.com:9999 #Visual_Basic
 
Sort by date Sort by votes
Try to find sense from the code below ... otherwise feel free to ask for additional help:

VB.NET:
Expand Collapse Copy 
[size=2][color=#0000ff]Private [/color][/size][size=2][color=#0000ff]Sub[/color][/size][size=2] Button1_Click([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] Button1.Click
[/size][size=2][color=#0000ff]If [/color][/size][size=2][color=#0000ff]Me[/color][/size][size=2].FontDialog1.ShowDialog = DialogResult.OK [/size][size=2][color=#0000ff]Then
 
[/color][/size][size=2][color=#0000ff]Me[/color][/size][size=2].TextBox1.Font = [/size][size=2][color=#0000ff]Me[/color][/size][size=2].FontDialog1.Font
 
[/size][size=2][color=#0000ff]End [/color][/size][size=2][color=#0000ff]If
 
[/color][/size][size=2][color=#0000ff]End [/color][/size][size=2][color=#0000ff]Sub
[/color][/size]

Cheers ;)
 
Upvote 0 Downvote
Wow well that was simple but i still have one issue when i click send on the chat aplication although the text shows up in the area ment to type it shows up normal in the recive window unless i tell it to add the font to the recive window as well now the problem is i want people to be able to select there own text and have each persons text show up instead of it changing everyones text.. heres the code for the client

VB.NET:
Expand Collapse Copy 
 [size=2][color=#0000ff]

Imports[/color][/size][size=2] System.Text

[/size][size=2][color=#0000ff]Imports[/color][/size][size=2] System.Net.Sockets

 

[/size][size=2][color=#0000ff]Public[/color][/size][size=2] [/size][size=2][color=#0000ff]Class[/color][/size][size=2] Form1

[/size][size=2][color=#0000ff]Inherits[/color][/size][size=2] System.Windows.Forms.Form

[/size][size=2][color=#0000ff]Public[/color][/size][size=2] [/size][size=2][color=#0000ff]Delegate[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] DisplayInvoker([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] t [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]String[/color][/size][size=2])

#[/size][size=2][color=#0000ff]Region[/color][/size][size=2] " Windows Form Designer generated code "

[/size][size=2][color=#0000ff]Public[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] [/size][size=2][color=#0000ff]New[/color][/size][size=2]()

[/size][size=2][color=#0000ff]MyBase[/color][/size][size=2].New()

[/size][size=2][color=#008000]'This call is required by the Windows Form Designer.

[/color][/size][size=2]InitializeComponent()

[/size][size=2][color=#008000]'Add any initialization after the InitializeComponent() call

[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#008000]'Form overrides dispose to clean up the component list.

[/color][/size][size=2][/size][size=2][color=#0000ff]Protected[/color][/size][size=2] [/size][size=2][color=#0000ff]Overloads[/color][/size][size=2] [/size][size=2][color=#0000ff]Overrides[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] Dispose([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] disposing [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Boolean[/color][/size][size=2])

[/size][size=2][color=#0000ff]If[/color][/size][size=2] disposing [/size][size=2][color=#0000ff]Then

[/color][/size][size=2][/size][size=2][color=#0000ff]If[/color][/size][size=2] [/size][size=2][color=#0000ff]Not[/color][/size][size=2] (components [/size][size=2][color=#0000ff]Is[/color][/size][size=2] [/size][size=2][color=#0000ff]Nothing[/color][/size][size=2]) [/size][size=2][color=#0000ff]Then

[/color][/size][size=2]components.Dispose()

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]If

[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]If

[/color][/size][size=2][/size][size=2][color=#0000ff]MyBase[/color][/size][size=2].Dispose(disposing)

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]Friend[/color][/size][size=2] [/size][size=2][color=#0000ff]WithEvents[/color][/size][size=2] txtDisplay [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Windows.Forms.TextBox

[/size][size=2][color=#0000ff]Friend[/color][/size][size=2] [/size][size=2][color=#0000ff]WithEvents[/color][/size][size=2] txtSend [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Windows.Forms.TextBox

[/size][size=2][color=#0000ff]Friend[/color][/size][size=2] [/size][size=2][color=#0000ff]WithEvents[/color][/size][size=2] btnSend [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Windows.Forms.Button

[/size][size=2][color=#008000]'Required by the Windows Form Designer

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] components [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.ComponentModel.Container

[/size][size=2][color=#008000]'NOTE: The following procedure is required by the Windows Form Designer

[/color][/size][size=2][/size][size=2][color=#008000]'It can be modified using the Windows Form Designer. 

[/color][/size][size=2][/size][size=2][color=#008000]'Do not modify it using the code editor.

[/color][/size][size=2][/size][size=2][color=#0000ff]Friend[/color][/size][size=2] [/size][size=2][color=#0000ff]WithEvents[/color][/size][size=2] FontDialog1 [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Windows.Forms.FontDialog

[/size][size=2][color=#0000ff]Friend[/color][/size][size=2] [/size][size=2][color=#0000ff]WithEvents[/color][/size][size=2] Button1 [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough()> [/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] InitializeComponent()

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.Button

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.TextBox

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.TextBox

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].FontDialog1 = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.FontDialog

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Button1 = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.Button

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].SuspendLayout()

[/size][size=2][color=#008000]'

[/color][/size][size=2][/size][size=2][color=#008000]'btnSend

[/color][/size][size=2][/size][size=2][color=#008000]'

[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend.Anchor = [/size][size=2][color=#0000ff]CType[/color][/size][size=2]((System.Windows.Forms.AnchorStyles.Bottom [/size][size=2][color=#0000ff]Or[/color][/size][size=2] System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend.Location = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Point(360, 289)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend.Name = "btnSend"

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend.Size = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Size(56, 24)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend.TabIndex = 2

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend.Text = "Send"

[/size][size=2][color=#008000]'

[/color][/size][size=2][/size][size=2][color=#008000]'txtSend

[/color][/size][size=2][/size][size=2][color=#008000]'

[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend.Anchor = [/size][size=2][color=#0000ff]CType[/color][/size][size=2](((System.Windows.Forms.AnchorStyles.Bottom [/size][size=2][color=#0000ff]Or[/color][/size][size=2] System.Windows.Forms.AnchorStyles.Left) _

[/size][size=2][color=#0000ff]Or[/color][/size][size=2] System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend.Location = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Point(8, 289)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend.Name = "txtSend"

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend.Size = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Size(344, 20)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend.TabIndex = 1

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend.Text = ""

[/size][size=2][color=#008000]'

[/color][/size][size=2][/size][size=2][color=#008000]'txtDisplay

[/color][/size][size=2][/size][size=2][color=#008000]'

[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.Anchor = [/size][size=2][color=#0000ff]CType[/color][/size][size=2]((((System.Windows.Forms.AnchorStyles.Top [/size][size=2][color=#0000ff]Or[/color][/size][size=2] System.Windows.Forms.AnchorStyles.Bottom) _

[/size][size=2][color=#0000ff]Or[/color][/size][size=2] System.Windows.Forms.AnchorStyles.Left) _

[/size][size=2][color=#0000ff]Or[/color][/size][size=2] System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.Location = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Point(0, 0)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.Multiline = [/size][size=2][color=#0000ff]True

[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.Name = "txtDisplay"

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.ReadOnly = [/size][size=2][color=#0000ff]True

[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.Size = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Size(424, 240)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.TabIndex = 0

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.TabStop = [/size][size=2][color=#0000ff]False

[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.Text = ""

[/size][size=2][color=#008000]'

[/color][/size][size=2][/size][size=2][color=#008000]'FontDialog1

[/color][/size][size=2][/size][size=2][color=#008000]'

[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].FontDialog1.ShowApply = [/size][size=2][color=#0000ff]True

[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].FontDialog1.ShowColor = [/size][size=2][color=#0000ff]True

[/color][/size][size=2][/size][size=2][color=#008000]'

[/color][/size][size=2][/size][size=2][color=#008000]'Button1

[/color][/size][size=2][/size][size=2][color=#008000]'

[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].Button1.Location = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Point(8, 256)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Button1.Name = "Button1"

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Button1.TabIndex = 3

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Button1.Text = "Button1"

[/size][size=2][color=#008000]'

[/color][/size][size=2][/size][size=2][color=#008000]'Form1

[/color][/size][size=2][/size][size=2][color=#008000]'

[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].AcceptButton = [/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].AutoScaleBaseSize = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Size(5, 13)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].ClientSize = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Size(424, 318)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Controls.Add([/size][size=2][color=#0000ff]Me[/color][/size][size=2].Button1)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Controls.Add([/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Controls.Add([/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Controls.Add([/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Name = "Form1"

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Text = "Socket Client"

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].ResumeLayout([/size][size=2][color=#0000ff]False[/color][/size][size=2])

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2]#[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Region

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] mobjClient [/size][size=2][color=#0000ff]As[/color][/size][size=2] TcpClient

[/size][size=2][color=#0000ff]Private[/color][/size][size=2] marData(1024) [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Byte

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] mobjText [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]New[/color][/size][size=2] StringBuilder()

[/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] Form1_Load([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] [/size][size=2][color=#0000ff]MyBase[/color][/size][size=2].Load

mobjClient = [/size][size=2][color=#0000ff]New[/color][/size][size=2] TcpClient("69.44.152.91", 8999)

DisplayText("Connected to host" & vbCrLf)

mobjClient.GetStream.BeginRead(marData, 0, 1024, [/size][size=2][color=#0000ff]AddressOf[/color][/size][size=2] DoRead, [/size][size=2][color=#0000ff]Nothing[/color][/size][size=2])

Send("New client online")

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] btnSend_Click([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] btnSend.Click

Send(txtSend.Text)

txtSend.Text = ""

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] Send([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] t [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]String[/color][/size][size=2])

[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] w [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]New[/color][/size][size=2] IO.StreamWriter(mobjClient.GetStream)

w.Write(t & vbCr)

w.Flush()

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] DoRead([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] ar [/size][size=2][color=#0000ff]As[/color][/size][size=2] IAsyncResult)

[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] intCount [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Integer

[/color][/size][size=2][/size][size=2][color=#0000ff]Try

[/color][/size][size=2]intCount = mobjClient.GetStream.EndRead(ar)

[/size][size=2][color=#0000ff]If[/color][/size][size=2] intCount < 1 [/size][size=2][color=#0000ff]Then

[/color][/size][size=2]MarkAsDisconnected()

[/size][size=2][color=#0000ff]Exit[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]If

[/color][/size][size=2]BuildString(marData, 0, intCount)

mobjClient.GetStream.BeginRead(marData, 0, 1024, [/size][size=2][color=#0000ff]AddressOf[/color][/size][size=2] DoRead, [/size][size=2][color=#0000ff]Nothing[/color][/size][size=2])

[/size][size=2][color=#0000ff]Catch[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] Exception

MarkAsDisconnected()

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Try

[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] BuildString([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] Bytes() [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Byte[/color][/size][size=2], [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] offset [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Integer[/color][/size][size=2], [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] count [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Integer[/color][/size][size=2])

[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] intIndex [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Integer

[/color][/size][size=2][/size][size=2][color=#0000ff]For[/color][/size][size=2] intIndex = offset [/size][size=2][color=#0000ff]To[/color][/size][size=2] offset + count - 1

[/size][size=2][color=#0000ff]If[/color][/size][size=2] Bytes(intIndex) = 10 [/size][size=2][color=#0000ff]Then

[/color][/size][size=2]mobjText.Append(vbLf)

[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] params() [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Object[/color][/size][size=2] = {mobjText.ToString}

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Invoke([/size][size=2][color=#0000ff]New[/color][/size][size=2] DisplayInvoker([/size][size=2][color=#0000ff]AddressOf[/color][/size][size=2] [/size][size=2][color=#0000ff]Me[/color][/size][size=2].DisplayText), params)

mobjText = [/size][size=2][color=#0000ff]New[/color][/size][size=2] StringBuilder()

[/size][size=2][color=#0000ff]Else

[/color][/size][size=2]mobjText.Append(ChrW(Bytes(intIndex)))

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]If

[/color][/size][size=2][/size][size=2][color=#0000ff]Next

[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] MarkAsDisconnected()

txtSend.ReadOnly = [/size][size=2][color=#0000ff]True

[/color][/size][size=2]btnSend.Enabled = [/size][size=2][color=#0000ff]False

[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] DisplayText([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] t [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]String[/color][/size][size=2])

txtDisplay.AppendText(t)

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] txtDisplay_TextChanged([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] txtDisplay.TextChanged

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] Button1_Click([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] Button1.Click

[/size][size=2][color=#0000ff]If[/color][/size][size=2] [/size][size=2][color=#0000ff]Me[/color][/size][size=2].FontDialog1.ShowDialog = DialogResult.OK [/size][size=2][color=#0000ff]Then

[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend.Font = [/size][size=2][color=#0000ff]Me[/color][/size][size=2].FontDialog1.Font

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.Font = [/size][size=2][color=#0000ff]Me[/color][/size][size=2].FontDialog1.Font

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]If

[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

End[/color][/size][size=2] [/size][size=2][color=#0000ff]Class

[/color][/size]

and not sure if you need to see this but heres the code to the server
VB.NET:
Expand Collapse Copy 
[size=2][color=#0000ff]Imports[/color][/size][size=2] System.Threading

[/size][size=2][color=#0000ff]Imports[/color][/size][size=2] System.Net

[/size][size=2][color=#0000ff]Imports[/color][/size][size=2] System.Net.Sockets

[/size][size=2][color=#0000ff]Public[/color][/size][size=2] [/size][size=2][color=#0000ff]Delegate[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] StatusInvoker([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] t [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]String[/color][/size][size=2])

[/size][size=2][color=#0000ff]Public[/color][/size][size=2] [/size][size=2][color=#0000ff]Class[/color][/size][size=2] Form1

[/size][size=2][color=#0000ff]Inherits[/color][/size][size=2] System.Windows.Forms.Form

[/size][size=2][color=#0000ff]Private[/color][/size][size=2] mobjThread [/size][size=2][color=#0000ff]As[/color][/size][size=2] Thread

[/size][size=2][color=#0000ff]Private[/color][/size][size=2] mobjListener [/size][size=2][color=#0000ff]As[/color][/size][size=2] TcpListener

[/size][size=2][color=#0000ff]Private[/color][/size][size=2] mcolClients [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]New[/color][/size][size=2] Hashtable()

#[/size][size=2][color=#0000ff]Region[/color][/size][size=2] " Windows Form Designer generated code "

[/size][size=2][color=#0000ff]Public[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] [/size][size=2][color=#0000ff]New[/color][/size][size=2]()

[/size][size=2][color=#0000ff]MyBase[/color][/size][size=2].New()

[/size][size=2][color=#008000]'This call is required by the Windows Form Designer.

[/color][/size][size=2]InitializeComponent()

[/size][size=2][color=#008000]'Add any initialization after the InitializeComponent() call

[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#008000]'Form overrides dispose to clean up the component list.

[/color][/size][size=2][/size][size=2][color=#0000ff]Protected[/color][/size][size=2] [/size][size=2][color=#0000ff]Overloads[/color][/size][size=2] [/size][size=2][color=#0000ff]Overrides[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] Dispose([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] disposing [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Boolean[/color][/size][size=2])

[/size][size=2][color=#0000ff]If[/color][/size][size=2] disposing [/size][size=2][color=#0000ff]Then

[/color][/size][size=2][/size][size=2][color=#0000ff]If[/color][/size][size=2] [/size][size=2][color=#0000ff]Not[/color][/size][size=2] (components [/size][size=2][color=#0000ff]Is[/color][/size][size=2] [/size][size=2][color=#0000ff]Nothing[/color][/size][size=2]) [/size][size=2][color=#0000ff]Then

[/color][/size][size=2]components.Dispose()

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]If

[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]If

[/color][/size][size=2][/size][size=2][color=#0000ff]MyBase[/color][/size][size=2].Dispose(disposing)

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]Friend[/color][/size][size=2] [/size][size=2][color=#0000ff]WithEvents[/color][/size][size=2] lstStatus [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Windows.Forms.ListBox

[/size][size=2][color=#008000]'Required by the Windows Form Designer

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] components [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.ComponentModel.Container

[/size][size=2][color=#008000]'NOTE: The following procedure is required by the Windows Form Designer

[/color][/size][size=2][/size][size=2][color=#008000]'It can be modified using the Windows Form Designer. 

[/color][/size][size=2][/size][size=2][color=#008000]'Do not modify it using the code editor.

[/color][/size][size=2]<System.Diagnostics.DebuggerStepThrough()> [/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] InitializeComponent()

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].lstStatus = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.ListBox()

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].SuspendLayout()

[/size][size=2][color=#008000]'

[/color][/size][size=2][/size][size=2][color=#008000]'lstStatus

[/color][/size][size=2][/size][size=2][color=#008000]'

[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].lstStatus.Dock = System.Windows.Forms.DockStyle.Fill

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].lstStatus.Name = "lstStatus"

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].lstStatus.Size = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Size(292, 264)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].lstStatus.TabIndex = 0

[/size][size=2][color=#008000]'

[/color][/size][size=2][/size][size=2][color=#008000]'Form1

[/color][/size][size=2][/size][size=2][color=#008000]'

[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].AutoScaleBaseSize = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Size(5, 13)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].ClientSize = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Size(292, 273)

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Controls.AddRange([/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.Control() {[/size][size=2][color=#0000ff]Me[/color][/size][size=2].lstStatus})

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Name = "Form1"

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Text = "Socket Server"

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].ResumeLayout([/size][size=2][color=#0000ff]False[/color][/size][size=2])

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2]#[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Region

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] Form1_Load([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] [/size][size=2][color=#0000ff]MyBase[/color][/size][size=2].Load

mobjThread = [/size][size=2][color=#0000ff]New[/color][/size][size=2] Thread([/size][size=2][color=#0000ff]AddressOf[/color][/size][size=2] DoListen)

mobjThread.Start()

UpdateStatus("Listener started")

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] DoListen()

[/size][size=2][color=#0000ff]Try

[/color][/size][size=2]mobjListener = [/size][size=2][color=#0000ff]New[/color][/size][size=2] TcpListener(5000)

mobjListener.Start()

[/size][size=2][color=#0000ff]Do

[/color][/size][size=2][/size][size=2][color=#008000]'Dim x As New Client(mobjListener.AcceptSocket)

[/color][/size][size=2][/size][size=2][color=#0000ff]Dim[/color][/size][size=2] x [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]New[/color][/size][size=2] Client(mobjListener.AcceptTcpClient)

[/size][size=2][color=#0000ff]AddHandler[/color][/size][size=2] x.Connected, [/size][size=2][color=#0000ff]AddressOf[/color][/size][size=2] OnConnected

[/size][size=2][color=#0000ff]AddHandler[/color][/size][size=2] x.Disconnected, [/size][size=2][color=#0000ff]AddressOf[/color][/size][size=2] OnDisconnected

[/size][size=2][color=#008000]'AddHandler x.CharsReceived, AddressOf OnCharsReceived

[/color][/size][size=2][/size][size=2][color=#0000ff]AddHandler[/color][/size][size=2] x.LineReceived, [/size][size=2][color=#0000ff]AddressOf[/color][/size][size=2] OnLineReceived

mcolClients.Add(x.ID, x)

[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] params() [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Object[/color][/size][size=2] = {"New connection"}

[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Invoke([/size][size=2][color=#0000ff]New[/color][/size][size=2] StatusInvoker([/size][size=2][color=#0000ff]AddressOf[/color][/size][size=2] [/size][size=2][color=#0000ff]Me[/color][/size][size=2].UpdateStatus), params)

[/size][size=2][color=#0000ff]Loop[/color][/size][size=2] [/size][size=2][color=#0000ff]Until[/color][/size][size=2] [/size][size=2][color=#0000ff]False

[/color][/size][size=2][/size][size=2][color=#0000ff]Catch

[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Try

[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] OnConnected([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] Client)

UpdateStatus("Connected")

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] OnDisconnected([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] Client)

UpdateStatus("Disconnected")

mcolClients.Remove(sender.ID)

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#008000]'Private Sub OnCharsReceived(ByVal sender As Client, ByVal Data As String)

[/color][/size][size=2][/size][size=2][color=#008000]' UpdateStatus("Chars:" & Data)

[/color][/size][size=2][/size][size=2][color=#008000]'End Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] OnLineReceived([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] Client, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] Data [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]String[/color][/size][size=2])

UpdateStatus("Line:" & Data)

[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] objClient [/size][size=2][color=#0000ff]As[/color][/size][size=2] Client

[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] d [/size][size=2][color=#0000ff]As[/color][/size][size=2] DictionaryEntry

[/size][size=2][color=#0000ff]For[/color][/size][size=2] [/size][size=2][color=#0000ff]Each[/color][/size][size=2] d [/size][size=2][color=#0000ff]In[/color][/size][size=2] mcolClients

objClient = d.Value

objClient.Send(Data & vbCrLf)

[/size][size=2][color=#0000ff]Next

[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] UpdateStatus([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] t [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]String[/color][/size][size=2])

lstStatus.Items.Add(t)

lstStatus.SetSelected(lstStatus.Items.Count - 1, [/size][size=2][color=#0000ff]True[/color][/size][size=2])

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] Form1_Closing([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Object[/color][/size][size=2], [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.ComponentModel.CancelEventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] [/size][size=2][color=#0000ff]MyBase[/color][/size][size=2].Closing

mobjListener.Stop()

[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub

End[/color][/size][size=2] [/size][size=2][color=#0000ff]Class

[/color][/size]
 
Upvote 0 Downvote
Help

Can any one please help me with this. IF some one can help then ide be happy to compinsate you with a year of free hosting on my server with unlimited bandwidth asp etc... Thanks in advance please contact me here on my irc or my msn @ blackrose_1100@hotmail.com
 
Upvote 0 Downvote
applying the fonts to textbox

suppose you are working in richtextbox control

rtb1.selectedtext.font=fontdialog1.fontname

i guess its the right solution
 
Upvote 0 Downvote
Not the problem

:) I know that portion but thats not the problem the problem is sending the font data from client to the server then back to the client so that it only effects the text you type....
 
Upvote 0 Downvote
ok Il explain what im doing

Baically this is a chat aplication fairley simple but all the same a chat app now what i want to do is allow the users of this chat to control there font and color of the text they type now i can get it to change in the box as they are typing thats easy the problem is getting it to send that color and font to everyone else and having that person and only that persons line ie the line they just typed show up with that font and color. Please advice asap thanks
 
Upvote 0 Downvote
If you're using a RichTextBox then the Text property gives you just the visible text but the Rtf property gives you the entire rich text, including all the codes. It's similar to the difference between what you see in a browser window and then viewing the page source.
 
Upvote 0 Downvote
I can't guarantee that this won't be perceptible to the user, but a quick way to achieve this would be to set the SelectionStart and SelectionLength properties to select the desired text and then use the SelectedRtf property to get the rich text, codes and all. I haven't tested this so it's all hypothetical at the moment.
 
Upvote 0 Downvote

Similar threads

J
  • Question Question
Question Printing the contents of a Rich Text Box
Replies
5
Views
2K
jdelano
J
RobertAlanGustafsonII
  • Solved
Question How do I host an arbitrary custom control in a DataGridView cell?
Replies
7
Views
4K
Rythorian
Rythorian
DukeMeister44
  • Question Question
Question Saving a chosen font in a richtextbox & going to a line in the richtextbox
Replies
0
Views
2K
DukeMeister44
DukeMeister44
C
  • Question Question
Rich Text Box for SQL data
Replies
1
Views
3K
jmcilhinney
jmcilhinney
F
  • Question Question
Question Displaying a Save Dialog Box
Replies
2
Views
4K
Fogie
F

Share this page

Latest posts

Back
Top