vb western font, vb font flashing,

private sub form_load()

Songti")"Italics GB2312")

Imitation Song GB2312")

Blackbody")"times new roman")

ms sans serif")

courier new")

gulimche")

arial")

end sub

private sub combo1_click()

if = "Songti" then = "Songti"

if = "Italics GB2312" then = "Italics GB2312"

if = "Imitation Song GB2312" then = "Imitation Song GB2312"

if = "Blackbody" then = "Blackbody"

if = "times new roman" then = "times new roman"

if = "ms sans serif" then = "ms sans serif"

if = "courier new" then = "courier new"

if = "gulimche" then = "gulimche"

if = "arial" then = "arial"

end sub

I modified your program.,Just use a combo.,A text.,The Spanish font works.,As for why it doesn't work when listed separately.,I haven't found a reason yet.。

Addendum: Find the reason, because combo2 you use the change event, you should also use the click event. The change event happens when you manually enter the font name, and it happens every time you enter a character.

Add a label1 and a timer

private sub form_load()= "Glitter word"

trueend sub

private sub timer1_timer()static c as integer

c = c + 1

select case c

case 1

vbredcase 2

vbyellow

case 3

vbblue

case 4

hff00&

c = 0end select

end sub

Is your a4 b3 c2 above a defined array? If it's a defined array, then you have a problem with the definition of this array!

Define the array as follows:

dim a(4) as integer

dim b(3) as integer

dim c(2) as integer

If it's not a defined array, then I can't see your purpose, it's not good to suggest, it is recommended to introduce it clearly or post it all!!

Hope it helps!

Are a4, b3, etc. variable names or values? Was the variable name assigned before? Let's talk about it carefully.

Your assignment statement is wrong, right, no quotation marks? It's not a string, that is, it's four other variables, so what are the values of these four variables? If you write it like this, it is a=a0, because it has not been assigned, so it defaults to zero, and it will not be equal to anything else.

a = a4 is a variable on the left and a variable on the right.

I think you put quotation marks around the right of the equal sign, such as a="a4"to get the results you want.

VB is generally the font that comes with the system, if you have installed fonts on your own computer and used it in the design of VB, then it is inevitable that someone else's machine can not display the title and other text, so it is generally not recommended to install fonts in VB.

You can install fonts on your own system to the fonts folder under the windows folder.

The font file of VB is the same as the font of the system, and the font file can be copied directly to the fonts of the system directory;

Add the commondialog1 control, use the following ** to get the font, font size, and other attributes, depending on your needs.

There is no font you use in someone else's computer, for example, if you design a font in a project that is subordinate to someone else's computer, this is the case when you use it.

Solution: Copy the font you use on your computer: [Control Panel] - [Font], select the font you need to copy, store it in the USB flash drive, insert it into the USB flash drive in someone else's computer, copy the font, and then click: [Control Panel] - [Font], paste it.

That's because the font you're using isn't native to the system.

You can only copy the font you are using to the other person's computer.

When writing a program, it is best to write the font on the window of the window initialization**.

private sub command1_click()for i = 0 to - i

next i

end sub

private sub list1_click()=

end sub

listbox control, textbox control*2, button control. There is q184203998 that I don't understand

Your mistake is here:

new font(""Envy, 10, ( in the statement"", you can't add quotation marks, you want to use the value of yes, for example, "Song style", Wang Zheng but add quotation marks, the name of the buried body of the word brother you use does not exist.

Change it to the following**, and it's OK:

new font(, 10,=

My change event dust regret can't be used, but ** written as the following quiet brother scum can also be used.

private sub combo1_click()=

end sub

private sub form_load()("Italics GB2312")

Blackbody")"Songti")

Quietly new Song style")

Imitation Song GB2312")

Italics GB2312"

trueend sub