specific

private

statement

function

LCMapString

liberation movement

"Kernel 32"

another name

_

" LCMapStringA "

(ByVal

site

be like

Long,

ByVal

dwMapFlags

be like

_

Long,

ByVal

lpSrcStr

be like

String,

ByVal

cchSrc

be like

Long,

_

ByVal

lpDestStr

be like

String,

ByVal

cchDest

be like

Dragon)

be like

long

private

statement

function

Eastron

liberation movement

"Kernel 32"

another name

"Estelena"

_

(ByVal

lpString

be like

String)

be like

long

dimmed

Serum thymic factor

be like

line

dimmed

STj

be like

line

dimmed

STlen

be like

long

private

submarine

Command 1_Click()

Gb code is simplified to traditional.

STj

=

Text 1。 text

STlen

=

Eastron (STj)

Serum thymic factor

=

Space (space)

LCMapString

& ampH804，

& ampH4000000，

STj，

Slam,

STf，

STlen

Text 2. text

=

Serum thymic factor

end

submarine

private

submarine

Command2_Click()

Gb code from traditional to simplified.

Serum thymic factor

=

Text 2. text

STlen

=

Eastron (STf)

STj

=

Space (space)

LCMapString

& ampH804，

& ampH2000000，

STf，

Slam,

STj，

STlen

Text 1。 text

=

STj

end

submarine

private

submarine

Form_Load()

Command 1. title

=

"Convert to Traditional"

Command 2. title

=

"Convert to Simplified"

end

submarine

Changed it a little. Otherwise, the traditional style will not be reflected.

Draw 2 buttons and 2 text boxes.

Copy the code above

Double-click the form

Select all codes and copy them.