[RESOLVED] Invalid use of property

[BrailleSchool]

I am wanting to set some text in a label at run-time for:

bold italic
bold
underline
non bold (regular)
strike through
italic

and i have the following so i can test it and i am getting the error

Invalid use of property

this is what i have:

Private Sub mnuLabelFontStyleBold_Click()
    lblText(m_intControlIndex).Font.[hl]Bold[/hl]
End Sub

[BrailleSchool]

OK, i found that its a boolean flag of some sort so added = True

However, when I want to set the text to regular text with the following, its not doing it...

Private Sub mnuLabelFontStyleRegular_Click()
    lblText(m_intControlIndex).Font.Bold = False
End Sub

[RobDog888]

You need to either set the .Bold = False and then enter in text or highlight the text if it already exists and then tggle the .Bold = False.

[BrailleSchool]

so youre saying the best way to do it is to maybe do a toggle?

[RobDog888]

No, if your wanting to enter in new text then set the .Bold before entering the text. If your just reformatting some existing text then highlight and apply the .Bold = False

It works exactly like it does in the Word GUI.

[BrailleSchool]

when the label has received a end user caption, they can go into a menu to specify the whole label as a particular format. one of those formats, i am trying to accomplish is Bold + Italic; however, its toggling between either/or, instead of setting it bold + italic or neither. i cannot seem to find anywhere, where you can set both and then toggle between the two. this is what i have so far?

Private Sub mnuLabelFontStyleBoldItalic_Click()
    With lblText(m_intControlIndex)
        .Font.Bold = Not .Font.Bold
        .Font.Italic = Not .Font.Italic
    End With
End Sub

[Joacim Andersson]

The code you showed should work perfectly. Set a breakpoint in the procedure and check that m_intControlIndex actually have the correct value (so it's not 0 which if I understood your previous posts correctly is an invisible control).

[BrailleSchool]

The code you showed should work perfectly. Set a breakpoint in the procedure and check that m_intControlIndex actually have the correct value (so it's not 0 which if I understood your previous posts correctly is an invisible control).

its showing the right index value. but what it is doing is not turning off bold and italic or turning it on. what its doing is toggling between the top, and then the bottom.

what i need to do is turn both off at the same time or turn both on at the same time. i dont see anywhere in my msdn where there is a .font.bolditalic so cant set it that way. typical ms though.

[Joacim Andersson]

Private Sub mnuLabelFontStyleBoldItalic_Click()
    With lblText(m_intControlIndex)
        .Font.Bold = Not .Font.Bold
        .Font.Italic = [b].Font.Bold [/b]
    End With
End Sub

[BrailleSchool]

Private Sub mnuLabelFontStyleBoldItalic_Click()
    With lblText(m_intControlIndex)
        .Font.Bold = Not .Font.Bold
        .Font.Italic = [b].Font.Bold [/b]
    End With
End Sub

.font.bold would be referencing the top line?

[Joacim Andersson]

Font.Bold is simply a property value of boolean type so it's either True or False. The first line set it to one of these values (toggle) while the second makes sure that Font.Italic is set to the same value. So it either turns both properties to True or to both False.

But maybe I'm missing something and completly misunderstood what you are trying to do.

[BrailleSchool]

Font.Bold is simply a property value of boolean type so it's either True or False. The first line set it to one of these values (toggle) while the second makes sure that Font.Italic is set to the same value. So it either turns both properties to True or to both False.

But maybe I'm missing something and completly misunderstood what you are trying to do.

no, you understood me because when i tried your alteration, it worked like a charm. was just trying to understand what you were doing. its not so good to take someones code/alterations and not understand them, so was just making sure i understood. i like to understand the logic so if i had to do it again or in another project in the future, i would know what i was doing and could understand what was going on. thanks for the help JA.

[Joacim Andersson]

You're welcome. It's great that you're always striving to understand the code you're using. To explain it in another way, the code basically does the same thing as this code does:

Dim str As String, txt As String
str = "Hello World"
txt = str

The second variable is simply assigned the same value as the first contains. The only difference is that in your case it's not variables but properties you assign values to.

[BrailleSchool]

You're welcome. It's great that you're always striving to understand the code you're using. To explain it in another way, the code basically does the same thing as this code does:

Dim str As String, txt As String
str = "Hello World"
txt = str

The second variable is simply assigned the same value as the first contains. The only difference is that in your case it's not variables but properties you assign values to.

always better to understand the code than use code you dont understand.