VB 6 Underline Text problem - GameCreators Forum

Author

Message

Pincho Paxton

22

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 10th Sep 2011 02:36

Link

I'm sending text from a string to a Text Dialogue page. If the numbers are the same as one another I want to underline them. But it seems to be very difficult to do. My test in the code box just tries to underline the number 3. If you can get that to work I can fix it to do matching numbers.

Thanks.

+ Code Snippet

frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + PrinterInfo(N, 1)
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + PrinterInfo(N, 2) & vbCrLf
End If
For N1 = 3 To 8
If PrinterInfo(N, N1) = "3" Then

frmDialog.FontUnderline = True
End If
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + PrinterInfo(N, N1) + " "

Back to top

Profile PM Email Website

old_School

15

Years of Service

User Offline

Joined: 29th Aug 2009

Location:

Posted: 10th Sep 2011 03:14 Edited at: 10th Sep 2011 03:18

Link

http://www.youtube.com/watch?v=4XBpzlpRrgU

Well first upgrade to at least 2008, next get the P2P software or go grab a VB vid on how to send strings or classes. Im making a chat software my self currently. OO so many things wrong above. I recomend you check out you tube as its were I started before I decided to build my own chat system. Also MSDN has alot of examples and there is a free sample pack you can Download. It has a simple chat system in it as well. I highly recomend you review that then you will see your mistakes.

Edit:

2008 and 2010 Express are free btw and will work good enough to build a nice web chat ser/client system from scratch or useing the P2P tool package.

Edit:
Sorry above statements might come across rude. Ahh VB6 is extremely dated and should be replaced. Hence the suggestion. I know alot of people complain about 2006 to 2008 has big changes but not really. I think 2008/2010 are better. Just somehting you have to get use to if you want to use VB.

Back to top

Profile PM

Pincho Paxton

22

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 10th Sep 2011 03:38

Link

I like VB 6 the best, aren't the other ones NET? I don't like NET.

Anyway, I think it doesn't matter because the command can be sent to the printer instead. So I will try that.

Back to top

Profile PM Email Website

old_School

15

Years of Service

User Offline

Joined: 29th Aug 2009

Location:

Posted: 10th Sep 2011 17:12

Link

In Vb i think its just Print, Id have to check MSDN for a printer command. I never used VB 6 but I herd and seen it. I was not impressed with it personaly. My only other recomenddation would be grab a old VB6 book and use it for a reference. I can ask some my other coders who have worked with VB6 but no primises.

Back to top

Profile PM

xplosys

19

Years of Service

User Offline

Joined: 5th Jan 2006

Playing: FPSC Multiplayer Games

Posted: 10th Sep 2011 17:47

Link

VB6 if very similar to VB.NET or VB2010. A few of the commands were changed to protect the innocent.

I really need a little more info. I don't know what a "Text Dialogue page" is, but I think to compare numbers it may be best to assign them as strings first.

Dim MyFirstNumber as String
Dim MySecondNumber as string
Dim Result as String = ""

Then use the sting manipulation of VB to determine which numbers in the string match. More specifically, Mid$. For example something like this...

For NumLength = 1 to Len(MyFirstNumber)
If Mid$(MyFirstNumber, NumLength, 1) = Mid$(MySecondNumber, NumLength, 1) then
Result$=Result$ & [underlined number]
Else
Result$=Result$ & [not underlined number]
Next NumLength

That would check each number in string 1 against string 2 to see if they are the same and add them to the result accordingly.

I did not write the code that underlines them or not as I don't know how your doing that.

Good luck with your project.

Brian.

Back to top

Profile PM

Pincho Paxton

22

Years of Service

User Offline

Joined: 8th Dec 2002

Location:

Posted: 10th Sep 2011 21:07 Edited at: 10th Sep 2011 21:12

Link

Thanks! I finished it. I didn't underline the matching numbers, I just put them at the end instead, which is actually better. I think that it is impossible to do what I was trying to do, to Underline one character in a string. It has a bug in it. I moved the numbers, but forgot to move the associated text with them. The txtTitle.text...

Private Sub Command6_Click()
For N = 1 To 5
DataWrite(N) = 0
Next N
PrinterInfo(Pointer, 1) = "Data "
PrinterInfo(Pointer, 2) = Version
For N = 3 To 8
PrinterInfo(Pointer, N) = txtWet(N - 3).Text
Next N
PrinterInfo(Pointer, 9) = " " + txtTitle.Text

'Sort text, look for matches of 3.
For N2 = 1 To Pointer
For N1 = 4 To 8
For N = 3 To 7
    If Val(PrinterInfo(Pointer, N)) > Val(PrinterInfo(Pointer, N1)) Then
        TempNo = Val(PrinterInfo(Pointer, N1))
        PrinterInfo(Pointer, N1) = PrinterInfo(Pointer, N)
        PrinterInfo(Pointer, N) = Str$(TempNo)
    End If
Next N
Next N1
Next N2
If Pointer > 1 Then
For N1 = 2 To Pointer

For N = 1 To Pointer - 1
    If Val(PrinterInfo(N, 2)) > Val(PrinterInfo(N1, 2)) Then
        Tempno3(1) = Val(PrinterInfo(N1, 2))
        For N3 = 2 To 7
        Tempno3(N3) = Val(PrinterInfo(N1, N3 + 1))
        Next N3
        For N3 = 2 To 8
        PrinterInfo(N1, N3) = PrinterInfo(N, N3)
        Next N3
        For N3 = 2 To 8
        PrinterInfo(N, N3) = Str$(Tempno3(N3 - 1))
        Next N3
    End If
Next N
Next N1
End If

ChangeDay
ChangeDate
For N = 1 To Pointer
If N = 1 Then
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + "" & vbCrLf
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + PrinterInfo(N, 1)
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + PrinterInfo(N, 2) & vbCrLf
DataWrite(PrinterInfo(N, 2)) = 1
Else
If DataWrite(PrinterInfo(N, 2)) = 0 Then
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + "" & vbCrLf
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + PrinterInfo(N, 1)
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + PrinterInfo(N, 2) & vbCrLf
DataWrite(PrinterInfo(N, 2)) = 1
End If
End If
For N1 = 3 To 8

frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + PrinterInfo(N, N1) + " "

Next N1

frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + PrinterInfo(N, 9) & vbCrLf
Next N

For N = 1 To 49
LottoCounter(N) = 0
Next N
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text & vbCrLf + "Repeats" & vbCrLf
For N = 1 To Pointer
For N1 = 3 To 8
LottoCounter(PrinterInfo(N, N1)) = LottoCounter(PrinterInfo(N, N1)) + 1
Next N1
Next N

For N = 1 To 49
If LottoCounter(N) > 2 Then
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + Str$(N) + " "
End If
Next N
Pointer = Pointer + 1
End Sub

+ Code Snippet

Private Sub Command6_Click()
For N = 1 To 5
DataWrite(N) = 0
Next N
PrinterInfo(Pointer, 1) = "Data "
PrinterInfo(Pointer, 2) = Version
For N = 3 To 8
PrinterInfo(Pointer, N) = txtWet(N - 3).Text
Next N
PrinterInfo(Pointer, 9) = " " + txtTitle.Text

'Sort text, look for matches of 3.
For N2 = 1 To Pointer
For N1 = 4 To 8
For N = 3 To 7
    If Val(PrinterInfo(Pointer, N)) > Val(PrinterInfo(Pointer, N1)) Then
        TempNo = Val(PrinterInfo(Pointer, N1))
        PrinterInfo(Pointer, N1) = PrinterInfo(Pointer, N)
        PrinterInfo(Pointer, N) = Str$(TempNo)
    End If
Next N
Next N1
Next N2
If Pointer > 1 Then
For N1 = 2 To Pointer

For N = 1 To Pointer - 1
    If Val(PrinterInfo(N, 2)) > Val(PrinterInfo(N1, 2)) Then
        Tempno3(1) = Val(PrinterInfo(N1, 2))
        For N3 = 2 To 7
        Tempno3(N3) = Val(PrinterInfo(N1, N3 + 1))
        Next N3
        For N3 = 2 To 8
        PrinterInfo(N1, N3) = PrinterInfo(N, N3)
        Next N3
        For N3 = 2 To 8
        PrinterInfo(N, N3) = Str$(Tempno3(N3 - 1))
        Next N3
    End If
Next N
Next N1
End If

ChangeDay
ChangeDate
For N = 1 To Pointer
If N = 1 Then
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + "" & vbCrLf
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + PrinterInfo(N, 1)
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + PrinterInfo(N, 2) & vbCrLf
DataWrite(PrinterInfo(N, 2)) = 1
Else
If DataWrite(PrinterInfo(N, 2)) = 0 Then
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + "" & vbCrLf
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + PrinterInfo(N, 1)
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + PrinterInfo(N, 2) & vbCrLf
DataWrite(PrinterInfo(N, 2)) = 1
End If
End If
For N1 = 3 To 8

frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + PrinterInfo(N, N1) + " "

 

Next N1

frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + PrinterInfo(N, 9) & vbCrLf
Next N

For N = 1 To 49
LottoCounter(N) = 0
Next N
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text & vbCrLf + "Repeats" & vbCrLf
For N = 1 To Pointer
For N1 = 3 To 8
LottoCounter(PrinterInfo(N, N1)) = LottoCounter(PrinterInfo(N, N1)) + 1
Next N1
Next N

For N = 1 To 49
If LottoCounter(N) > 2 Then
frmDialog.txtOutput.Text = frmDialog.txtOutput.Text + Str$(N) + " "
End If
Next N
Pointer = Pointer + 1
End Sub

Back to top

Profile PM Email Website

old_School

15

Years of Service

User Offline

Joined: 29th Aug 2009

Location:

Posted: 11th Sep 2011 03:22 Edited at: 11th Sep 2011 03:25

Link

NM its just VB6, gives me a head ache to try to read it.

Back to top

Profile PM

Sorry your browser is not supported!

Geek Culture / VB 6 Underline Text problem